Close all forms? 1

[simon551]

Hi all,
is there a command for close all open forms?

Thanks in advance,
simon

 

[RoyVidar]

Have a look at this

http://www.mvps.org/access/forms/frm0040.htm

Roy-Vidar

 

[PHV]

You may try this:
For i = Forms.Count - 1 To 0 Step -1
If Forms(i).Name <> Screen.ActiveForm.Name Then
DoCmd.Close acForm, Forms(i).Name
End If
DoEvents
Next

Another (brute force) way:
Application.Quit

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[simon551]

you're my hero PHV! once again