Seeing if records for report exist 1

[bernie10]

Hey guys,
What's the easiest way to check if at least one record exists before opening a report (from a form). The report is based on a query which is in turn based on certain values from the form.

So what I want is

If Recordsexist then  [green]'What would this line be???[/green]
    DoCmd.OpenReport "MyReport", acViewPreview
    DoCmd.Close acForm, "MyForm"
Else 
    Msgbox ("No Records exist for this report.")
End If

Thanks for the help,
Collen

 

[RoyVidar]

You could do something priot to opening a report, use one of the domain aggragates with the same criteria as is used on the report, open a recordset, but the easiest, is probably to use the on no data event of the report. Just give the user a message, then add the line Cancel = True.

In the calling sub, be sure to handle the 2501, for instance like this:

[tt]on error resume next
DoCmd.OpenReport "MyReport", acViewPreview
if err.number=2501 then
err.clear
end if
on error goto <your error handler>[/tt]

Roy-Vidar

 

[bernie10]

That'll do it. Thanks!

Collen