(Resolvido) Botão De Comando Para Abrir Arquivo Externo

[HClausing]

Boa tarde,

Construí um aplicativo no access e gostaria de fazer com que um botão abrisse o arquivo de ajuda do aplicativo, que se chama Guia.pdf, localizado na pasta \Ajuda. Porém não consegui nada ainda, já tentei o seguinte:

1ª tentativa:

Dim x As Object

x = Shell (App.Patch & "\Ajuda\" & "Guia.pdf", vbNormalFocus)

NÃO DEU CERTO

2ª tentativa (copiei o Guia.pdf para a pasta principal do aplicativo):

Dim x As Object

x = Shell (App.Patch & "\" & "Guia.pdf", vbNormalFocus)

NÃO DEU CERTO TAMBÉM <_< <_< <_<

3ª tentativa (copiei o Guia.pdf para c:\):

Dim x As Object

x = Shell ('c:\Guia.pdf", vbNormalFocus)

Agora melhorou, pois o erro foi de arquivo não encontrado, porém NÃO DEU CERTO TAMBÉM

Alguém pode me ajudar?

[MrMALJ]

A função shell executa programas executáveis então você teria que informar o caminho de onde ele deve buscar o acrobat, algo assimm

x=shell("C:\Arquivos de programas\Adobe\Acrobat 6.0\Reader\AcroRd32 C:\guia.pdf",vbNormalFocus)

Bom acho que deve funcionar!

[kuroi]

o primero erro foi porque o certo não é App.Patch e sim App.Path. e se o codigo do mrmalj não funcionar, tenta a funcao shellexecute, ela não serve pra access?? faca uma busca por ai q tem exemplos dela (no forum de visual basic tem).

[HClausing]

Consulteu agora de manhã e notei que escrevi errado só aqui no fórum, me desculpe a falha, porém

A função shell executa programas executáveis então você teria que informar o caminho de onde ele deve buscar o acrobat, algo assimm

x=shell("C:\Arquivos de programas\Adobe\Acrobat 6.0\Reader\AcroRd32 C:\guia.pdf",vbNormalFocus)

Já entendi que meu problema é mais embaixo, pois a cada máquina onde eu for instalar o aplicativo poderá ter um reader de versão diferente, o correto seria fazer o aplicativo buscar o .exe do reader e executar de onde ele estiver. Bom muito obrigado pela ajuda, vou tentar a dica que me deu!

Complementando: Testei e funcionou, porém quando eu fecho o guia.pdf, o vba me retorna o reguinte erro:

Erro em tempo de execução '91'

A variável do objeto ou a variável do bloco 'With' não foi definida.

Tentei fazer assim:

Dim x as Object

With x

x=shell("C:\Arquivos de programas\Adobe\Acrobat 6.0\Reader\AcroRd32 C:\guia.pdf",vbNormalFocus)

End With

Deu na mesma... :(

Bom, obrigado pela ajuda, mas pelo método da insistência deu certo, vejam como fiz, e também se possível escrevam aquele "(Resolvido)" no título do tópico:

1º) Ao invés de declarar uma variável "x" e ao clicar no botão x ser igual a Shell ... já uso diretamente o Shell ao clicar no botão (o erro não aparece mais!)

2º) Ao invés de chamar o AcrRd32.exe, que pode variar de localização de acordo com sua versão o até por opção do usuário de instalar em uma pasta alternativa, eu chamo o explorer.exe do windows e coloco para abri o guia.pdf. FUNCIONA!! e nem abre a janela do explorer! já vai direto para o adobe reader!! VERY GOOD!!

Editado Agosto 27, 2007 por HClausing