If Then
MsgBox

This code is incomplete

He wasn't giving you code. He gave you links to videos you can watch to answer your question.

Hello Richard:
Glad you are back!
Thank you for clearing this up.

The following "find" rrecord code was taken from one of your lessons. I would like to alert the user via MsgBox in this CODE block that if the criteria specified to look for is NOT found, then I can tell the user that the data was not found.

Private Sub FirstNamebtn_Click()

Dim X As String
X = InputBox("Enter all or part of a First Name to find:", "First Name")

If X = "" Then
Exit Sub

DoCmd.GoToControl "FirstName"
DoCmd.FindRecord X, acAnywhere, False, acSearchAll, False, acCurrent, True

End Sub

There are a couple of ways you could do it. In this case, you could just use the InStr function to make sure that the record you finally landed on actually contains that text.

If InStr(FirstName,X)=0 then MsgBox "Nothing to see here. Move along."

Or something like that.

String Functions

Thanks Richard:

I hope you and family are all doing well.
I would have never figured this one out.

I have the CODE for Visual Studio to do this using SQL statements, but not a clue here in Access.

The lessons are so excellent, I decided to port my application to Access using your help. Access is more
integrated I feel.

So, thanks again!

Yeah, there's a lot less you have to program yourself with Access. Most of the "database stuff" is already there for you.

I commented out the original "If" statement, put your solution after the DoCmds to find the record and it works like a charm.

Once again Richard, thank you for your help. I will now tackle the multiple field search tutorials!

Private Sub FirstNamebtn_Click()

Dim X As String
X = InputBox("Enter all or part of the First Name to find:", "First Name")

'If X = "" Then
'Exit Sub

DoCmd.GoToControl "FirstName"
DoCmd.FindRecord X, acAnywhere, False, acSearchAll, False, acCurrent, True

If InStr(FirstName, X) = 0 Then
MsgBox "Criteria not found!"
Exit Sub

    End If

'End If

End Sub

Here is the final version of the search tutorial along with the "criteria not found" alert.

The original "If" statement now works by adding an "Else" after it.

Private Sub FirstNamebtn_Click()

Dim X As String
X = InputBox("Enter all or part of the First Name to find:", "First Name")

If X = "" Then
Exit Sub

    Else

DoCmd.GoToControl "FirstName"
DoCmd.FindRecord X, acAnywhere, False, acSearchAll, False, acCurrent, True

If InStr(FirstName, X) = 0 Then
MsgBox "Criteria not found!"
Exit Sub

    End If

End If

End Sub

Dwight - South Carolina