** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Identificación de Referencias en VBA de Access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoIdentificación de Referencias en VBA de Access

 Responder Responder
Autor
Mensaje
sergiopSI Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 10/Noviembre/2019
Localización: México
Estado: Sin conexión
Puntos: 4
Enlace directo a este mensaje Tema: Identificación de Referencias en VBA de Access
    Enviado: 11/Noviembre/2019 a las 00:16
Estoy pasando aplicaciones de Access 2007 de 32 bits a un servidor que solo tiene instalado el AccessRunTime, me manda mensajes de error o no funciona como se espera y asumo que es por la falta de los archivos que se usan en la referencia.

¿Como puedo sacar el listado completo de todos los archivos utilizados en las referencias, para buscarlos y copiarlos al nuevo servidor?

Si lo busco en las referencias, el nombre se corta algunas veces, por la falta de espacio de la ventana de referencias.

Las aplicaciones funcionan perfectamente en el servidor que alguna ves se le instaló el Access completo y la aplicación compilada funciona también bien.


Editado por sergiopSI - 11/Noviembre/2019 a las 00:18
Arriba
JuanW Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 12/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 259
Enlace directo a este mensaje Enviado: 11/Noviembre/2019 a las 09:22
Yo uso esta función. A ver si te vale.

Function MiraReferenciasVBA()
    Dim Ref As Reference
   'Puede servir para cuando distribuyamos una aplicacion
   'con referencias externas a funciones inmersas en: OCX,DLL, MDE, MDB...)
   'que nosotros en el proyecto hemos referenciado desde una determinada ubicación
   'local de nuestro PC y a la hora de ejecutar el programa el usuario, pueda dar errores
   'por no tener dichas referencias o tenerlas en otra ubicacion distinta
   'y de esta forma el usuario nos pueda avisar de esta contingencia.
   'Esta función se puede poner en el formulario de inicio de la aplicación
   'para avisar al usuario de este tema.

    For Each Ref In References
        If Ref.IsBroken = False Then
         ' este msgbox e puramente informativo de las referencias que están OK
         ' y es para probar este código.
                'MsgBox "Nombre de la Referencia: " & Ref.Name & vbCrLf _
                ' & "En la ruta: " & Ref.FullPath & vbCrLf _
                ' & "Versión de la Referencia: " & Ref.Major & "." & Ref.Minor, vbInformation + vbOKOnly, "Referencias en VBA"
        Else
         ' referencia rota
          MsgBox "Nombre de la Referencia rota:" & Ref.Name & vbCrLf _
           & "Ruta Origina: " & Ref.FullPath & vbCrLf _
           & "GUID completo de la Referencia: " & Ref.Guid, vbCritical + vbOKOnly, "AVISO: Servicio de mantenimiento del programa Tel:xxxxxxxxx."
         'aquí la acción a seguir...
         'Se podría poner ruta completa, mediante un dialogo de Windows e intentar referenciar de nuevo la referencia rota o bien abandonar la aplicacion.
         'Recordar que el nombre y Path original de la referencia sería ref.FullPath
         If CrearNuevaReferencia(Ref.FullPath) = False Then
          MsgBox "No se ha podido regenerar la referencia.", vbCritical + vbOKOnly, "Aviso"
         Else
          MsgBox "La Referencia, " & Ref.FullPath & " se ha establecido correctamente.", vbExclamation + vbOKOnly, "Correcto"
         End If
        End If
    Next Ref
End Function

Saludos
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable