#231
あるフォームから別のフォームを開いたり、レポートのプレビューを開いたりすることはよくあることです。そのような場合に、メインとなるフォームを閉じたら、そこから開かれた他のフォームやレポートのプレビューも一緒に閉じる方法です。
それには、メインとなるフォームに、次のような"Close/閉じる時"イベントプロシージャを組み込みます。
Private Sub Form_Close()
'フォームを閉じるとき
'関連するフォームを閉じる
DoCmd.Close acForm, "フォーム2"
DoCmd.Close acForm, "フォーム3"
'関連するレポートのプレビューを閉じる
DoCmd.Close acReport, "レポート1"
DoCmd.Close acReport, "レポート2"
End Sub
'フォームを閉じるとき
'関連するフォームを閉じる
DoCmd.Close acForm, "フォーム2"
DoCmd.Close acForm, "フォーム3"
'関連するレポートのプレビューを閉じる
DoCmd.Close acReport, "レポート1"
DoCmd.Close acReport, "レポート2"
End Sub
※「DoCmd.Close」では、対象となるフォームやレポートが開いていなくてもエラーは発生しません。したがって、それらのフォームやレポートが開いているかどうかの確認、あるいはエラー処理は必要ありません。
