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


    Abrir arquivo com um botão de comando

    avatar
    estevam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Abrir arquivo com um botão de comando Empty Abrir arquivo com um botão de comando

    Mensagem  estevam 26/3/2015, 14: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
    avatar
    Convidado
    Convidado


    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  Convidado 26/3/2015, 15: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...
    avatar
    estevam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Abrir arquivo com um botão de comando Empty Abrir arquivo com um botão de comando

    Mensagem  estevam 26/3/2015, 16:22

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


    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  Convidado 26/3/2015, 16:34

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

    Abraço...
    avatar
    estevam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  estevam 26/3/2015, 16: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

    avatar
    Convidado
    Convidado


    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  Convidado 26/3/2015, 16: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
    avatar
    estevam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Abrir arquivo com um botão de comando Empty Abrir arquivo com um botão de comando

    Mensagem  estevam 26/3/2015, 18: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
    avatar
    Convidado
    Convidado


    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  Convidado 26/3/2015, 21: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
    avatar
    Convidado
    Convidado


    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  Convidado 27/3/2015, 21:18

    Boa noite,

    Ficou resolvido??

    Conteúdo patrocinado


    Abrir arquivo com um botão de comando Empty Re: Abrir arquivo com um botão de comando

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 18:48