Compartilhar via


Evento References.ItemAdded (Access)

O eventoItemAdded ocorrerá quando uma referência do Visual Basic for adicionada ao projeto.

Sintaxe

expressão. Item Adicionado (Referência)

Expressão Uma variável que representa um objeto References .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Reference Obrigatório Reference A referência que foi adicionada ao projeto.

Comentários

O evento ItemAdded se aplica à coleção Referências . Não está associado a um controle, formulário ou relatório, assim como a maioria dos outros eventos. Portanto, para criar uma definição de procedimento para o procedimento de evento ItemAdded , você deve usar uma sintaxe especial.

O evento ItemAdded só pode executar um procedimento de evento quando ocorrer; ele não pode executar uma macro.

Esse evento ocorrerá somente quando você adicionar uma referência do código. Isso não ocorre quando você adiciona uma referência da caixa de diálogo Referências , disponível escolhendo Referências no menu Ferramentas quando a janela Módulo é a janela ativa.

Exemplo

O exemplo a seguir inclui procedimentos de evento para os eventos ItemAdded e ItemRemoved. Para experimentar este exemplo, primeiro crie um novo módulo de classe escolhendo Módulo de Classe no menu Inserir . Cole o código a seguir no módulo de classe e salve o módulo como 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

O procedimento function a seguir adiciona uma referência especificada. Quando uma referência é adicionada, o procedimento de evento ItemAdded definido na classe RefEvents é executado.

' 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.