formulario busqueda de datos
Publicado por Zaid (3 intervenciones) el 16/12/2019 20:54:21
Buenas, he creado un un formulario de búsqueda de datos, al entrar en el formulario me aparecen todos los datos en el cuadro de lista, pero cuando realizo una búsqueda se pone en blanco y no aparece nada...
Este es mi codigo:
Este es mi codigo:
1
2
3
4
5
6
7
8
Private Sub btnBuscar_Click()
Dim Consulta As String
Consulta = "SELECT Almacén, Referencia, Ubicacion, Codigo PT, Codigo Caja, Cantidad "
Consulta = Consulta & "FROM inventario "
Consulta = Consulta & "WHERE Almacém Like '*" & Me.txtBusqueda & "*' OR Referencia Like '*" & Me.txtBusqueda & "*' OR Ubicacion Like '*" & Me.txtBusqueda & "*' OR Codigo PT Like '*" & Me.txtBusqueda & "*' OR Codigo Caja Like '*" & Me.txtBusqueda & "*' OR Cantidad Like '*" & Me.txtBusqueda & "*'"
Me.Lista.RowSource = Consulta
End Sub
Valora esta pregunta
0