[Resolvido]Relatório Horizontal

Boa tarde

Será possivel fazer um relatório como mostra a Imagem.

No quadro de cima são os dados como mostra a tabelas.


Em baixo é como queria que o relatório fosse visualizado e imprimido.

Obrigado e um ótimo 2013

ps. só mostra até dia 6 mas pode ir até dia 31

Ola Assis, tente adaptar;

Boas JPaulo

Bom 2013 para o Amigo.

Não estou a conseguir aplicar a minha tabela.
Anexei a minha tabela tabela no seu exemplo

Agradecia uma mãozinha

Obrigado

Assis bom ano para si tambem;

Para o seu caso, não necessitra de código algum;

Com uma consulta de União e uma Consulta de Referencia Cruzada, resolve o seu problema.

Veja o simples;

Assis, resolveu ?

Bom dia grande MESTRE

Este é o primeiro grande obrigado do ano
Tudo de bom para o amigo e familia.

Obrigado

Atenção as maiúsculas rsrsrsr

Obrigado pelo retorno o fórum agradece.

Boa tarde
JPaulo

Apareceu aqui um problema ao introduzir na tabela Turnos os registo de janeiro a dezembro de 2013

Na consulta "qryJuntaCampos_Final" não aparece os dados do ano 2013, como aparecem na consulta Referencia Cruzada qryJuntaCampos

Segue exemplo com a tabela com registo de janeiro a dezembro de 2013 para analixar

Obrigado

Assis, numa consulta de referencia cruzada, é de todo impossivel você apresentar 365 campos, referentes aos 365 dias do ano.

Tem de colocar pelo menos um filtro para lhe mostrar por exemplo, por mês/ano.

JPaulo

Estou a tentar subtituir no critério [Digite o Mês Ano Ex: MM-AAAA] por [forms]![Menu]![Filtro].

Na consulta "qryJuntaCampos" resulta . Executo a consulta, pede o critério, Insiro com as teclas 04-2013 e aparecem

os dados corretos

Mas na Consulta "qryJuntaCampos_Final" da erro como imagem anexa.

Eu tenho um formulário chamado "Menu" de onde abro todos os form ou relatórios e tenho lá o campo "Filtro"

No acontecimento "no actual" do formulário "Menu" tenho Me.Filtro = Format([DataMenu], "mm-yyyy") aonde aparece o o

valor " 01-2013" para o critério da consulta.

Assis como ja foi explicado inumeras vezes neste forum, em consultas de referencia cruzada o criterio tem de ser colocado tambem nos parametros dessa mesma consulta e tem de estar igualzinho ao criterio normal.

Resolvi assim

A consulta qryJuntaCampos ficou assim

SELECT qryJuntaCampos_I.[Dia/Mês], qryJuntaCampos_I.Item, qryJuntaCampos_I.turnos, Format([Dia/Mês],"mm/yyyy") AS MesAnoRef
FROM qryJuntaCampos_I
WHERE (((Format([Dia/Mês],"mm/yyyy"))=[forms]![Menu]![filtro]));


A consulta qryJuntaCampos_Final ficou assim
TRANSFORM Max(qryJuntaCampos.turnos) AS Maxdeturno
SELECT qryJuntaCampos.Item
FROM qryJuntaCampos
GROUP BY qryJuntaCampos.Item
PIVOT Format([Dia/Mês],"dd") In ("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31");

Obrigado amigo.