Código:
Private Sub Text1_Change()
On Error Resume Next
Dim cBuscar As String
If Text1.Text = "" Then Exit Sub
cBuscar = "Cliente like '" & Text1.Text & "*'"
rs2.MoveFirst
rs2.Find (cBuscar)
End If
End Sub
bueno el problema que tengo con este code es que si busco una palabra, no puedo pasar al siguiente valor que tenga esa palabra, es decir busco por ejemplo a "Martin", cuando lo encuentra no se como hacer para que busque otro mas que cumpla con las condiciones.
Si tengo a uno que esta agregado como "Martinez" y yo quiero buscar a "Martin", pongo "Martin" en el buscador y me encuentra a "Martin ez" y no se como hacer para que busque otras opciones.
Otra cosa que necesito es que si se puede hacer que cuando busque un nombre lo busque en todo el "valor" mejor. Por ejemplo si hay una persona agregada como "Martinez Juan" y yo busco a "Juan" que igual lo encuentre sin importar el orden, no siempre el orden es Apellido / Nombre, es depende como lo agregen xD
Aclaración: un code que busque palabras exactas no me sirve porque las personas estan agregadas por nombre / apellido y cuando busco a esa persona no pongo el nombre y el apellido sino que busco por el nombre o por el apellido.
Perdon por mi explicación, no es muy buena ojala que entiendan.
Gracias de antemano , Espero su respuesta. Saludos