Query With No results

[cah1982]

Right my query is working fine and creating a report this is how it works,

User clicks button , it runs the query report and prints it, it then updates the records so it doesnt print these again. here the script is

On Error GoTo Err_Command45_Click

Dim stDocName As String

stDocName = "Goods In Today"
DoCmd.OpenReport stDocName, acNormal
DoCmd.SetWarnings False
DoCmd.OpenQuery "Goods In Today (Make Printed)"
DoCmd.SetWarnings True

Exit_Command45_Click:
Exit Sub

Err_Command45_Click:
MsgBox Err.Description
Resume Exit_Command45_Click


Now what i`d like it to do is when the query runs and doesnt find a match it comes up with a message "No Results". How would i go about doing this

Thanks