RE:Ayuda para buscar registros
Este ejemplo utiliza un formulario muy sencillo que solo tiene una caja de texto (txt_Buscar) en la cual tecleo la palabra a buscar y una lista en la cual muestro el resultado de la busqueda y un boton salir.
Uso tabla1 en la cual tiene un campo Calle y la palabra que busco es sobre este campo, la palabra a buscar la puede encontrar en cualquier parte de la cadena, ejemplo si yo tecleo "lupe" me va a mostrar todos los registros que en algun lugar tengan esa palabra tales como guadalupe, cda. guadalupe, guadalupe victoria, callejon guadalupe, etc. etc.
Option Compare Database
Dim Var As String
Dim db As DAO.Database, rs As DAO.Recordset
Private Sub txt_Buscar_LostFocus()
Var = ""
ActualizaLista
Var = "SELECT tabla1.Calle FROM tabla1 WHERE tabla1.Calle LIKE '" & "*" & Me.txt_Buscar.Value & "*" & "'"
Set db = CurrentDb()
Set rs = db.OpenRecordset(Var)
If rs.RecordCount > 0 Then
ActualizaLista
Else
MsgBox "No se encontro la palabra tecleada", vbOKOnly, "aviso"
End If
rs.Close
Set db = Nothing
End Sub
Sub ActualizaLista()
Me.Lista.RowSource = Var
Me.Lista.Requery
End Sub
Private Sub BtnSalir_Click()
DoCmd.Close
End Sub
saludos juanjo