OnNoData System Error Msg

[Sandy]

Hello -

I put a messagebox in the Sub Report_NoData indicating no data for the
selected criteria. It works great, except that after my messagebox comes up,
another one comes up which says "The OpenReport action was cancelled."

I tried to turn it off by setting warnings to off before and after the
msgbox, but it still pops up.

Any suggestions on how to get rid of this?


Sandy

 

[fredg]

Hello -

I put a messagebox in the Sub Report_NoData indicating no data for the
selected criteria. It works great, except that after my messagebox comes up,
another one comes up which says "The OpenReport action was cancelled."

I tried to turn it off by setting warnings to off before and after the
msgbox, but it still pops up.

Any suggestions on how to get rid of this?

Sandy

That message is not a Warnings message, it's an error message.
You need to trap that error in the code you use to open the report:

On Error GoTo Err_Handler
DoCmd.OpenReport "ReportName", acViewPreview
Exit_Sub:
Exit Sub
Err_Handler:
If Err = 2501 then
Else
MsgBox "Error #: " & Err.Number & " " & Err.Description
End If
Resume Exit_Sub

 

[Ofer]

When there is no data, how did you close the report?

In the Report_NoData just put
Cancel = True
after the msgbox

 

[Roger Carlson]

If you want to see a working example, on my website
(www.rogersaccesslibrary.com), there is a small Access database sample
called "NoDataInReports.mdb" which illustrates how to do this.

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[Sandy]

Thanks for your response, Fred!

I tried the error trapping and still got the error.

Any other suggestions?

 

[Sandy]

Hi Ofer -

Thanks for responding! I already had "cancel = true" in my code.

I tried Fred's suggestion and that didn't work. Any other thoughts?

 

[fredg]

Thanks for your response, Fred!

I tried the error trapping and still got the error.

Any other suggestions?

Precisely where did you place the code?
It goes into the form event that you use to open the report, not in
the report.

 

[rajeev]

I also faced the same problem after puting a MsgBox and Cancel = tru
in the OnNoData . I solved the problem by opening the report through
macro, attaching this code Docmd RunMacro " mOpenMyReport"

- Rajee