Empty report condition

[Guest]

What is the correct way to handle the 'empty report condition'?
Currently, I have an event procedure set up which displays a message.
However, the procedure that opens the report also has an 'on error' handler
and this is being triggered and so shows a second message.

 

[Duane Hookom]

"the procedure that opens the report also has an 'on error' handler" should
ignore error number 2501.

 

[fredg]

What is the correct way to handle the 'empty report condition'?
Currently, I have an event procedure set up which displays a message.
However, the procedure that opens the report also has an 'on error' handler
and this is being triggered and so shows a second message.

Code the Report's OnNoData event:

MsgBox "Sorry, no records to report on."
Cancel = True

The above will generate error 2501 if you have opened the report from
an event.
Trap the error in that event:

On Error Goto Err_Handler
DoCmd.OpenReport "ReportName", acViewPreview
Exit_This_Sub:
ExitSub
Err_Handler:
If Err = 2501 Then
Else
MsgBox "Error #: " & Err.Number & " " & Err.Description
End If
Resume Exit_This_Sub