| フォーム：開いているフォームをすべて閉じる |
|
対象バージョン : 97, 2000, 2002, 2003
最終更新日 : 1999/11/23 (オリジナル作成日：1999/11/23)
概 要
開いているフォームをすべて閉じる方法です。
解 説
その時点で開いているフォームは、Forms コレクションを調べれば分かりますが、開いているフォームを閉じると、これに応じて Forms コレクションも変化するため、For Each でのループではすべてのフォームを閉じることができません。
このため、Forms コレクションの最後から閉じるようにします。
Dim intFrm As Integer
For intFrm = Forms.Count - 1 To 0 Step -1
DoCmd.Close acForm, Forms(intFrm).Name
Next
