'----------------------------------------------------------- ' ' Docmd.Quite[終了時の処理」 ' ' [終了時の処理] ' acQuitPrompt :保存するかの問い合わせをおこなう ' acQuitSaveAll :保存して終了（規定値） ' acQuitSaveNone: 変更内容を破棄して終了 ' '