MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Criar relatório na pasta do BD

    avatar
    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Criar relatório na pasta do BD Empty [Resolvido]Criar relatório na pasta do BD

    Mensagem  Rosalvo Risso em 8/9/2019, 01:14

    Boa noite a todos!

    Necessito criar um relatório em PDF na mesma pasta do meu BD.

    DoCmd.OutputTo acOutputReport, "RltPedidos", acFormatPDF, "C:\PastaDoMeuBD\RltPedidos.pdf", False

    Essa é a maneira que eu costumo usar. "Mestre João Paulo".

    Mas agora preciso que o relatório seja criado sem que eu digite o endereço do BD no código, e sim, um novo código que faça com que o relatório seja criado na mesma pasta do BD automaticamente. Dessa forma posso mudar o BD de pasta ou até mesmo para outro pc que o relatório continue sendo criado na mesma pasta que ele.

    Agradeço desde já a atenção de todos.
    reynaldoas2012
    reynaldoas2012
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 27/04/2012

    [Resolvido]Criar relatório na pasta do BD Empty Salvar Relatório na mesma pasta do BD

    Mensagem  reynaldoas2012 em 8/9/2019, 02:28

    Olá ... Boa noite!

    Tente assim ...

    Dim MeuCaminho As String
    MeuCaminho = CurrentProject.Path
    DoCmd.OutputTo acOutputReport, "NomeDoRelatorio", acFormatPDF, MeuCaminho & "\" & "NomeDoRelatorio.pdf", False


    Ou ...

    DoCmd.OutputTo acOutputReport, "NomeDoRelatorio", acFormatPDF, CurrentProject.Path & "\" & "NomeDoRelatorio.pdf", False


    .................................................................................
    "Carpe diem"
    avatar
    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Criar relatório na pasta do BD Empty Criar relatório na pasta do BD

    Mensagem  Rosalvo Risso em 8/9/2019, 03:07

    Maravilha!!!

    Funcionou perfeitamente. Muito obrigado!

      Data/hora atual: 8/8/2020, 13:23