Not opening a report if there are no records 1

[NHogan]

Currently, I am launching a report from a button on a form. There is a date field and I filter on the entered date on the report. Everything works fine, but if there are no records for a specific date, then it launches an empty report.

Can I give the user a message box saying that there are no records without launching the report? Please help

 

[essnrv]

Before Opening the report check whether is there any record or not.Best way to do is.

dim strKeyField as string

strKeyfield=Dlookup("[Your Key Field]","[Your table or query]","Your criteria&quot
if Isnull(strKeyField) then
msgbox "No matching records"
else
'Open Report
end if

 

[NHogan]

Thanks, that worked great. I had to change it around a bit but it's exactly what I was looking for.

If Isnull(Dlookup("[Your Key Field]","[Your table or query]","Your criteria&quot)
Msgbox "No matching records"
Else
Open Report
End If

Thanks again

 

[CosmoKramer]

For an alternate, I guess, cleaner way, see my response to the following thread:

thread703-412491