No Data on report error

[tweety]

I have this code written when do data is found in the report



Private Sub Report_NoData(Cancel As Integer)
MsgBox "No Data to show on the report"
DoCmd.Close

End Sub

it works fine, displays a error messge and doesnt load an empty report but i get the runtime error 2585 which stops the debug at this line

DoCmd.Close

any ideas anyone?

[Bob Fitz]

Try:

Private Sub Report_NoData(Cancel As Integer)
MsgBox "No Data to show on the report"
Cancel = True

End Sub

[tweety]

i have tried with your code, which solves the problem with the runtime error, however the line of code: "Cancel = True is" is showing another message saying: the openReport action was canceled. If i comment that line out then a blank report opens up. is there something so solve this.

[Bob Fitz]

The error message is generated by the sub procedure that opens the report and can be dealt with by catching Err.Number 2501.

[tweety]

can you explain a bit more please? thanks

[Bob Fitz]

can you explain a bit more please? thanks

Sorry for the delay in making a reply. Take a look at the db attached. Post back if you have any further questions.

[tweety]

i have tried to apply the error handling message in my system but iam having problems, how do i know which error code to put in?

[Bob Fitz]

i have tried to apply the error handling message in my system but iam having problems, how do i know which error code to put in?

The error handling code for the buttton called "Basic Error Handling" gives you the Err.Number value in a message box. This is the number that is tested for in the error handling code in the button called "Specific Error Handling". In this case it is 2501.

[Bob Fitz]

You may find the following link of interest:
http://www.fmsinc.com/tpapers/vbacode/Debug.asp