Access 2013 - if no match after find first record do stuff

[boboivan]

Hello there!

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") & "'")
[COLOR=#ff0000][B][I]'something to add in here[/I][/B][/COLOR]
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!

 

[xenou]

Hi,
What is the error message?
What is the NoMatch code that you tried?

 

[boboivan]

Hi xenou!

I fixed it:
The working code is:

Private Sub Command0_Click()
If TempVars("CurrentUser") = "admin" Then
DoCmd.OpenForm "Events"
Else
On Error GoTo Handler
DoCmd.OpenForm "Events"
Forms("Events").Recordset.FindFirst "Event =" & DLookup("IDevent", "tblEvents", _
"IDevent=" & "IDevent" & " And [UserName] = '" & TempVars("CurrentUser") & "'")
Handler:
End If
End Sub

Thx anyway!

 

[xenou]

Okay, not sure what you're after but other examples are here (using a different approach which may or may not be what you're after):
Microsoft Access tips: Using a Combo Box to Find Records
FindFirst