Evento References.ItemRemoved (Access)
El evento ItemRemoved se produce cuando se elimina una referencia del proyecto.
Sintaxis
expresión. ItemRemoved (referencia)
Expresión Variable que representa un objeto References .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Reference | Obligatorio | Reference | Referencia que se eliminó del proyecto. |
Comentarios
El evento ItemRemoved 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 ItemRemoved , debe usar una sintaxis especial.
El evento ItemRemoved solo puede ejecutar un procedimiento de evento cuando se produce; no puede ejecutar una macro.
Este evento sólo se produce cuando se elimina una referencia del código. No se produce cuando se quita una referencia del 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 quita una referencia especificada. Cuando se quita una referencia, se ejecuta el procedimiento de evento ItemRemoved definido en la clase RefEvents .
Por ejemplo, para quitar una referencia al control calendar, podría pasar la cadena "MSACAL", que es el nombre del objeto Reference que representa el control de calendario.
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
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.