loop through all forms 1

[belovedcej]

I have a main screen which I may be opening from any number of locations.

I want to close whatever I am on after opening the main screen without having to code an individual button. Instead, I'm just using a menu button with a macro telling it to run a function which opens the main form and close the other.

My thought was to simply loop through each form in the system and do an "if is open, close".

My problem is that since this is an adp file, I don't have a system table showing me all the forms in my project. How can I loop through all the forms in this case?

On the other hand, if there is a better solution, I am all ears.

 

[PWise]

run this on form load

Dim frm As Form
For Each frm In Application.Forms
If frm.Name <> Me.Name Then DoCmd.Close acForm, frm.Name
Next

 

[belovedcej]

Perfect - thanks!!

 

[ESquared]

This way of closing all the objects in a collection can work (and does with Access Forms), but it can also fail sometimes in certain instances. The reason it can fail is that the parent class which performs the enumeration you are stepping through does not always maintain its list correctly once you close one of the objects. I have seen instances where using the "for each x in collection: x.close" syntax fails or only closes half the objects (as they move "upward" in the list as you close each item, then the "next" operation occurs which ends up skipping one item).

A more reliable method in every instance is:

Do While Application.Forms.Count > 0
   DoCmd.Close acForm, Applications.Forms(0).Name
Loop

This will function in all circumstances and will not run into problems with the enumeration method of any collection. Good programming habit suggests getting used to using this method in order to avoid any possible problems in the future--problems not always detected at design time.

Erik