• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This Makes U Easily Find A string Name Without needing to type the full string(U can even type a le

This Makes U Easily Find A string Name Without needing to type the full string(U can even type a le

This Makes U Easily Find A string Name Without needing to type the full string(U can even type a letter inside the string to find it)

Rate This Makes U Easily Find A string Name Without needing to type the full string(U can even type a le

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Start_Click()
With De.rsMain
BkMark = .Bookmark
A = InputBox("Write The Name")
.MoveFirst
Do Until I <> 0
If .EOF Then MsgBox "ooops": .Bookmark = BkMark: Exit Sub
I = InStr(1, LCase(Text1), LCase(A))
.MoveNext
Loop
.MovePrevious
Exit Sub
End With
End Sub