ソフト終了時の定番 ： Access

---

Home　Tips　メニュー

■ Access VBA 実行コード

'終了ボタンがクリックされた
Private Sub 終了_Click()
    'Unload時にキャンセルされるとエラーになるのでエラーは無視します
    On Error Resume Next
    DoCmd.Close
End Sub
'フォームの読み込み解除時
Private Sub Form_Unload(Cancel As Integer)
  Beep
  If MsgBox("人事管理ソフトを終了してよろしいですか？", vbYesNo + vbQuestion, "FeedSoft") = vbYes Then
    '終了します。
    On Error Resume Next
    Application.Quit
  Else
    '終了しない場合
    Cancel = True
  End If
End Sub