miércoles, 8 de julio de 2015

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