Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Code for the Find Button

Private Sub cmdFind_Click()     Dim strClientID As String     Dim varBookmark As Variant     varBookmark = Me.Recordset.Bookmark     strClientID = InputBox("Enter Client ID of Client You Want to Locate")     Me.Recordset.Find "ClientID = " & strClientID, Start:=1     If Me.Recordset.EOF Then         MsgBox "Client ID " & strClientID & " Not Found!!"         Me.Recordset.Bookmark = varBookmark     Else         Me.Bookmark = Me.Recordset.Bookmark     End If End Sub