[Resolvido]Abrir pdf ou Jpeg

Boa tarde.
Como faço para abrir pdf´s por código vba?

Tenho num formulário:

Campos
Acessorio
Tipo
Botão
Ver desenho

Numa pasta:
manilha_h11.pdf

Acessório: Manilha - Tipo: h11 -> botão abre o pdf ( esse pdf contem especificação do produto, medidas que tem que ter o acessorio x tipo y )

Nota: Depois adaptava para jpeg posteriormente.

Desde já obrigado.

Ola;

Use sempre a busca do fórum, temos 231.355 ajudas em tópicos.

https://www.maximoaccess.com/t25710-resolvidoabrir-arquivo-pdf?highlight=abrir+pdf

Olá.
Eu já tinha pesquisado, mas não estava a conseguir aplicar.
No link que me deste e algumas mudanças ficou assim:

********************************************************************

Private Sub desenho_Click()

   Dim strCaminho$
   On Error GoTo 1

      strCaminho = CurrentProject.Path & "\Acessorios" & "\" & Me.acessorio.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

********************************************************************

"acessorio" é uma caixa de combinação se não colocar texto ele abre a pasta onde tenho os pdfs, se colocar o nome de um ficheiro que existe na pasta aparece a msg "ficheiro não encontrado ..."


Tenho que colocar na caixa de combinação o "nome do ficheiro".pdf assim já da

Ola

Se é uma caixa de combinação, as colunas começam por zero.
Veja em que coluna está o nome do ficheiro e faça assim;

Código:

Private Sub desenho_Click()

Dim strCaminho$
On Error GoTo 1
'CurrentProject.Path é o caminho do banco e a pasta que tem de estar junto ao banco
'Me.acessorio.Column(0) se o nome estiver na primeira coluna da combobox, pode ser que esteja na (1)
strCaminho = CurrentProject.Path & "\Acessorios" & "\" & Me.acessorio.Column(0)

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

- Eu tinha editado a msg anterior a tua, abriu o pdf mas eu tinha que colocar na caixa de combinação por exemplo: Sapatilho.pdf ( isso com me.acessorio.value )

- A caixa de combinação vai carregar consoante vou acrescentado registos (ainda não está em funcionamento, tenho que ver se todos os campos que tenho no formulário são para ficar ou não), mas coloquei origem da linha "" ; "Sapatilho" ; "Manilha" ( coluna vinculada está 1 )

- Apesar de estar coluna vinculada 1, se eu no código colocar:
strCaminho = CurrentProject.Path & "\Acessorios" & "\" & Me.acessorio.Column(1)

abre sempre a pasta e nunca o ficheiro pdf, seja com "" , "Sapatilho" , "Manilha" ou qq coisa que escreva

- com esse código:
strCaminho = CurrentProject.Path & "\Acessorios" & "\" & Me.acessorio.Column(0)

abre a pasta com "" e aparece a msg de erro 1 com "Sapatilho" ou "Manilha"

Se a combo é lista de valores, então é a coluna(0).

Mais ou menos assim

strCaminho = CurrentProject.Path & "\Acessorios" & "\" & Me.acessorio.Column(0) & ".pdf"

Funcionou direitinho.
Obrigado.
Abc

Fico feliz.

Obrigado pelo retorno o forum agradece.