MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Abrir arquivo com um botão de comando

    Compartilhe

    estevam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/08/2010

    Abrir arquivo com um botão de comando

    Mensagem  estevam em Qui 26 Mar 2015, 15:34

    Olá, estou com pequeno problema - peço ajuda
    Tenho uma pasta chamada DANFE na qual estão guardados dezenas de arquivo PDF. Atualmente o NOME DO ARQUIVO é idêntico ao campo Cod Lanç da minha tabela.
    Em um fomulário existe o campo Cod Lanç. Existe um botão comando para abrir o arquivo PDF.
    Em propriedades do Botão tenho o comando abaixo. Ao clicar no botão abre o arquivo PDF cujo nome é idêntico ao Cod Lanç
    Exemplo: se Cod Lanç = 53136200 o sistema abre o arquivo 53136200.pdf que está dentro de X:\Danfes

    Application.FollowHyperlink "X:\Danfes\" & Me![Cod Lanç] & ".pdf"

    Ocorre que agora o NOME DO ARQUIVO .pdf conterá 44 caracteres. O Cod do Lanç de minha tabela irá compor este nome do arquivo.
    Exemplo: 35150307920692000135550010000496751531362003

    Eu não sei alterar o comando acima para que o sistema abra o arquivo.pdf que CONTENHA o Cod Lanç de minha tabela.
    Eu tentei com [*Cod Lanç*] mais não dá certo.

    `Por favor seria possível reescrever este comando de modo que o sistema abra o arquivo .pdf que contenha o conteudo do meu campo Cod Lanç?

    Eu agradeço antecipadamente por sua preciosa ajuda.

    Estevam

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Abrir arquivo com um botão de comando

    Mensagem  Roberto_1977 em Qui 26 Mar 2015, 16:32

    Boa tarde,

    Porque não experimenta com a função Dright (Direita):

    Application.FollowHyperlink "X:\Danfes\" & Dright([Cod Lanç],Cool & ".pdf" ' o smile que você visualisa é oito e fechar parentes

    Abraço...


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

    estevam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/08/2010

    Abrir arquivo com um botão de comando

    Mensagem  estevam em Qui 26 Mar 2015, 17:22

    Olá roberto
    Grato por sua ajuda.
    Ao compilar está dando o seguinte erro:
    Erro de Compilação
    Sub ou Function não definida

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Abrir arquivo com um botão de comando

    Mensagem  Roberto_1977 em Qui 26 Mar 2015, 17:34

    em que linha esta dano erro?
    Posta aqui o seu código todo.

    Abraço...


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

    estevam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/08/2010

    Re: Abrir arquivo com um botão de comando

    Mensagem  estevam em Qui 26 Mar 2015, 17:37

    Ficaria assim Roberto?

    Private Sub Comando15_Click()
    Application.FollowHyperlink "X:\Danfes\" & Dright([Cod Lanç],Cool & ".pdf"
    DoCmd.Close acForm, "Expedição_imprimir_Documentação"
    DoCmd.OpenForm "Expedição_imprimir_Documentação", acNormal, "", "", , acNormal
    End Sub

    o smile que você visualisa é oito e fechar parentes


    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Abrir arquivo com um botão de comando

    Mensagem  Roberto_1977 em Qui 26 Mar 2015, 17:45

    veja assim:

    Private Sub Comando15_Click()
    Application.FollowHyperlink "X:\Danfes\" & right([Cod Lanç],Cool & ".pdf"
    DoCmd.Close acForm, "Expedição_imprimir_Documentação"
    DoCmd.OpenForm "Expedição_imprimir_Documentação", acNormal, "", "", , acNormal
    End Sub

    estevam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/08/2010

    Abrir arquivo com um botão de comando

    Mensagem  estevam em Qui 26 Mar 2015, 19:26

    Roberto
    Muito obrigado.
    Deu certinho.
    Porém ele está pegando os 8 últimos caracteres do nome do arquivo .pdf
    Quase lá.
    Este grande número de 44 caracteres é a chave de acesso de Nota Fiscal Eletrônica.
    O Cod lanç é realmente os 8 últimos caracteres DESPREZANDO O ÚLTIMO.
    Então no Exemplo o Cod Lan é 5153136200 - despezando o número 3 que é o ultimo caractere.
    Exemplo: 35150307920692000135550010000496751531362003

    Não quero abusar de sua boa vontade. Mas você pode continuar ajudando, por favor?
    Muito obrigado
    Estevam

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Abrir arquivo com um botão de comando

    Mensagem  Roberto_1977 em Qui 26 Mar 2015, 22:17

    experimente assim:

    Private Sub Comando15_Click()
    Dim qwerty As String
    Dim qaz As String
    qwerty = Right([Cod Lanç], 9)
    qaz = Left(qwerty, Cool
    Application.FollowHyperlink "X:\Danfes\" & qaz & ".pdf"
    DoCmd.Close acForm, "Expedição_imprimir_Documentação"
    DoCmd.OpenForm "Expedição_imprimir_Documentação", acNormal, "", "", , acNormal
    End Sub

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Abrir arquivo com um botão de comando

    Mensagem  Roberto_1977 em Sex 27 Mar 2015, 22:18

    Boa noite,

    Ficou resolvido??


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 10 Dez 2016, 13:43