[Resolvido]Mesmo parâmetro de data para as outras consultas dos SubRelatórios

Boa tarde, mestres!

Venho mais uma vez pedir a ajuda de vcs!
É o seguinte:
Criei um relatório principal com subrelatórios, cada um com suas respectivas consultas.
E alguns destes relatórios trabalham com parâmetros de data (o usuário digita o intervalo de data que ele quer para a informação).
Por exemplo: o subrelatório exibe informação de 3 meses, na qual criei um botão para cada mês e ele exibe a informação do trimestre (3 botões:
Mês1, Mês2 e Mês3).
Só que como são duas consultas (são consultas diferentes executadas por VBA), para cada botão, o usuário digita 2 vezes o intervalo.
E agora preciso de mais uma consulta com parâmetro de data!

Minha dúvida é: Existe alguma forma de, como o parâmetro para cada mês é o mesmo, quando o usuário digitar um intervalo, as outras consultas
pegarem este intervalo também? já que este botão está executando estas consultas?
Ou terei que criar outro relatório mesmo?

Bom, sei que o desafio é grande, por isso estou aqui pedindo a ajuda dos Mestres!
Desde já agradeço e uma boa tarde para todos!

Ninguém ainda?
Mas eu sei que algum mestre irá me ajudar!

Bom dia Jorge,

Se você abre o relatório através de um formulário (informando o intervalo) você pode usar o mesmo critério para várias consultas (desde que mantenha o formulário aberto).

Nivaldo.

Só desse jeito mesmo, né?
Valeu, mestre Nivaldo!

Eu coloquei nas consultas, no parâmetro de data, o seguinte:
Entre [forms]![Frm_EscolhaCalculo]![dt_ini] E [forms]![Frm_EscolhaCalculo]![dt_fin]

E no formulário, no botão para gerar o relatório, o seguinte código:

Dim Dt_ini As Date
Dim Dt_fin As Date

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Tb_CalcImposto1"
DoCmd.RunSQL "DELETE * FROM Tb_CalcImpostoPICOFINS1"
Dt_ini = Format(InputBox("Insira a Data Inicial", "Insira a data"), "dd/mm/yyyy")
Dt_fin = Format(InputBox("Insira a Data Final", "Insira a data"), "dd/mm/yyyy")
DoCmd.OpenQuery "Cons_GeraValorTotalMensal"
DoCmd.OpenQuery "Cons_FatNFEMensal"
DoCmd.OpenQuery "Cons_FatNFEPISCOFINSMensal"
DoCmd.OpenQuery "Cons_TotalDespesasMensal"
DoCmd.OpenReport "Rpt_LucroPresumidoMensal", acViewPreview

Só que não está funcionando...
Vc ou alguém sabe pq?

Boa tarde, mestres!
Fiz um procedimento aqui e consegui resolver meu problema!
Agradeço ao Nivaldo pela ajuda e aos que não puderam ajudar tbm!

Valeu!!!

Ola Jorge,

Que bom que consegui resolver.

Seria interessante você falar como resolveu o problema para que nós possamos aprender cada vez mais.

Nivaldo.

Com certeza, Nivaldo!

Eu coloquei nas consultas, no parâmetro de data, o seguinte:
Entre [forms]![Frm_EscolhaCalculo]![dt_ini] E [forms]![Frm_EscolhaCalculo]![dt_fin]

E no formulário, no botão para gerar o relatório, o seguinte código:

Dim Dt_ini As Date
Dim Dt_fin As Date

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Tb_CalcImposto1"
DoCmd.RunSQL "DELETE * FROM Tb_CalcImpostoPICOFINS1"
Me!Dt_ini = Format(InputBox("Insira a Data Inicial", "Insira a data"), "dd/mm/yyyy")
Me!Dt_fin = Format(InputBox("Insira a Data Final", "Insira a data"), "dd/mm/yyyy")
DoCmd.OpenQuery "Cons_FatNFEMensal"
DoCmd.OpenQuery "Cons_FatNFEPISCOFINSMensal"
DoCmd.OpenReport "Rpt_LucroPresumidoMensal", acViewPreview

O pulo do gato está na criação de duas caixas de texto que coloquei como False na propriedade "Visível" com os nomes de dt_ini e dt_fin respectivamente e pronto!

Das várias consultas que "pedem" o parâmetro de data, o que não são só essas que o código está chamando, o usuário digita apenas uma vez.

Valeu Jorge,

Obrigado pelo atendimento.

O forum agradece.

Nivaldo.