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

在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

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

 提示以下错误：

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

  DoCmd.Quit acQuitSaveNone

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

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

     On Error Resume Next
     DoCmd.Quit acQuitSaveNone

   解决这个问题。

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