Null Query

[WinDancer]

I have a select query that works perfectly.

If the query is empty I want a messagebox that tells the user there is no matching record.

I can't seem to get the code to do this.

I have been working with the NZ() function but can't make it work...

Can someone get me started?

Thanks,
Dave

 

[boblarson]

You can use a DCount on the form to check first:

If DCount("*","YourQueryName") = 0 Then
   MsgBox "There is no matching record.", vbInformation, "No Record"
Else
   DoCmd.OpenQuery "YourQueryName"
End If

Although I don't like opening queries direct (I use a form for them so there is more control over things).

 

[WinDancer]

Thanks, Bob. It runs perfectly