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