If EmpID is Numeric
If DCount("*", "YourQueryName", "EmpID =" & Me.EmpID) > 0 Then
DoCmd.OpenForm "FormName", , , "EmpID =" & Me.EmpID
Else
MsgBox "No Matching Record Found!"
End If
If EmpID is Text
If DCount("*", "YourQueryName", "EmpID ='" & Me.EmpID & "'") > 0 Then...