Andres
10 de Marzo del 2003

Disculpen, pero ya he mandado un asunto y no tuve respuesta, y este problema es importante ya que dependo mucho de el en mi trabajo. (Gracias) El tema es que tengo una base de datos de clientes y que aparece en una ventana examinar, en mi form (en orden alfabetica por el campo Apellido) y me gustaria que a medida que escribo en el textbok se valla produciendo un filtro de busqueda y que actualice automaticamente la ventana Examinar. Ej pongo la F, me aparecen todos los apellido con F pero si pongo la A, me apareceran todos los apellidos con FA, y asi sucesivamente..... La base de datos de llama clientes.
Muchas Gracias......!

angeles
10 de Marzo del 2003

Private Sub Text1_Change()
Dim cad As String
Dim r As Recordset
cad="Select * from clientes where Apellidos Like '" & Text1.Text & "%'"
Set r = conexion.OpenRecordset(cad,dbOpenDynamic,dbExecDirect)
'Ahora asigna ese recordset al elemento de Examinar, que no sé si es un ListBox, un DataGrid ...
End Sub
Con esto seleccionas las filas de la tabla que cumplan la condición.