[Resolvido]Data no cabeçalho do relatório

Boa tarde a todos.

Gostaria de uma ajuda em um item que ao meu ver pode ser simples, mas não ainda consegui enxergar uma solução.

Tenho uma tabela no BD que uso para gerar um relatório.

Tab Mensalidade com os seguintes campos: MensId, Data, ClienteId, Valor, CodPag

O formulário está OK.

Criei uma consulta Referência cruzada para gerar um relatório das mensalidades pagas ao longo de um ano, filtradas por ano.

TRANSFORM Sum(Mensalidade.Valor) AS SomaDeValor
SELECT Cadastro.CadNome, Sum(Mensalidade.Valor) AS [Total de Valor]
FROM Mensalidade INNER JOIN Cadastro ON Mensalidade.ClienteId = Cadastro.CadID
WHERE (((Format([Data],"yyyy"))=[Entre com o Ano:]))
GROUP BY Cadastro.CadNome
ORDER BY Cadastro.CadNome
PIVOT Format([Data],"mmm") In ("Jan","Fev","Mar","Abr","Mai","Jun","Jul","Ago","Set","Out","Nov","Dez");

Anexo imagem do relatório gerado. Até aí tudo OK.

O que eu preciso é um TextBox no cabeçalho do relatório, que mostre o ano indicado pelo usuário na cláusula WHERE.

Por enquanto é isso. Muito Obrigado.

boa noite amigo Ricardo !
para colocar o Ano atual no cabeçalho do Relatório.
em uma caixa de texto não acoplada copie e cole isso   =Ano(Data())
aguardo Retorno abraço Nogaro !

Nogaro, boa noite.
Agradeço a rápida resposta. Porém a solução indicada resolve se o problema fosse indicar a data ou o ano atual. Mas não é o caso. A consulta pede que o usuário indique o ano do qual ele quer ver os dados, que pode ser o atual ou qualquer um ano anterior. E é justamente o ano que ele digita na cx. de diálogo quando abre o relatório que eu gostaria que fosse mostrado no cabeçalho, de modo a ficar claro de que ano são aqueles dados.

Ricardo

Como está usando uma inpuBox(), não tem como  utilizar o dado

digitado nela para colocar no relatório, pois ela se fecha antes do relatório

ser aberto.

Nunca gostei de inputbox, ela não tem nada de atrativo e dá a impessão

de desleixo por parte do programador.

Sugiro que faça um formulário, com uma caixa de texto e o botão para imprimir,
deixando  X no cabeçalho para o usuário fechar o formulário se disistir de querer
imprimir.

Como disse, nunca usei.

Experimente isso:

Num módulo do VBA (não de um formulário) coloque:

Public meuAno as String

Onde colocou a inputBox()

Como não passou o código, é apenas um exemplo:

meuAno = inputbox("digite o ano:")


Dessa maneira o ano ficou gravado na variável meuAno
que poderá colocar na caixa de texto do relatório.

[ ]'s

De uma olhadinha neste post.

Noob, obrigado pelas sugestões. Vou tentar fazer, não tenho muita experiência mas vou tentar. Isto é um trabalho voluntário que desenvolvo para uma entidade.

Gostei da idéia de usar um formulário para comandar a abertura do relatório. Posso colocar além da Text, dois botões, um para visualizar na tela e outro para imprimir direto.

Só não sei como usar o textbox com o ano digitado pelo usuário na consulta na cláusula WHERE. Seria talvez uma referência tipo WHERE (((Format([Data],"yyyy"))=[Forms]![NomeDoFomulário]![Ano]))?

Vou testas as duas sugestôes. depois volto com os resultados.

Obrigado a todos.

Não sabia como envia os anexos. Aí vai o visual da folha do relatório.

Bem, testei inicialmente a mais fácil.

Código inserido no Módulo 1

Option Compare Database

Public MensAno As String

Código inserido no relatório

Option Compare Database

Private Sub Report_Current()
MensAno = InputBox("Entre com o ano:")
End Sub

Funcionou, só que a inputbox para entrada do parâmetro aparece duas vezes. Anexo o resultado do relatório (ainda sem a devida formatação visual do ano)

amigo, vc deu uma olhadinha no link que postei? posta seu bd aqui para que possamos ajudar melhor.

Anexe o teu aplicativo para vermos

somente a tabela, o formulário e o relatório, se tiver consulta, tbm

Boa tarde a todos.

Tauron, olhei o post e penso que entendi o código. Ainda não criei o formulário para comandar a abertura e impressão do relatório, por absoluta falta de tempo. Como é um trabalho voluntário, faço só nas horas vagas.

Noob, Vou salvar o BD sem os dados já cadastrado e mando como anexo. Tenho vergonha por ser um trabalho muito primário, mas vai assim mesmo.

Graças a ajuda do fórum e de vocês já consegui bastante.

Obrigado a todos.

Verifique agora.

Emerson, boa tarde.

Já baixei a sua modificação. Ficou muito legal. Era isso que eu estava procurando. Só terei que fazer um pequeno ajuste, de modo que o operador entre somente com o ano e não com o intervalo entre datas. Acho que consigo. Vou tentar, se der certo volto para concluir o tópico, se não vou perturbar mais um pouco.

Muito obrigado.

Desculpe incomodar de novo, mas não consegui ajustar o código para que o operador entrasse somente com o ano. Fiz até um pedaço mas aí dá:

"Erro em tempo de execução 3421"
"Erro de conversão de tipo de dados"

Deve ser algo com a formatação de datas dentro dos códigos. Segue o BD com as alterações que fiz. Agradeço se puder me dar alguma ajuda neste ponto.

Obrigado.

16/12
Consegui corrigir ajustando a formatação na querry. As duas soluções propostas funcionaram.
Muito obrigado a todos.

Consegui corrigir ajustando a formatação na querry. As duas soluções propostas funcionaram.

Muito obrigado a todos.

O forum agradece o retorno.