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

質問

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

回答No.3

30246kiku

Access で良かったでしょうか。

＃１さんと被る部分があると思いますが、説明の練習と思って頂ければと・・・

全フォームを閉じたいのですよね。
以下を実行してみて、動きはどうなりますか

Public Sub Sample3()
　　Dim iCnt As Integer

　　On Error GoTo ERR_HND
　　iCnt = 0
　　While (Forms.Count > iCnt)
　　　　DoCmd.Close acForm, Forms(iCnt).Name, acSaveNo
　　Wend
　　Exit Sub

ERR_HND:
　　iCnt = iCnt + 1
　　Resume Next
End Sub

上記はチョッとわかりにくいですか。エラー処理を省いた以下ではどうでしょう。

Public Sub Sample3Kai()
　　While (Forms.Count > 0)
　　　　DoCmd.Close acForm, Forms(0).Name, acSaveNo
　　Wend
End Sub

これは、Forms.Count が 0 になるまで、Forms(0).Name で閉じていくものになります。
Forms(0) が閉じられたと同時に、Forms(0) で見えていたものが消えます。
ですが、すぐにまた 0 ～ 参照できるように作り直されます。
開いているフォームの個数は、Forms.Count で知ることが出来ます。

For i = 0 to Forms.Count - 1　と記述すると、記述した時点の Forms.Count 分ループします。
なので、ループ途中で閉じて、Forms.Count が減っても、その値は参照されません。

フォームを開いていない時に
For i = Forms.Count - 1 to 0 Step -1
とした場合、
For i = -1 to 0 Step -1 と記述したことと同じになり、１度もループ内を処理することはありません。
また、For i = 1 to 0 の記述でもループ内を処理することはありません。

Forms.Count の変化を見ながら処理したい場合は、冒頭で示した Sample3 の様に
都度判別するような記述が必要になります。

また、Sample3 の処理では、フォームを閉じようとしたけど閉じれなかった・・・
・何らかのエラー
・「読み込み解除時」　Form_Unload(Cancel As Integer)　で Cancel = True していた
これらの時は、閉じるのはあきらめて次を閉じましょう・・・
というものになっています。

お礼

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