ACCESS VBA里有两种方法可以实现退出Access应用程序。
方法一
使用Application对象的Quit方法
例句：
Private?Sub?Command1_Click()Application.Quit?acQuitPrompt
End?Sub
代码中的“退出选项 ”
acQuitPrompt 是可选参数，显示一个对话框，询问用户是否要保存已更改但尚未保存的任何数据库对象。
还有另外两种选项，分别是：
acQuitSaveAll 默认?保存所有对象，而不显示对话；
acQuitSaveNone? 退出 Microsoft Access 而不保存任何对象。
如果不指定“退出选项 ”，例如?Application.Quit ?则系统默认选择?acQuitSaveAll，它不会弹出询问框，建议使用这个默认选项。
方法二
使用DoCmd对象的Quit方法
例句：
Private?Sub?Command2_Click()DoCmd.Quit?acQuitPrompt
End?Sub
代码中的“退出选项 ”
acQuitPrompt 是可选参数，显示一个对话框，询问用户是否要保存已更改但尚未保存的任何数据库对象。
还有另外两种选项，分别是：
acQuitSaveAll 默认?保存所有对象，而不显示对话；
acQuitSaveNone? 退出 Microsoft Access 而不保存任何对象。
如果不指定“退出选项 ”，例如?DoCmd.Quit ?则系统默认选择?acQuitSaveAll，它不会弹出询问框，建议使用这个默认选项。
说明：添加 DoCmd 对象的 Quit 方法是为了提供在 Microsoft Access for Windows 95 的 Visual Basic 代码中执行 Quit 操作的后向兼容性。微软推荐使用 Application 对象的 Quit 方法来代替。