Closing forms in an event procedure

[Guest]

Can anyone tell me the correct code for closing all open forms using an event
procedure?

 

[Rick Brandt]

Can anyone tell me the correct code for closing all open forms using an event
procedure?

Sub CloseAllForms()

Dim i As Integer

For i = Forms.Count - 1 To 0 Step -1
DoCmd.Close acForm, Forms(i).Name
Next i

End Sub

 

[Guest]

Thanks for the advice. I should have said that I want to leave the active
form open. How would this change the code?