If no match after find first record, do stuff

[boboivan]

Hello experts!



I run this code under a command button on my Main Menu to find the first record based on criteria in the form that I want to open:

Private Sub Command0_Click()
If TempVars("CurrentUser") = "admin" Then
DoCmd.OpenForm "Events"
Else
DoCmd.OpenForm "Events"
Forms("Events").Recordset.FindFirst "Event =" & DLookup("IDevent", "tblEvents", _
"IDevent=" & "IDevent" & " And [UserName] = '" & TempVars("CurrentUser") & "'")
'something to add here
End If
End Sub

The code works fine if it finds the current user in the records. If it doesn't find anything, I get an error.
How can I fix this error?
I've tried something with NoMatch syntax, but I couldn't achieve much.
Please help!
Thx!

[cyanidem]

Read about Error Handling in VBA.

[boboivan]

Thank you cyanidem!

Fix it!

[cyanidem]