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
Только как это поможет закрыть конкретную форму?
Все формы и так закрываются по по приведеному мной коду.