References.ItemRemoved 事件 (Access)

ItemRemoved 事件發生時從專案中移除參照。

語法

運算式。ItemRemoved (參考)

表達 代表 References 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Reference	必要	Reference	從專案中移除的參照

註解

ItemRemoved 事件適用於 References 集合。 它與控制項、表單或報表沒有關聯，就像大多數其他事件一樣。 因此，若要建立 ItemRemoved 事件程序的程式定義，您必須使用特殊語法。

ItemRemoved事件在發生時只能執行事件程序;它無法執行宏。

This event occurs only when you remove a reference from code. 當您從 [參考] 對話方塊中移除參考時，並不會發生此情況，您可以在 [模組] 視窗為使用中視窗時，選擇 [工具] 功能表上的 [參考]。

範例

下列範例中包含 ItemAdded 和 ItemRemoved 事件的事件程序。 若要嘗試此範例，請先選擇 [插入] 功能表上的 [類別模組]，以建立新的類別模組。 將下列程式碼貼入類別模組，並將模組儲存為 RefEvents。

' Declare object variable to represent References collection. 
Public WithEvents evtReferences As References 
 
' When instance of class is created, initialize evtReferences 
' variable. 
Private Sub Class_Initialize() 
 Set evtReferences = Application.References 
End Sub 
 
' When instance is removed, set evtReferences to Nothing. 
Private Sub Class_Terminate() 
 Set evtReferences = Nothing 
End Sub 
 
' Display message when reference is added. 
Private Sub evtReferences_ItemAdded(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " added." 
End Sub 
 
' Display message when reference is removed. 
Private Sub evtReferences_ItemRemoved(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " removed." 
End Sub

下列 Function 程式會移除指定的參考。 移除參考時，RefEvents類別中定義的 ItemRemoved事件程序會執行。

例如，若要移除月曆控制項的參照，您可以傳遞 "MSACAL" 字串。

Function RemoveReference(strRefName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_RemoveReference 
 ' Return object representing existing reference. 
 Set ref = objRefEvents.evtReferences(strRefName) 
 ' Remove reference from collection. 
 objRefEvents.evtReferences.Remove ref 
 RemoveReference = True 
 
Exit_RemoveReference: 
 Exit Function 
 
Error_RemoveReference: 
 MsgBox Err & ": " & Err.Description 
 RemoveReference = False 
 Resume Exit_RemoveReference 
End Function

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。