MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Botão para abrir PDF (jeito alternativo)

    4nderson
    4nderson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 62
    Registrado : 25/03/2022

    [Resolvido]Botão para abrir PDF (jeito alternativo) Empty [Resolvido]Botão para abrir PDF (jeito alternativo)

    Mensagem  4nderson 5/9/2022, 22:51

    Olá, pessoas!

    É o seguinte, tudo o que eu queria era clicar em um botão no meu formulário e abrir um PDF. Procurei uma forma "correta" de fazer isso, mas achei umas coisas mais complexas do que eu realmente precisava. Então, através de um método milenar chamado "tentativa e erro", consegui o resultado que eu buscava. Fiz assim:

    1. Arrastei o arquivo PDF para dentro do form criando um objeto OLE;
    2. Reduzi drasticamente as dimensões do objeto (0,02 x 0,02), ou seja, o controle ficou praticamente invisível.
    3. Na propriedade 'AutoAtivar' do objeto eu escolhi a opção 'ObterFoco' e
    4. Criei um botão e nele coloquei uma macro com a ação 'IrParaControle'.


    Isso aumentou o BD em alguns poucos mb, nada que comprometa, mas funcionou!
    Eu sei que essa não é a forma ortodoxa de fazer isso, por isso não estou muito seguro quanto a quais tipos de problema essa gambiarra pode trazer para o meu BD.

    Anexo um pequeno BD testando o resultado.
    Se alguém souber o método correto de obter esse resultado que eu fiz de forma alternativa, agradeço se informar.

    Abraços.
    Anexos
    [Resolvido]Botão para abrir PDF (jeito alternativo) AttachmentdbTeste (abrir pdf).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (296 Kb) Baixado 14 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Botão para abrir PDF (jeito alternativo) Empty Re: [Resolvido]Botão para abrir PDF (jeito alternativo)

    Mensagem  crysostomo 7/9/2022, 22:38

    Código:
    Private Sub BotãoAbrirPDF_Click()
     Shell "explorer.exe C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe"
    ve em qual pasta está o PDF


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    4nderson
    4nderson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 62
    Registrado : 25/03/2022

    [Resolvido]Botão para abrir PDF (jeito alternativo) Empty Re: [Resolvido]Botão para abrir PDF (jeito alternativo)

    Mensagem  4nderson 8/9/2022, 16:27

    Meu caro Crysostomo,

    Seu código funcionou bem! Grato por seu retorno.

    No entanto, não estava conseguindo abrir o arquivo condicionando a chamada ao diretório raiz da aplicação, apenas a partir de um diretório específico.

    Para resolver isso usei:
    Código:
    RetVal = Shell("explorer.exe """ & Application.CurrentProject.Path & "\NOMEDOARQUIVO""", 1)

    Obrigado!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Botão para abrir PDF (jeito alternativo) Empty Re: [Resolvido]Botão para abrir PDF (jeito alternativo)

    Mensagem  crysostomo 8/9/2022, 16:42

    No momento não posso mexer.
    No final é nome Do Arquivo &.pdf "''"
    Algo assim, caso não der procure sobre : abrir pdf específico.  Que vai achar pprque sobre pdf essa busca está em alta. Quando retorna farei.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Botão para abrir PDF (jeito alternativo) Empty Re: [Resolvido]Botão para abrir PDF (jeito alternativo)

    Mensagem  crysostomo 8/9/2022, 19:38

    Bo tarde.
    Bom é o mesmo, a única diferença é que você está chamando o mesmo arquivo dentro de um atrubuto.
    Enfim o bom é que deu certo.
    Sucesso cheers

    Conteúdo patrocinado


    [Resolvido]Botão para abrir PDF (jeito alternativo) Empty Re: [Resolvido]Botão para abrir PDF (jeito alternativo)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 23:29