[Resolvido]Abrir PDF especifico

É possível abrir um pdf especifico via vba?
Eu sei que é possível com o link mas queria colocar de forma a filtrar por um campo mais ou menos como vi no site do avelino

http://www.usandoaccess.com.br/dicas/exibindo-pdf-pelo-access.asp?id=1

CurrentProject.Path & "\artigos\"

Eu queria que ao fazer clique fosse

CurrentProject.Path\"Processos"\[Campo1]\[Campo2].pdf

Ou seja, vai buscar o [Campo1] que pode ser o ano a seguir vai buscar o [Campo2] que é o numero do processo(documento em pdf) e abre-o.

Alguém sabe como criar o código?

Olá!

Experimente:

CurrentProject.Path & "\Processos\" & me![Campo1] & "\" & me![Campo2] & ".pdf"

Se campo 2 já trouxer e extensão pdf, teste assim:

CurrentProject.Path & "\Processos\" & me![Campo1] & "\" & me![Campo2]

Aguardamos

Dessa forma não deu

Tentei assim mas deu erro

Private Sub Comando109_Click()
Dim strPDFFileName As String
strPDFFileName " = CurrentProject.Path " \ "Autos CO" \ " & Me![DataDoPedido] & " \ " & Me![Texto51].pdf\"
If Not FileLocked(strPDFFileName) Then
End If
End Sub

Tentei a ideia do JPaulo  mas diz-me sempre Ficheiro não encontrado


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

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

  strCaminho = CurrentProject.Path & "\ AutosCO" & "\" & Me![DataDoPedido] & "\" & Me![Texto51].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

Também tentei

Shell CurrentProject.Path \ AutosCO \ Me![DataDoPedido] \ Me![Texto51] & ".pdf"

com o rato em cima dá toda a ligação mas não abre e dá erro Run-time error '13: Type mismatch

UP

Será que tenho de fazer referência à tabela ou ao formulário tipo form name,currente record, me.[campo1]

Já agora, o botão é para colocar num formulario continuo

UP

UP

Bom dia
Que valores assumem as variáveis?
Formam endereço de ficheiro existente?

Obrigado mas já resolvi, usei o exemplo do Jungli     Mensagem nº7

https://www.maximoaccess.com/t4978-resolvidoanexar-arquivo-em-furmulario?highlight=linkDoc#100080

O problema apenas persiste quando mudo a bd de computador por isso em vez da hiperligação me dar D:\Pasta\Subpasta\documento.pdf queria mudar para CurrentProject.Path

A primeira ideia era que a bd criasse a hiperligação automática quando criava um registo mas da forma que utilizo dá para anexar mais de um documento ao registo e pode ser em vários formatos sem ser pdf.

Se alguém consegue alterar o caminho automaticamente para

CurrentProject.Path\Pasta\Subpasta\documento

agradeço se não dou como resolvido

não sei se será alo tipo isto:

http://www.ammara.com/access_image_faq/get_mdb_database_path.html
http://www.ammara.com/access_image_faq/image_relative_paths.html

Amigo, a solução nesse Caso seria Copiar o arquivo localizado, para uma pasta que ficaria junta ao seu Aplicativo...

Assim ao mover seu aplicativo os documentos também iriam juntos...

Aee sim poderiamos utilizar o Currentproject.path sem problemas.


Veja esse Topico, veja o que recomendei pro autor e que deu certo.... Ja tem o Modulo que copia o arquivo pronto porem para Imagem, basta alterar poucas coisa la amigo...

https://www.maximoaccess.com/t27265-resolvidoanexar-arquivos-ole

Desculpa FabioPaes mas não compreendi o conceito do teu exemplo e não consegui fazer.

Consegues fazer-me um exemplo como o que menciono na minha mensagem 10? Agradeço.


https://www.maximoaccess.com/t4978-resolvidoanexar-arquivo-em-furmulario?highlight=linkDoc#100080

Amigão, assim que possivel eu monto um exemplo... Mas é muito simples amigo... Muito mesmo...

Obrigado

Aqui amigo, seu exemplo...
https://www.maximoaccess.com/t27444-copiar-pdf-salvar-o-caminho-do-arquivo-na-tabela-e-visualizar-os-pdf-s-no-formulario#192832

Obrigado FabioPaes mas não era isto que queria, desculpa.
Queria era fazer como o anexo que coloco o problema é se mudar a bd de computador por isso o CurrentProject.Path quando guarda a hiperligação memorize que o documento está na pasta da bd e abra. Tentei como disse nas outras mensagens mas não resulta.
Como faço não só guarda pdf como outras extensões.

Amigo, da forma como está nao rola nao...

Como te falei nas mensagens anteriores...

O que deve fazer é MOVER o PDF para uma pasta (Conforme o exemplo postado) e Na hora de Carregar aee fica Facil...

Na verdade amigo, o exemplo que passei tem tudo o que precisa ja pronto. É so vc pegar a parte que lhe interessa!


Da forma como está nao funciona mesmo!

Ok obrigado.
Sendo assim dou como resolvido e vou tentar adaptar o teu exemplo.

Obrigado pelas ajudas.