1: 2: 3: 4: 5: 6: 7:
Private Sub cmdSearch_Click() txtSearch.SetFocus DoCmd.FindRecord txtSearch, acEntire, False, acSearchAll, , acAll, True End Sub