[Resolvido]Abrir Arquivo PDF

Bom dia, pessoal!

Pesquisei aqui no forum e consegui criar uma forma de abrir arquivo pdf pelo Access, onde o nome do arquivo a ser aberto dependerá de alguns campos preenchidos no meu formulário.

Private Sub btnLaminaMensal_Click()

Dim CaminhoDaImagem As String

CaminhoDaImagem = "C:\Users\douglas.cioffi\Desktop\" & Me.txtNomeArquivoLM

Application.FollowHyperlink CaminhoDaImagem

End Sub


Ocorre que preciso colocar uma MSGBOX para quando não encontrar o arquivo no diretorio, mas não estou conseguindo.

Da forma como está, se ele não encontra o arquivo, ele abre aquele erro com opção de depuração.

Alguém consegue me ajudar a incluir neste código acima a condição para a msgbox?

Obrigado!!

Ola seja bem vindo ao forum;

Quer abrir PDF como está no titulo ou uma imagem ?

Olá JPaulo!

Este código abre o pdf com o adobe reader.

Se o preenchimento dos campos do formulário coincidem com o nome do arquivo, ele abre normalmente sem erro.

porém, se não coincidem, gostaria de inserir uma msgbox com mesagem de "arquivo não encontrado".

Abs!

Veja se não fica melhor desta forma;

Código:

Private Sub btnLaminaMensal_Click_Click()
Dim strCaminho$
On Error GoTo 1

  strCaminho = Environ("USERPROFILE") & "\Desktop" & "\" & Me.Text1txtNomeArquivoLM.Value
 
  Application.FollowHyperlink strCaminho, , True
1:
    If Err.Number = 490 Then
        MsgBox "Ficheiro não encontrado...", vbCritical
        Exit Sub
        Else
        Exit Sub
    End If
End Sub

Opa.

Com essa alteração na condição 1, funcionou certinho!!!

Muito obrigado!

Resolvido.

Ficou assim:

Código:


 Private Sub btnLaminaMensal_Click_Click()
    Dim strCaminho$
    On Error GoTo 1

       strCaminho = Environ("USERPROFILE") & "\Desktop" & "\" & Me.Text1txtNomeArquivoLM.Value
      
       Application.FollowHyperlink strCaminho, , True
    1:
        If Err.Number = 490 Then
            MsgBox "Ficheiro não encontrado...", vbCritical
            Exit Sub
            Else
            Exit Sub
        End If
    End Sub


Fico feliz.

Obrigado pelo retorno o forum agradece.