如何使用 SetOption 停用 Access 應用程式中的警告訊息

注意

Office 365 專業增強版即將重新命名為 Microsoft 365 企業版應用程式。 如需關於此變更的詳細資訊,請閱讀此部落格文章

適中:需要基本的宏、編碼和互用性技能。

本文僅適用于 Microsoft Access 資料庫(.mdb 或 .accdb)。

摘要

本文說明如何使用 Application.SetOption 方法來停用 Access 應用程式中的警告訊息。

其他相關資訊

Microsoft 提供的程式設計範例僅供說明之用,並不具任何明示或暗示的責任擔保。 這包括 (但不限於) 任何目的之適售性及適用性的暗示責任擔保。 本文假設您熟悉示範的程式設計語言,也熟悉用以建立和偵錯程序的工具。 Microsoft 支援工程師可以協助說明特定程式的功能,但不會修改這些範例,以提供額外的功能或建立程式,以符合您的特定需求。動作查詢及其他新增、刪除或修改資料的處理常式通常會向使用者顯示資料即將修改的警告。 不過,在運行時應用程式中,通常需要停用警告,因為檢查和防範措施通常會超出使用者的控制範圍。

您可以使用 DoCmd 物件的 SetWarnings 方法來完成此作業,但是您可能想要針對整個應用程式停用警告。 若要這麼做,您可以使用 Application 物件的 SetOption 方法。 不過,如果您這麼做,您也應該在應用程式退出時,將警告重新開啟。

若要在簡單的單一表單應用程式中執行這項作業,請遵循下列步驟:

  1. 啟動 Access,然後建立名為 TestRun 的空白資料庫。

  2. 從 Northwind 範例資料庫匯入 Customers 資料表。

  3. 在 [設計檢視] 中建立新表單,然後將未結合的下拉式方塊新增至詳細資料區段。

  4. 設定下拉式方塊的下列屬性:

    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 
    
  5. 在表單的詳細資料區段中新增命令按鈕,並將其命名為 cmdDelete。

  6. 將命令按鈕的 OnClick 屬性設定為下列事件程序:

    DoCmd。 OpenQuery "qryDeleteCustomers"

  7. 關閉 Visual Basic 編輯器。

  8. 將表單儲存為 DeleteCustomers,然後將它關閉。

  9. 在 [設計檢視] 中建立新查詢,然後新增 [Customers] 資料表。

  10. 在 [Access 2002] 或 [Access 2003] 中,按一下 [查詢] 功能表上的 [刪除查詢]。

    在 Access 2007 中,按一下 [設計] 索引標籤上的 [查詢類型] 群組中的 [刪除]。

  11. 將星號(*)從欄位清單拖曳至查詢設計格線的第一欄,然後將國家/地區欄位拖曳到第二欄。

  12. 在 [地區] 欄的 [準則] 列中,輸入下列專案:

    形式![DeleteCustomers]![cboCountry]

  13. 將查詢儲存為 qryDeleteCustomers,然後將它關閉。

  14. 在表單檢視中開啟 DeleteCustomers 表單。

  15. 從下拉式方塊中選取一個國家/地區,按一下命令按鈕,並記下顯示的警告。 按一下 [警告] 對話方塊中的 [否]。

  16. 在 [設計檢視] 中開啟表單,然後按一下工具列上的 [程式碼] 按鈕。

  17. 在 [程式碼] 視窗中,輸入或貼上下列程式:

Private Sub Form_Load()

Application.SetOption "Confirm Action Queries", 0
   Application.SetOption "Confirm Document Deletions", 0
   Application.SetOption "Confirm Record Changes", 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Application.SetOption "Confirm Action Queries", 1
    Application.SetOption "Confirm Document Deletions", 1
    Application.SetOption "Confirm Record Changes", 1

End Sub

  1. 關閉 Visual Basic 編輯器,然後儲存並關閉表單。

  2. 開啟 DeleteCustomers 表單,選取國家/地區,然後按一下命令按鈕。

    請注意,不會顯示 [警告] 對話方塊。

在此範例中,當載入並重新啟用 DeleteCustomers 表單時,應用程式的確認選項會停用。 在更為精緻的應用程式中,您可以在啟動表單或切換面板中執行相同的動作。