Access命令DoCmd.Quit使用经验之一(运行时错误 ‘2046’: 命令或操作”Quit“当前不可用)

2017-07-29 12:50:00
zstmtony
原创
307

在Access主界面窗体的卸载事件里(Unlod),通常我们会加上以下VBA代码,以便提醒用户是否真的想退出整个系统,让用户有一个确认的过程:


Private Sub Form_Unload(cancel As Integer)
  
  If gf_MsgBox("您确定要退出整个管理系统吗?", vbYesNo + vbDefaultButton2) = vbYes Then
  
      DoCmd.Quit acQuitSaveNone
  
  Else
     Cancel=True   '取消退出
  End If

End Sub
如果我们正常手工关闭这个主界面,或关闭整 个Access数据库时,这个提示都会正常的


但昨天尝试在Access2007 中, 选择窗体 选卡 右键 “全部关闭”  或关闭 主界面,关闭时却提示以下错误

 提示以下错误:

  运行时错误 ‘2046’:
  命令或操作”Quit“当前不可用。
 
 进行代码调试,代码停在这句上面 

  DoCmd.Quit acQuitSaveNone


   原来在这个场景下,这个命令不能使用


   后来 在这句前面加一个忽略所有错误的代码

     On Error Resume Next
     DoCmd.Quit acQuitSaveNone


   解决这个问题。

   另在软件主界面再加上一个退出按钮,让用户主动关闭整个软件。

    分享