[Resolvido]Botão que abre arquivo em PDF

Alguém sabe o modo mais fácil de se colocar um arquivo PDF dentro deu BD? Estou pensando colocá-lo como manual de utilização do BD...

Um abraço!!!

AMarcos

Em um botão coloca este código:

Código:


Dim Docum As String
    Docum = "D:\NomeDoc.pdf"
    Call Shell("explorer.exe " & strUrl & Docum, vbMaximizedFocus)


Espero ter ajudado
Saludos desde Bolivia

Que isso ajuda internacional, as coisa estão chique demais!!!

Mas meu cara amigo da nação vizinha, apliquei este código numa função e não deu efeito.
Será que não faltou algo? Posso fazer alguma coisa errada também... muito provável! kkkkkk
Será que vc poderia colocar o código por inteiro daí eu comparo e vejo o que estou fazendo de errado.

Um abraço!!!

AMarcos

Coloque um botão no formulário onde você deseja abrir o PDF, o código do botão é o seguinte:

Código:


Private Sub BtnLeePDF_Click()
Dim Docum As String
    Docum = "D:\NomeDoc.pdf" 'mudar o caminho onde seu arquivo está
    Call Shell("explorer.exe " & strUrl & Docum, vbMaximizedFocus)
End Sub


Espero ter ajudado
Saludos desde Bolivia

Meu amigo se o teu português não é bom, fique feliz pois o meu espanhol é péssimo...

Mas brincadeiras a parte, vamos ao que interessa: Esse código foi o que fiz dentro de um botão no formulário, mas ao terminar e tentar rodar o VBA, dá um aviso que a função CallShell não é reconhecida, por isso que eu criei um módulo e coloquei o código em uma função. Mas também não deu certo!

E mesmo assim ele pede um sinal de igual "=" antes de "vbMaximizedFocus". Mas não dá.

Att,


AMarcos

Qual é a versão do Access que você usa.

Arquivo adjunto

Amigão resolvi abrir formulários contendo imagm dos textos que irão servir de manual.

Mesmo assim muito obg!