Validar funcion FollowHyperlink ACCESS si existe el archivo en la ruta
Tengo la siguiente línea que busca un archivo y lo abre en PDF pero al no encontrarlo genera error 490 como puedo corregir el error enviando un mensaje que no existe tal documento.
nombre = Me.modelo
FollowHyperlink "C:\ClinicaOptometria\Manuales\" & nombre & ".PDF"
1 Respuesta
Hay varias formas, te comento dos:
1º/ Con un Control de errores:
On Error Goto sol_err
nombre = Me.modelo
FollowHyperlink "C:\ClinicaOptometria\Manuales\" & nombre & ".PDF"
Salida:
Exit Sub
sol_err:
If Err.Number=490 Then
MsgBox "El documento no existe", vbInformation, vbOkOnly, "Lo siento..."
Else
MsgBox "Se ha producido el error " & Err.Number & ": " & Err.Description
End If
2º/ Usando la función Dir para ver si existe:
nombre = Me.modelo
If Dir("C:\ClinicaOptometria\Manuales\" & nombre & ".PDF")<>"" Then
FollowHyperlink "C:\ClinicaOptometria\Manuales\" & nombre & ".PDF"
Else
MsgBox "El documento no existe", vbInformation, vbOkOnly, "Lo siento..."
End If
