退出Access应用程序的VBA代码是啥？

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 &nbs