HIPERVINCULO DINAMICO VBA ACCESS

En Access disponemos de comandos para generar hipervínculos de una forma fácil, pero ¿Qué sucede cuando necesitamos construir un hipervínculo dinámico? En mi caso necesitaba un hipervínculo para abrir el archivo generado diariamente tras una serie de cruces realizados en mi BBDD y ya exportado a una carpeta donde se encuentran otros archivos con el mismo nombre y diferentes fechas.


He elegido crear uno al que le pueda pasar por parámetros los datos para así reutilizarlo siempre que me fuera necesario, es la gran ventaja que nos permite la programación orientada a objetos POO.

Pasaremos por parámetros la ruta de acceso al archivo, el nombre del archivo, el tipo de archivo (.doc, .xlsx, .xls …) y el nombre del botón en el que se dispara la acción.


El código abrirá el archivo colgado en la ruta con el nombre que pertenezca a la fecha de hoy.
Os dejo el código por si le puede ser útil a alguien.

Private Function AbrirArchivo(ruta_acceso, archivo_buscado, tipoArchivo_buscado As String, ByRef nombre_boton As Object) As Hyperlink

Dim ctl As CommandButton

Dim ruta, archivo, s, tipoArchivo, Archivo_fecha As String

Dim dia, mes, año As Integer

dia = Day(Now)

mes = Month(Now)

año = Year(Now)

s = "_"

tipoArchivo = tipoArchivo_buscado

ruta = ruta_acceso

archivo = archivo_buscado & Archivo_fecha

Archivo_fecha = s & dia & s & mes & s & año & tipoArchivo

    Set ctl = nombre_boton

    With ctl   

        .HyperlinkAddress = ruta & archivo & Archivo_fecha

        .Hyperlink.Follow

    End With

End Function

Private Sub Comando44_Click()

Call AbrirArchivo("C:\Users\dagip\Desktop\BOGEER", "\entrada_articulo", ".docx", Comando44)

End Sub