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

  • 文章
  • 適用於:
    Access 2007, Access 2003, Access 2002

中等：需要基本宏、編碼和互操作性技能。

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

摘要

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

其他相關資訊

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

您可以使用 DoCmd 物件的 SetWarnings 方法來完成此作業，但您可能偏好停用整個應用程式的警告。 若要這樣做，您可以使用Application物件的SetOption方法。 不過，如果您這樣做，您也應該在應用程式結束時重新開啟警告。

若要在簡單的單一表體應用程式中執行此動作，請遵循下列步驟：

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

  2. 從 Northwind.mdb 範例資料庫匯入 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. 將星號 (*) 從欄位清單拖曳至查詢設計方格的第一欄，然後將 Country 字段拖曳至第二欄。

  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 窗體載入並卸除時重新啟用時，會停用應用程式的確認選項。 在更複雜的應用程式中，您可能會在啟動表單或切換板中執行相同的動作。