Print report if is not blank

[tdbeargrrl]

I am trying to limit the number of buttons on the switchboard and make this easier to use for a very novice user. I want to have one button that prints all the reports that have been compiled during the day. If the report does not have any data in it I don't want it to print. Is there a way to do this? Each report pull from its own query - so if the query were empty the report would also be empty.

 

[mdthornton]

I normally do it like this....

In the NoData event for each report put:

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
End Sub

On Error Resume Next
DoCmd.OpenReport sReportName
' Trap system no data event
If Err = 2501 Then
Err.Clear
MsgBox sReportName + " has no data..."
End If
On Error GoTo WhereIWentBefore
Good Luck,
Mike

 

[Garridon]

See this FAQ:

http://www.tek-tips.com/faqs.cfm?spid=703&sfid=1594&CFID=48482663&CFTOKEN=68438765

Linda Adams
Visit my web site for writing and Microsoft Word tips:

http://www.hackman-adams.com

Official web site for actor David Hedison:

http://www.david-hedison.com