Cómo recorrer en bucle las referencias para ver sus propiedades en Microsoft Access

Número de KB original: 209849

Resumen

Al ver la ubicación de las referencias con el cuadro de diálogo Referencias en el menú Herramientas, la parte final del nombre de la ruta de acceso se puede truncar debido a las limitaciones del cuadro de diálogo. En este artículo se muestra cómo usar un procedimiento de Visual Basic para Aplicaciones para recorrer en bucle la colección References y recuperar las propiedades de cada referencia.

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.

Más información

Para recorrer en bucle la colección References y recuperar las propiedades de cada referencia, siga estos pasos:

1. Cree un módulo y escriba la siguiente línea en la sección Declaraciones si aún no está allí:

   Option Explicit
   

2. Escriba el procedimiento siguiente:

   Function ReferenceInfo()
   
       Dim strMessage  As String
       Dim strTitle    As String
       Dim refItem     As Reference
   
       On Error Resume Next
   
       For Each refItem In References
           If refItem.IsBroken Then
               strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
           Else
               strMessage = "Reference: " & refItem.Name & vbCrLf _
                          & "Location: " & refItem.FullPath & vbCrLf
           End If
           Debug.Print strMessage
       Next refItem
   
   End Function
   

3. Para probar esta función, escriba la siguiente línea en la ventana Inmediato y presione ENTRAR:

   ? ReferenceInfo
   

   Nota:

   Cada referencia se muestra en la ventana Inmediato.

Referencias

Para obtener más información sobre la colección References, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda, escriba objeto de referencia en el Asistente para Office o el Asistente para respuestas y, a continuación, haga clic en Buscar para ver el tema.

Para obtener más información sobre la enumeración a través de la colección References mediante For Each... Siguiente instrucción, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda, escriba siguiente en el Asistente de Office o el Asistente para respuestasy, a continuación, haga clic en Buscar para ver el tema.