Goto label for error handling 1

[xsnrg]

I have some reports that when they are run, if there is no data, return an ugly error.

I want to make my own error dialog box in this case so I attempted the following...

On Error GoTo Rpt_NoData
code for running the report

exit_Rpt:
End Sub

Rpt_NoData:
MsgBox "There are no records", etc...
Resume exit_Rpt

But I'm getting a compile error on the line...
On Error GoTo Rpt_NoData
The error says the label is not defined...

Did I miss something silly here... this should work.

 

[RoyVidar]

Try:

[tt]On Error GoTo Rpt_NoData
code for running the report

exit_Rpt:
exit Sub

Rpt_NoData:
if err.number=2501 then
MsgBox "There are no records"
else
msgbox err.description
end if
Resume exit_Rpt
End Sub[/tt]

Roy-Vidar

 

[FancyPrairie]

You can trap the error within the report itself via the OnNoData property of the report. Stick your own message there and set Cancel=True.