Lionnella
29 de Enero del 2004

Necesito hacer una búsqueda sobre un dbgrid por medio de un botón , que me lleve a un form y me permita ingresar en un textbox el nro de doc. para hacer la busqueda; también tengo 2 botones más uno SIGUIENTE a medida que encuentre el registro m y otro cancelar la búsqueda. ¿Cuál sería el código ??
GRACIAS..............

Bartolom
29 de Enero del 2004

Acá tienes un procedimiento que puedes llamar con el evento click de tu botón. En este caso no necesitas un botón siguiente, el mismo botón lo vas apretando y te va encontrando consecutivamente los registros. Lo que sí, para el dbgrid debes tener asociado un ADO, en este caso, le llamé Adodc1:

Private Sub Buscar()
Dim Buscado As String, Criterio As String

Buscado = TextBox.Text
If Buscado = "" Then Exit Sub
Criterio = "NºDoc Like '*" & Buscado & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find Criterio
End If

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
' Buscar desde el principio
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub

Saludos!

Bartolom
29 de Enero del 2004

Ah, se me olvidaba, si tienes el dbgrid en el mismo form de la búsqueda, automáticamente se irá situando el puntero en el registro encontrado.
Saludos!