MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Abrir pdf ou Jpeg

    Compartilhe

    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino em 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
    print.bmp
    Você não tem permissão para fazer download dos arquivos anexados.
    (97 Kb) Baixado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo em 20/11/2018, 16:59

    Ola;

    Use sempre a busca do fórum, temos 231.355 ajudas em tópicos.

    http://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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino em 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)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo em 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  Anderson Catarino em 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"

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo em 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

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

    Funcionou direitinho.
    Obrigado.
    Abc
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir pdf ou Jpeg

    Mensagem  JPaulo em 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: 19/1/2019, 02:47