Closing multiple report previews

[Kirk P.]

I've got a form that launches 2 reports in report preview mode. I would like
BOTH reports to close when clicking the X, or when clicking Close on the
Preview toolbar. How can I accomplish this?

 

[Allen Browne]

In the Close event procedure of Report1:

If CurrentProject.AllReports("Report2").IsLoaded Then
DoCmd.Close acReport, "Report2"
End If

And vice versa.

 

[Kirk P.]

It's throwing a 2585 run-time error - this action can't be carried out while
processing a form or report event.

 

[Allen Browne]

The idea is to put the name of the other report in there (not the one that
is already closing.)

 

[Kirk P.]

I think I've got it right. Here's the code

In Close Event of rptMissingBU

Sub Report_Close()
If CurrentProject.AllReports("rptMissingGLAcct").IsLoaded Then
DoCmd.Close acReport, "rptMissingGLAcct"
End If
End Sub
________________________________________________________

In Close Event of rptMissingGLAcct

Sub Report_Close()
If CurrentProject.AllReports("rptMissingBU").IsLoaded Then
DoCmd.Close acReport, "rptMissingBU"
End If
End Sub

Still getting that pesky error message.

 

[Allen Browne]

Good you have it working.

I imagine something else is causing the error.

It would be good to track and down and deal with it properly, but you can
suppress it with error handling. If that's a foreign concept, see:
Error Handling in VBA
at:
http://allenbrowne.com/ser-23a.html

 

[Kirk P.]

Got it. Thanks again for the help!

Good you have it working.

I imagine something else is causing the error.

It would be good to track and down and deal with it properly, but you can
suppress it with error handling. If that's a foreign concept, see:
Error Handling in VBA
at:
http://allenbrowne.com/ser-23a.html