Open Same Report from Popup and Home Form

[adrienne_r30]

I have a dilemma and I can't figure out the best way to go about this.

I have a few reports that I open using different criteria, therefore producing a number of different reports.
I have a popup form that displays all of these reports. As it is common knowledge, a report opens behind popup forms. I alleviated this problem by making the visibility of the popup false when I open the report and true when I close the report...which works just fine. I put this code in the onopen and onclose event of the report.

I recently added some of these reports to my home page for quick access to more important reports. So now the problem is made, since my popup form is not open yet, an error occurs when I try to open the report saying that it can not find the popup form.

I've tried many different approaches, none of which has worked thus far. The one approach that I think may work is,

onopen event of my report, make an if statement,
if the form that I open the popup form is open, then close the popup form

onclose event of my report, make an if statement,
if the form that I open the popup form in open, then open the popup form.

if this makes sense then I need help creating these if statements because I keep getting an error when I try to do it.

if this does not make sense, does anyone else have any suggestions?

 

[pbaldy]

Two ways come to mind. First is searching here on "IsLoaded" to find the code to test whether the form is open (loaded). Second is the lazy way, use

On Error Resume Next

in the code that sets the visibility of the form.

 

[adrienne_r30]

Thanks for the reply. I searched the IsLoaded and came up with code that worked;

Private Sub Report_Close()
If CurrentProject.AllForms("frm_Main_Reports").IsLoaded Then
Forms!frm_Main_Specific_Reports_Project.Visible = True
End If
End Sub
Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("frm_Main_Reports").IsLoaded Then
Forms!frm_Main_Specific_Reports_Project.Visible = False
End If
End Sub

 

[pbaldy]

Happy to help.