Dim frm As Access.Form
For Each frm In Application.Forms
If Not frm Is Application.Screen.ActiveForm Then
Application.DoCmd.Close Access.acForm, frm.Name
End If
Next frm
That only does forms in the forms collection -- but
people with object forms won't need this help anyway :~)
(david)
"Lumpierbritches" <lu*************@aol.com> wrote in message
news:20***************************@mb-m17.aol.com...
Thank you in advance for any and all assistance. It is greatly
appreciated.
I would like to know if there's a way to programatically close any open
form that doesn't have focus?
Michael