やり方
フォームに読み込み解除時のイベントを登録。
読み込み解除時のイベントコード
Private Sub Form_Unload(Cancel As Integer)
Application.Quit
End Sub
いちいちマウスで右上の×ボタン押さなくても Command + W
でフォームを閉じると同時にファイルも閉じられる。
だが…。これだとフォームを閉じたり、 デザインモードで開いた時 に 問答無用でファイルが閉じてしまいます 。
フォーム自体を編集したい場合は開発者モードで開く必要が出ます。
(開発者モードで開く = Shift + ダブルクリックでファイル開く)
若干改良版
読み込み解除時のイベントコード
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("ファイル閉じるのん?", vbYesNo + vbDefaultButton1, "確認") = vbYes Then
Application.Quit
Exit Sub
End If
End Sub
デフォルトの選択肢がYesなので、通常使う時はCommand + W ⇒ Enterのキーボード操作だけでファイルを閉じられます。
フォームをデザインモードで変更したい時はダイアログでいいえを選択すればOK。
バージョン
Windows 10 Pro 21H2 OSビルド 19044.1865
Microsoft Access for Microsoft 365 MSO (バージョン 2207 ビルド 16.0.15427.20166) 32 ビット