[Resolvido]Criar relatório na pasta do BD

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.

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

Maravilha!!!

Funcionou perfeitamente. Muito obrigado!