Stop Form from opening when query is blank

[anpmm2]

I have a button that opens a form based on a query, the query is filtered based on an input field. This works great except when the user typos what they put into the input field. Since the query pulls no records it just opens a blank form. I want it to not open the form and instead open a message box telling the user the data they entered is not valid and to try again. I cannot figure how to do this. Please help.

[pbaldy]

One way among many:

If DCount("*", "QueryName") > 0 Then
  DoCmd.OpenForm...
Else
  Msgbox "No records exist"
End If