InputBox en la Recordset
Publicado por Cristian (19 intervenciones) el 19/05/2021 00:33:57
Hola, buenas a todos, alguien sabe como solucionar este problema:
Tengo una Datagrid ya Cargada con sus Datos y al querer buscar con un InputBox campo clave "busca" no logro identificar por que la Recordset no me está llamando a la consulta del InputBox, , tengo cargado en módulos "Global RsTablaCtrlValores As New ADODB.Recordset" estoy usando SQL 14 mas VBa Pro.6.0
aquí esta la linea
Nuevamente agradeciendo su tiempo.
Muchas Gracias
Tengo una Datagrid ya Cargada con sus Datos y al querer buscar con un InputBox campo clave "busca" no logro identificar por que la Recordset no me está llamando a la consulta del InputBox, , tengo cargado en módulos "Global RsTablaCtrlValores As New ADODB.Recordset" estoy usando SQL 14 mas VBa Pro.6.0
aquí esta la linea
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CmdBuscar_Click()
busca = InputBox(" Ingrese el nombre del campo a buscar ", "buscar")
If busca = "" Then Exit Sub
With RsTablaCtrlValores
.Requery.Find "NombreProducto = ' " & Trim(busca) & " ' "
If .EOF Then ====> aquí me indica que es verdadero
MsgBox " No se encontró Ningún Producto con este Nombre" ===> yo se, que existe. Me manda al Msgbox
Exit Sub
Else
TxtNombreRegistrarProductos.Text = GrillaCtrlValores.Columns(1).Text
TxtDetalleRegistrarProductos.Text = GrillaCtrlValores.Columns(2).Text
TxtPrecioCostoRegistrarProductos.Text = GrillaCtrlValores.Columns(3).Text
TxtPrecioVentaRegistrarProductos.Text = GrillaCtrlValores.Columns(4).Text
Label2.Caption = GrillaCtrlValores.Columns(0).Text
End If
End With
End Sub
Nuevamente agradeciendo su tiempo.
Muchas Gracias
Valora esta pregunta
0