Abrir archivos

Buen día, mira el problema es el siguiente tengo unas rutas que me abren archivos en pdf con el siguiente código
Application.FollowHyperlink Me! Nombre del campo
lo que deseo es que cuando el archivo no se encuentra en la ruta escrita arroje un cuadro de dialogo que diga " el archivo no existe". Agradezco tu ayuda

1 Respuesta

Respuesta
1
If Len(Dir(Me!elCampo, vbArchive)) > 0 Then
  Application.FollowHyperlink Me!elcampo
 Else
  MsgBox "El archivo no existe o no tienes acceso a él"
End If
Si la función Dir devolviera el error 52 es porque no puede acceder al directorio a pesar de que este existe --> permiso de lectura denegado sobre la carpeta.
Xavi

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas