VBAで全てのフォームを閉じる方法

質問

• VBAで全てのフォームを閉じる方法について説明します。
• サンプル1では、全ての開いているフォームをループで処理して順番に閉じることができます。
• 一方、サンプル2では、フォームを参照する番号が正しくないため、エラーが発生し閉じることができません。

回答No.2

DexMachina

【要旨】
Formsコレクションの最小Indexは「0」なので、ループ内での
最小値も「0」とする必要があります。

【詳細】

> どうして、サンプル２じゃダメなのか教えていただけますか？

FormsコレクションのIndexは、
　最小値は「0」
　最大値は「開いているフォームの数-1」
です。
http://technet.microsoft.com/ja-jp/subscriptions/dd589727%28v=office.11%29.aspx

なので、2つのフォームが開いているときに存在するのは
　Forms(0)、Forms(1)
になります。

ここで、サンプル1・サンプル2でのintCntを確認すると、
　サンプル1：　Forms.Count-1～0　→　1～0
　サンプル2：　1～Forms.Count　→　1～2
となり、サンプル2では、存在しない「Forms(2)」に対して
Nameプロパティを参照してしまいます。
これが、エラーの原因です。
(なお、DoCmd.Close自体は、現在開いていないフォーム
　を指定しても、エラーにはなりません。今回ご質問の
　エラーは、あくまで「Forms(2)」を参照しようとした
　ところで発生します)

では、サンプル2のintCntの範囲が「0～1」となるように

Sub サンプル2()
　　Dim intCnt As Integer

　　For intCnt = 1 To Forms.Count
　　　　DoCmd.Close acForm, Forms(intCnt).Name
　　Next

End Sub

とすればOkかというと、これもエラーとなります。
これは、(既にnicotinismさんからも説明がありますが)
1つ目のフォームが閉じられたところで、Formsコレクションの
Indexは連番になるように割り当て直されてしまうためです。
(この再割当をせず、閉じた番号分が欠番のままとされて
　しまうと、今度はForms.CountでIndexの最大値を取得
　できない、という問題が発生するため、再割当は必須、と)

ですので、サンプル2のパターンで正常動作をさせるには、
ループ内でのIndexを「0」で固定(=Formsコレクションで
管理されている先頭のフォームを常に対象)としてやれば
Ok、となります。

Sub サンプル2()
　　Dim intCnt As Integer

　　For intCnt = 1 To Forms.Count
　　　　DoCmd.Close acForm, Forms(0).Name
　　Next

End Sub

お礼

ありがとうございました。