Событие References.ItemRemoved (Access)

Статья
04/07/2023

Событие ItemRemoved возникает при удалении ссылки из проекта.

Синтаксис

expression. ItemRemoved (Reference)

Выражение Переменная, представляющая объект References .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Reference	Обязательный	Reference	Ссылка, удаленная из проекта.

Замечания

Событие ItemRemoved применяется к коллекции References . Он не связан с элементом управления, формой или отчетом, как и большинство других событий. Таким образом, чтобы создать определение процедуры для процедуры события ItemRemoved , необходимо использовать специальный синтаксис.

Событие ItemRemoved может выполнять только процедуру события, когда она возникает; не удается запустить макрос.

Это событие возникает только при удалении ссылки из кода. Это не происходит, когда вы удаляете ссылку из диалогового окна Ссылки , доступной путем выбора ссылки в меню Сервис , когда активное окно модуля.

Пример

В следующем примере описаны процедуры событий 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 удаляет указанную ссылку. При удалении ссылки выполняется процедура события ItemRemoved , определенная в классе RefEvents .

Например, чтобы удалить ссылку на элемент управления calendar, можно передать строку MSACAL, которая является именем объекта Reference , представляющего элемент управления calendar.

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 и обратная связь.

Поделиться через