フォーム:開いているフォームをすべて閉じる Hit Counter

対象バージョン : 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

 


目次へ戻る