|
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
|