[Resolvido]Título do Relatório

Caros, bom dia.

Criei um relatório através de uma consulta e gostaria que o título do relatório exibisse o período de datas que digitei na consulta.
Exemplo: Data Inicial: 01/09/2017 - Data Final: 30/09/2017.

Título: "Demitidos no Perído de 01/09/2017 a 30/09/2017".

Obs.: Os campos Data Inicial e Data Final não existem na consulta, são critérios informados para filtrar a consulta.

Qualquer ajuda será bem vinda.

Grato.

Pinho

Bom dia!Você executa a consulta de um formulário?

Sim. Criei um botão que ao acioná-lo ele executa o vba e chama o relatório.
O VBA é o seguinte:

Private Sub Comando11_Click()
Dim dtinicial, dtfim, criterio As String
Dim datainic, datafim As Date


dtinicial = inputbox("Insira a Data Inicial", "Data Inicial")
dtfim = inputbox("Insira a Data Final", "Data Final")
datainic = CDate(dtinicial)
datafim = CDate(dtfim)
dtinicial = Format(datainic, "mm/dd/yyyy")
dtfim = Format(datafim, "mm/dd/yyyy")
criterio = "Demissao >= " + "#" + dtinicial + "#" + " and Demissao <= " + "#" + dtfim + "#"
DoCmd.OpenReport "Relatório_Demitidos_Semana", acViewPreview, , criterio, , acWindowNormal

End Sub

Galera, bom dia.

Consegui resolver. Criei duas caixas de texto no Formulário, no VBA associei o que é digitado as duas caixas e fiz referência a elas no Relatório.

Desse jeito:

No Formulário =>  Caixas de Texto = dtinicio e dtfinal

No VBA :

Private Sub Comando11_Click()
Dim dtinicial, dtfim, criterio As String
Dim datainic, datafim As Date


dtinicial = inputbox("Insira a Data Inicial", "Data Inicial")
dtfim = inputbox("Insira a Data Final", "Data Final")
datainic = CDate(dtinicial)
datafim = CDate(dtfim)
Me.dtinicio = dtinicial
Me.dtfinal = dtfim
dtinicial = Format(datainic, "mm/dd/yyyy")
dtfim = Format(datafim, "mm/dd/yyyy")
criterio = "Demissao >= " + "#" + dtinicial + "#" + " and Demissao <= " + "#" + dtfim + "#"
Me.Visible = False
DoCmd.OpenReport "Relatório_Demitidos_Semana", acViewPreview, , criterio, , acWindowNormal

End Sub

E no Relatório => Criei duas caixas de texto que irão receber as informações e na propriedade Fonte de Controle de cada caixa criei as fórmulas: =[Formulários]![Formulário_Relatórios]![dtinicio] e =[Formulários]![formulário_Relatórios]![dtfinal]

Valeu !!!


Inté.

Você "chama" o relatorio atraves de um formulario e uma consulta exclusiva? caso sim, proceda assim:

Na consulta:
campo Data: entre [formularios]![seuformulario]![seucampodatainical] e [formularios]![seuformulario]![seucampodatafinal]

No formulario:
1 opcao: ao clicar do botao "abrir relatorio"
2 opcao: apos atualizar "seucampodatafinal"

coloque este codigo substituindo o vermelho conforme o caso
DoCmd.OpenReport "seurelatorio", acViewPreview
Me.Visible = False

No relatorio:
No campo que recebera as datas:

="periodo de: " & [formularios]![seuformulario]![seucampodatainicial] & " a " & [formularios]![seuformulario]![seucampodatafinal]

no evento ao fechar
DoCmd.Close acForm, "seuformulario", acSaveNo

Tauron, bom dia.

Já consegui resolver. Veja o meu post acima.
Mas, fica sua dica também como solução.

Valeu !!!