docmd.close

[dimpie]

Hi - I am trying to close all the forms before opening the main form.

With this command docmd.close, i can close only one form. I would like to
close all open forms and then open the main form. How can i do this??

here is what i presently have

docmd.close
docms.openform "Main form"


any help is appreciated.

Thanks

 

[Rick Brandt]

Hi - I am trying to close all the forms before opening the main form.

With this command docmd.close, i can close only one form. I would
like to close all open forms and then open the main form. How can i
do this??

here is what i presently have

docmd.close
docms.openform "Main form"


any help is appreciated.

Thanks

Dim i as Integer
i = Forms.Count - 1

Do Until i < 0
DoCmd.Close acForm Forms(i).Name
i = i - 1
Loop

It is important that you loop through the collection from highest to lowest for
the value of i instead of lowest to highest. Otherwise you will close every
other form instead of all of them.

 

[John W. Vinson]

Hi - I am trying to close all the forms before opening the main form.

With this command docmd.close, i can close only one form. I would like to
close all open forms and then open the main form. How can i do this??

here is what i presently have

docmd.close
docms.openform "Main form"

The database's Forms collection consists of all *open* forms: to close them,
loop through them in descending order:

Dim iPos As Integer
Dim db As DAO.Database
Set db = CurrentDb
For iPos = db.Forms.Count - 1 to 0 Step -1
DoCmd.Close acForm, db.Forms(iPos).Name
Next iPos


John W. Vinson [MVP]