> 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

Signature
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com
PRH - 19 Nov 2005 18:05 GMT
Thanks for the advice. I should have said that I want to leave the active
form open. How would this change the code?
> > Can anyone tell me the correct code for closing all open forms using an event
> > procedure?
[quoted text clipped - 8 lines]
>
> End Sub