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:
Cree un módulo y escriba la siguiente línea en la sección Declaraciones si aún no está allí:
Option Explicit
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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de