ник: Дядя Федор
Как ни странно, отлично работает такой код
Public Sub closeall()
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
Do While Reports.Count > 0
DoCmd.Close acReport, Reports(0).Name
Loop
End Sub
|
===================
Лучше оформить в виде функции и назначить в макросе autokeys какую-нибудь клавишу
^{F7} - запускПрограммы
...
Имя функции closeall()
===================
и будет вам счастье...
