Access命令DoCmd.Quit使用經(jīng)驗之一（運行時錯誤 ‘2046’: 命令或操作”Quit“當(dāng)前不可用)

在Access主界面窗體的卸載事件里（Unlod)，通常我們會加上以下VBA代碼，以便提醒用戶是否真的想退出整個系統(tǒng)，讓用戶有一個確認(rèn)的過程：

Private Sub Form_Unload(cancel As Integer)
  
  If gf_MsgBox("您確定要退出整個管理系統(tǒng)嗎?", vbYesNo + vbDefaultButton2) = vbYes Then
  
      DoCmd.Quit acQuitSaveNone
  
  Else
     Cancel=True   '取消退出
  End If

End Sub

但昨天嘗試在Access2007 中， 選擇窗體 選卡 右鍵 “全部關(guān)閉”  或關(guān)閉 主界面，關(guān)閉時卻提示以下錯誤

 提示以下錯誤：

  運行時錯誤 ‘2046’:
  命令或操作”Quit“當(dāng)前不可用。
 
 進行代碼調(diào)試，代碼停在這句上面 

  DoCmd.Quit acQuitSaveNone

   原來在這個場景下，這個命令不能使用

   后來 在這句前面加一個忽略所有錯誤的代碼

     On Error Resume Next
     DoCmd.Quit acQuitSaveNone

   解決這個問題。

   另在軟件主界面再加上一個退出按鈕，讓用戶主動關(guān)閉整個軟件。