Sub CloseAllForms()
Do Until Forms.Count = 0
DoCmd.Close acForm, Forms(0).Name
Loop
End Sub

GeoТолько это не будет работать с несколькими экземплярами формы.
У меня работает. Что я неправильно делаю? :-)

авторА если в коллекции нет ни одной формы хотя бы в одном экземпляре, то значит нет и в нескольких экземплярах? :-)
Осторожнее надо, чуть голову не сломал, читая это :-)

авторDoCmd.Close acForm, имя - это единственный способ закрыть форму??? Только по имени??
Ну почему, есть и кнопка X :)
Если форма открыта через объектную переменную, то тоже понятно как ее можно закрыть.
авторЕсли открыто 10 форм под названием MyForm и у каждой в кнопке "Выход" написано
DoCmd.Close acForm, Me.Name
то кнопка "Выход" закрывает произвольную форму из 10???
Да, действительно, кнопка закрывает первую из форм. Т.е. нажимаем кнопку выход (в которой DoCmd.Close acForm, Me.Name) на одной форме, а может закрытся другая (проверено).
Правда, можно закрывать форму командой DoCmd.Close. Тогда закрывается активная форма. Но мне кажется, что иногда бываю глюки, может просто кажется...

авторИ выходит, что на форме, открываемой в нескольких экземплярах, невозможно сделать кнопку "Выход"???
Ну почему? Кнопку-то можно, только код делать другой, например, вызывающий действие по сбросу объектной переменной.

авторМеняй ей Caption при открытии, а потом проверяй его на соответствие в For Each
Только как это поможет закрыть конкретную форму?
Все формы и так закрываются по по приведеному мной коду.

Ну схемы же могут быть разные.
Сейчас я обычно делаю ссылку на форму в самой форме.

Private mfrmMe As Access.Form

Private Sub Form_Open(Cancel As Integer)
Set mfrmMe = Me
End Sub

Тогда на кнопку "Выход":

Private Sub cmdClose_Click()
Set mfrmMe = Nothing
End Sub

И все...

авторНо это только если mfrmMe является последней ссылкой на форму.
Как понять последней? Она является единственной для данного экземпляра формы.
автор
А где та ссылка, при помощи которой форма была открыта? Она ведь была открыта через Set...New?
Она сделала свое дело и давно умерла.
Это же рассматривалось в топике топике экземпляры форм.

автор автор
Она сделала свое дело и давно умерла.

Ну, ОК. Об этом надо дополнительно заботиться. Ведь если я буду пользоваться одной переменной для открывания всех этих форм, то в каждый момент времени эта переменная будет содержать ссылку на последнюю открытую форму. Это был бы красивый баг, если бы не удавалось закрыть именно ту форму, которая открыта последней.

Извини Владимир Саныч (ты вроде просил не использовать местоимение вы),
но ты, мне кажется не совсем понял.
В каждый момент времени этой переменной просто нет поэтому и ссылки она содержать не может.
Вот примерная процедура открытия экземпляра формы
Public Function OpenFormInstance()
Dim frm As Form_Form1
Set frm = New Form_Form1
frm.Initialize
Set frm = Nothing
End Function
В Initialize я кое что проверяю и делаю форму видимой.
Заметь, что ссылка приватная и убивается. А форма живет своей жизнью с помощью ссылки, которая содержится в ней самой.

авторИ это будет баг.
Конечно, поэтому я это и не рассматривал, а привел одну из схем, кажущуюся мне наиболее простой и легко управляемой. Не надо ни за чем следить (например за коллекций форм), форма сама себя контролирует.
Согласись, ведь это самый простой вариант. И кнопка "Выход" работает :-)

Спасибо Владимир Саныч за общение, но надо еще немного поработать и спать, а то время у меня уже половина третьего :(
Спокойной ночи.