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

Question

尽快回答

Answer 1

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 方法来代替。

Answer 2

docmd.quit本回答被提问者采纳