References.ItemAdded event (Access)

Статья
04/07/2023

Событие ItemAdded возникает при добавлении ссылки в проект из Visual Basic.

Синтаксис

expression. ItemAdded (reference)

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

Параметры

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

Замечания

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

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

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

Пример

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

' Create new instance of RefEvents class. 
Dim objRefEvents As New RefEvents 
 
' Pass file name and path of type library to this procedure. 
Function AddReference(strFileName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_AddReference 
 ' Create new reference on References object variable. 
 Set ref = objRefEvents.evtReferences.AddFromFile(strFileName) 
 AddReference = True 
 
Exit_AddReference: 
 Exit Function 
 
Error_AddReference: 
 MsgBox Err & ": " & Err.Description 
 AddReference = False 
 Resume Exit_AddReference 
End Function

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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