Help With error Runtime 490

[christ2000]

Hello guys, I using the following code to open a network hyperlink to a pdf file, when the file exist it work perfect, the problem is if the pdf do not exist show error 490. my question is how avoid this error and just show for example a message showing THIS DOCUMENT DO NOT EXIST.

this is the code I am using now:

Private Sub Command22_Click()
Dim FileName As String


Dim Filepath As String
FileName = Me.analysthide & "_Receipt_" & Me.[MonthsCombo] & "_" & Me.[year]
Filepath = "Path to file " & FileName & ".pdf"
Application.FollowHyperlink Filepath
End Sub

thanks

[JoeM]

Add some error handling like this:

Private Sub Command22_Click()

    Dim FileName As String
    Dim Filepath As String
    
    On Error GoTo err_chk
    FileName = Me.analysthide & "_Receipt_" & Me.[MonthsCombo] & "_" & Me.[Year]
    Filepath = "Path to file " & FileName & ".pdf"
    Application.FollowHyperlink Filepath
    On Error GoTo 0
    
    Exit Sub
    
err_chk:
    If Err.Number = 490 Then
        MsgBox "THIS DOCUMENT DOES NOT EXIST"
    Else
        MsgBox Err.Number & ": " & Err.Description
    End If
    
End Sub

[christ2000]

Thanks Work perfect

[JoeM]

You are welcome!

[christ2000]

Hello if I want to use this code for another errors can I ? for example if I try to open a pdf a this exits but I click cancel and not open the pdf, now show system message 16388, I just want show any text if user select close and no open the pdf, thanks

[JoeM]

Yes, you can use this error handling structure to handle most errors.
You can specify specific messages for certain error codes, and let the others go to the default messages, like we did with the original question.