Code for the Find Button : Form Events « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. Form Events

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








Related examples in the same category

1.Writing the Form_Error Event Procedure
2.Assign form Recordset in its open action
3.CancelEvent: DoCmd.CancelEvent()
4.IsLoad function
5.Form Before Update action
6.The Undo event executes before changes to a row are undone.
7.Key down event
8.If the data in the form dirty
9.Form_Filter
10.You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied.
11.The Load Event Assigning a Recordset Object to the Form
12.Code for the Move Previous Button
13.Code for the Move Next Button
14.Code for the Add Button
15.Deleting a Record