ソフト終了時の定番 ： Access

■ 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