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.