スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　expression.Quit(Options)

設定項目　　内容
expression　Applicationオブジェクト［省略可能］
Options　　 未保存のオブジェクトに対する処理をAcQuitOptionクラスの定数で指定［省略可能］

構文　expression.Quit(Options)

設定項目　　内容
expression　DoCmdオブジェクト［省略不可］
Options　　 未保存のオブジェクトに対する処理をAcQuitOptionクラスの定数で指定［省略可能］

Accessを終了します。メニューから［ファイル］→［終了］コマンドを実行したときと同じ動作を行います。引数は、オブジェクトに加えられた変更を保存するかどうかを指定します。指定は「保存する」［保存しない」「ダイアログボックスで確認する」の3通りあります。引数を省略すると、acQuitSaveAllが指定されたこととなり、変更を保存してAccessを終了します。

・引数に指定する定数（AcQuitOptionクラス）

定数　　　　　　説明
acQuitPrompt　　変更があったときのみ、変更を保存するかしないかの確認ダイアログを表示する
acQuitSaveAll　 変更を保存する（既定値）
acQuitSaveNone　変更を保存しない

●サンプル●
Sub QuitSample()
    Dim myButton As Integer
    myButton = MsgBox("アクセスを終了します　よろしいですか？", vbYesNo)
    If myButton = vbYes Then
        Application.Quit
　　　　'Access95との互換性を保つ場合はこちらを記述
        'DoCmd.Quit
    End If
End Sub