Form を全て閉じるサンプル
Dim AccObj As AccessObject
For Each AccObj In CurrentProject.AllForms
If AccObj.IsLoaded Then
DoCmd.Close AcObjectType.acForm, AccObj.Name, AcCloseSave.acSaveNo
End If
Next■ 参考資料
CurrentProject.AllForms プロパティhttps://msdn.microsoft.com/ja-jp/library/office/ff193455.aspx
Is it possible to use VBA code to close all open objects (forms, tables etc.)?
http://bytes.com/topic/access/answers/614454-possible-use-vba-code-close-all-open-objects-forms-tables-etc
