Help With error Runtime 16388

[christ2000]

Hello i using Application.FollowHyperlink to open pdf files on my database and work find but when I cancel the operation to open the file I get a runtime error 16388. please how can I cancel this error and just close the dialog box?



thanks in advance

[Minty]

Have a read here https://access-programmers.co.uk/for...d.php?t=282171

[christ2000]

Thanks but do not work for me, here is my code:

rivate Sub Command469_Click()
Dim filename As String
Dim Filepath As String
Dim CName As String
On Error GoTo err_chk
CName = Forms![ContractorsDBForm]![Text442]
filename = Me.DocumentsName & ".pdf"
Filepath = DLookup("[ContractorPath]", "querysetup") & CName & DLookup("[expr1]", "querysetup") & CName & " " & filename


If Dir(Filepath) = "" Then
MsgBox "Document not found, or is not in PDF format"
Else
Application.FollowHyperlink Filepath


err_chk:
If Err.Number = 16388 Then
MsgBox "THIS DOCUMENT DOES NOT EXIST"
Else
MsgBox Err.Number & ": " & Err.description
End If

End If

End Sub

[Minty]

You need to resume following that specific error, and your error handler has no previous exit method.
Try this (untested air code)

Private Sub Command469_Click()
    Dim filename As String
    Dim Filepath As String
    Dim CName As String
    
    On Error GoTo err_chk
    
    CName = Forms![ContractorsDBForm]![Text442]
    filename = Me.DocumentsName & ".pdf"
    Filepath = DLookup("[ContractorPath]", "querysetup") & CName & DLookup("[expr1]", "querysetup") & CName & " " & filename




    If Dir(Filepath) = "" Then
        MsgBox "Document not found, or is not in PDF format"
    Else
        Application.FollowHyperlink Filepath


    End If
  
ExitCommand469_Click:
    Exit Sub
    
err_chk:
        If Err.Number = 16388 Then
            MsgBox "THIS DOCUMENT DOES NOT EXIST"
            Resume ExitCommand469_Click
        Else
            MsgBox Err.Number & ": " & Err.Description
        End If


End Sub

[christ2000]

ork perfect thanks, do you think is there any way to avoid show a dialog box when user cancel(

MsgBox "THIS DOCUMENT DOES NOT EXIST") and just when user press cancel the dialog box close?

[Minty]

Simply remove the message box code !

[christ2000]

You ROCK... thanks