by Efren (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 21st March 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
buscar en un grid, un registro de una base de datos.
API Declarations
al tiempo que se escribe en una caja de texto, el campo elegido de una base de datos.
Dim r As Variant
Dim I As Long
Text1.SelStart = Len(Text1)
r = Text1.Text
I = vs1.FindRow(r, , 0, , False)
If I > 0 Then
vs1.IsSelected(I) = True
vs1.TopRow = I
End If
End Sub