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


    [Resolvido]Não esta salvando o atual

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não esta salvando o atual Empty [Resolvido]Não esta salvando o atual

    Mensagem  crysostomo 25/2/2021, 22:26

    Colegas o meu  sistema tem opção de saída para salva relatório, mas não consigo salvar o atual, nem abrindo ele para depois salvar não consigo , já criei rescrevi o código , mas não funciona.
    Código:
     strArquivo = Me.Id & ".pdf"
        srtLocal = CurrentProject.Path & srtArquivo
        DoCmd.OutputTo acOutputReport, "Relatorio_produto", acFormatDDF, strLocal


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Não esta salvando o atual Empty Re: [Resolvido]Não esta salvando o atual

    Mensagem  Avelino Sampaio 25/2/2021, 23:29

    Olá!

    o comando CurrentProject.Path retorna o local do aplicativo.  Exemplo: C:\SuaPasta\SubPasta

    Quando o senhor concatena com o nome do arquivo (CurrentProject.Path & srtArquivo) o resultado fica parecido com isso: C:\SuaPasta\SubPasta1245.pdf

    Para corrigir a concatenação é preciso então acrescentar a barra invertida (\), ficando assim:

    srtLocal = CurrentProject.Path & "\" & srtArquivo


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não esta salvando o atual Empty Re: [Resolvido]Não esta salvando o atual

    Mensagem  crysostomo 25/2/2021, 23:56

    estou colocando aqui mas não salva com o registro atual, posso fazer outro código que funcione , mas não posso perder essas opções de saída.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Não esta salvando o atual Empty Re: [Resolvido]Não esta salvando o atual

    Mensagem  Avelino Sampaio 26/2/2021, 00:02

    Crys

    a técnica para abrir no registro atual, você aprenderá neste meu artigo:

    Copie e cole o link abaixo no seu navegador:
    usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1#inicio

    Sucesso!

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Não esta salvando o atual Empty Re: [Resolvido]Não esta salvando o atual

    Mensagem  crysostomo 26/2/2021, 03:00

    Viu  seu artigo e mudei o modo do relatório  , saído do jeito esperado;

    Código:
     strArquivo = Me.Id & ".pdf"
        srtLocal = CurrentProject.Path & srtArquivo
     
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "[size=12]Relatorio_produto[/size]", acViewReport, , "Id=" & Me!Id
     
       DoCmd.OutputTo acOutputReport, "[size=12]Relatorio_produto[/size]", acFormatDDF, strLocal
    DoCmd.Close acReport, "[size=12]Relatorio_produto[/size]"
    End Sub

    Obg
    Vlw


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado

    [Resolvido]Não esta salvando o atual Empty Re: [Resolvido]Não esta salvando o atual

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 13:20