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]Abrir pdf ou Jpeg

    avatar
    Anderson Catarino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 28/08/2017

    [Resolvido]Abrir pdf ou Jpeg Empty [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino 20/11/2018, 16:50

    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.
    Anexos
    [Resolvido]Abrir pdf ou Jpeg Attachmentprint.bmp
    Você não tem permissão para fazer download dos arquivos anexados.
    (97 Kb) Baixado 2 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo 20/11/2018, 16:59

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Instruções SQL como utilizar...
    avatar
    Anderson Catarino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 28/08/2017

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino 21/11/2018, 09:53

    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


    Última edição por Anderson Catarino em 21/11/2018, 10:00, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo 21/11/2018, 09:57

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Instruções SQL como utilizar...
    avatar
    Anderson Catarino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 28/08/2017

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino 21/11/2018, 10:31

    - 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"

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo 21/11/2018, 10:51

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

    Mais ou menos assim

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Instruções SQL como utilizar...
    avatar
    Anderson Catarino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 28/08/2017

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino 21/11/2018, 11:07

    Funcionou direitinho.
    Obrigado.
    Abc
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo 21/11/2018, 14:16

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pdf ou Jpeg Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Abrir pdf ou Jpeg Empty Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:14