How to Ignore Err 2501

[Jojojo]

Hi!

When a report is run and there are no records, I have a msg box that pops up to advise the user, instead of seeing #Errors on the report.

But in some cases, I am still getting the erro 2501 message.

This is the code I used to try and ignore it (based on searching the problem on various forums), but the err 2501 message still pops up. Can someone tell me how to correct this code?

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo MyError
MsgBox "There are no expenses entered for those dates.", vbInformation, "No Data"
Cancel = True

MyExit:
Exit Sub

MyError:
If Err.Number = 2501 Then GoTo MyExit


MsgBox Err.Description
GoTo MyExit
End Sub

[pbaldy]

Here are the basics:

http://www.baldyweb.com/ErrorTrap.htm

Your code looks okay, but I think you have to trap for the error in the code that opens the report.

[Access_Blaster]

See if this helps.
http://access.mvps.org/access/reports/rpt0006.htm

[Jojojo]

See if this helps.
http://access.mvps.org/access/reports/rpt0006.htm

That worked perfectly! Thanks!