by The Genius (Mohamed Gamal Hassan) (2 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 26th August 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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)
VBcoders
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
No comments have been posted about This Makes U Easily Find A string Name Without needing to type the full string(U can even type a le. Why not be the first to post a comment about This Makes U Easily Find A string Name Without needing to type the full string(U can even type a le.
