-
beginner w/ FindFirst
What do I have to do to get the following code to work?
'Calls up input box to find the desired record
Private Sub cmdFind_Click()
mstrClientLastName = InputBox("Enter the Last Name", "Find")
If mstrClientLastName <> "" Then
mrstClientLastName.FindFirst "fldClientLastName = " & "'" & _
mstrClientLastName & "'"
If mrstClientLastName.NoMatch = True Then
MsgBox "Cannot find " & mstrClientLastName, vbInformation, "Atlantic Marketing"
End If
End If
End Sub
-
Ok here is one problem:
'Calls up input box to find the desired record
Private Sub cmdFind_Click()
mstrClientLastName = InputBox("Enter the Last Name", "Find")
If mstrClientLastName <> "" Then
'Lets look at the name of this string a little closer:
mrstClientLastName.FindFirst "fldClientLastName = " & "'" & _
'Look above here it should be mstrClientLastName
'Set your option explicit
mstrClientLastName & "'"
If mrstClientLastName.NoMatch = True Then
MsgBox "Cannot find " & mstrClientLastName, vbInformation, "Atlantic Marketing"
End If
End If
End Sub