別のフォームを閉じる方法を教えてください

質問

アクセスで、２つのフォームＡ，Ｂが開いている場合（Ｂは最小化となっています）、フォームＡを閉じる時（コマンドボタンAAをクリックした時）、フォームＢも閉じたい場合の方法を教えてください。よろしくお願いします。

回答No.1

tsukasa-12r · ベストアンサー

DoCmd.Close acForm "フォームA"
DoCmd.Close acForm "フォームB"
のような感じになるかと。
ちなみに、開いているフォームを全て閉じるなら
Dim f As Form
Dim i As Integer

For i = 1 To Forms.Count
Set f = Forms.Item(0)
DoCmd.Close acForm, f.Name
Next i
のような感じでできます。

お礼

お礼が遅くなって申し訳ありませんでした。Set f = Forms.Item(0)
DoCmd.Close acForm, f.Nameを参考にして、できました。本当に助かりました。