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

中級使用者: 需要基本巨集、 編碼和交互操作性技巧。


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

摘要

本文將告訴您,如何使用Application.SetOption方法來停用存取應用程式中的警告訊息。

更多的資訊

Microsoft 提供程式設計範例僅供說明,不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序中,功能,但它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。巨集指令查詢和其他處理程序新增、 刪除或修改資料通常向使用者呈現的資料是即將修改的警告。在執行階段應用程式中,不過,它通常會以停用警告,因為檢查與預防措施,通常是在使用者控制之外。

您可以使用SetWarnings DoCmd物件方法,來完成這,但您可能會希望停用整個應用程式的警告。若要這樣做,您可以使用SetOption方法的應用程式物件。不過,如果您這麼做時,您應該也開啟一步警告,如應用程式結束。


簡單、 一個表單的應用程式中執行這項操作,請依照下列步驟執行:

  1. 啟動 Access,然後再建立一個名為測試回合的空白資料庫。

  2. 匯入 [客戶] 資料表,請從北風資料庫的範例資料庫。

  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. 在 [設計] 檢視中,建立新的查詢,然後再新增 [客戶] 資料表。

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

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

  11. 在查詢設計格線中,第一欄,然後從欄位清單中拖曳星號 (*),然後將 [國家] 欄位拖曳到第二個資料行。

  12. 在 [國家] 欄的 [準則] 列中,輸入下列:
    Forms![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
  18. 關閉 Visual Basic 編輯器] 中,然後儲存並關閉表單。

  19. 開啟 [DeleteCustomers] 表單,選取一個國家/地區,,然後按一下指令按鈕。


    請注意,沒有 [警告] 對話方塊隨即出現。

在這個範例中,應用程式會確認 DeleteCustomers 表單是載入和卸載時,重新啟用時,會停用選項。在更複雜的應用程式中,您可能會執行相同的動作,在啟動表單或切換表單。

需要更多協助?

擴展您的技能
探索訓練
優先取得新功能
加入 Microsoft 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

×