Evento References.ItemAdded (Access)

El evento ItemAdded se produce cuando se agrega una referencia al proyecto desde Visual Basic.

Sintaxis

expresión. ItemAdded (referencia)

Expresión Variable que representa un objeto References .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Reference	Obligatorio	Reference	Referencia que se agregó al proyecto.

Comentarios

El evento ItemAdded se aplica a la colección References . No está asociado a un control, formulario o informe, como sucede con la mayoría de los demás eventos. Por lo tanto, para crear una definición de procedimiento para el procedimiento de evento ItemAdded , debe usar una sintaxis especial.

El evento ItemAdded solo puede ejecutar un procedimiento de evento cuando se produce; no puede ejecutar una macro.

Este evento sólo se produce cuando se agrega una referencia desde el código. No se produce cuando se agrega una referencia desde el cuadro de diálogo Referencias , disponible seleccionando Referencias en el menú Herramientas cuando la ventana Módulo es la ventana activa.

Ejemplo:

En el siguiente ejemplo incluye procedimientos de evento para los eventos ItemAdded y ItemRemoved. Para probar este ejemplo, primero cree un nuevo módulo de clase eligiendo Módulo de clase en el menú Insertar . Pegue el código siguiente en el módulo de clase y guarde el 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

El siguiente procedimiento Function agrega una referencia especificada. Cuando se agrega una referencia, se ejecuta el procedimiento de evento ItemAdded definido en la clase 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.