Sencillo método para abrir un archivo desde un campo hipervínculo en MS ACCESS.

Sencillo método para abrir un archivo desde un campo hipervínculo en MS ACCESS.

Private Sub FileList_Click()

    On Error GoTo NoSePuedoAbrir

    Application.FollowHyperlink FileList.Value

    Exit Sub

NoSePuedoAbrir:

    MsgBox "No se puede abrir el archivo porque no existe una aplicación asociada a esa extensión."

    Exit Sub

End Sub

Más información en: https://msdn.microsoft.com/es-es/library/office/ff822080.aspx