vba to check if subform open in navigation form

[mlrucci]

Hello all,
I am attempting to check and see if a sub form in a navigation form is open. I am using

If CurrentProject.AllForms([Forms]![frmNav1]![frmNav2].[Form].[subfrm]).IsLoaded = True Then 
        MsgBox ("test")
End If

The sub form is 2 navigation forms deep. Usually when I refer to a control with in that form, I go to the control in the form because the system sees the form as a control. Example: [Forms]![frmNav1]![frmNav2].[Form].[ctl], but for this purpose, I do not want to check for the control inside the sub sub form. With that being said and that I know navigation forms are not preferred, this is what I have and do not want to redo the whole db. I know I am overlooking something ridiculous, but could use some insight.



Thank you!

[Micron]

My guess is that you'll have to post a sample db with said forms or at least clarify if those are the real form names that you created. I had a quick play and couldn't even get a nav form on a nav form to set up correctly.

[mlrucci]

Micron, thank you for your response. I have built a very simple example of what I am looking for. I know it is something stupid I am missing.

TestSubOpen.accdb

Thank you

[Micron]

If memory serves, subforms are not part of the collection of open forms thus I suspect they are never "loaded" such that you can test using Application.AllForms reference. Therefore it seems you would have to refer to a control on the sub sub by using

Forms("frmNavMain").[navigationsubform].form.[navigationsubform].form.controls("cmdPopup").caption

and trap the error that will result in trying to retrieve a property or value of something on the form if it isn't "loaded" into the navigation form.

EDIT- turns out that the reference is simpler; e.g.
Currentproject.AllForms("subfrm2").Isloaded but the answer is False, so it is as I suspected. Subforms are not "loaded" into the Forms collection.

[mlrucci]

Thank you for the insight. Sometimes it can be so frustrating. For those of you that need to do the above, I came up with a "band-aid" solution. I assigned a number to the each of the sub forms in the navigation form. I wrote code to look for the OpenForm number and went from there. Know it isn't the best solution, but it works, and my brain can finally shut down..lol Appreciate the help!

[June7]

Assign number where, look for where? Would you like to share the code?

[mlrucci]

I simply created an unbound txt box with default number for each of the forms I need to check to see if open. Then had the system look for that number and used a case statement. Know it isn’t the best solution, but it worked. Nothing complex, just a work around.

[June7]

So one UNBOUND textbox and code populates it with a number when navigation button is clicked?

[mlrucci]

Yep. It is difficult working with the navigation forms as some things are just not the same. Have to be creative and unconventional at times