[Resolvido]Relatorio com tabelas de ref. cruzada - Totais

Bom dia Pessoal:
Estou com um probleme que já tentei vários modos de contorná-lo mas não consigo:

Tenho duas querys de ref. cruzada:

1 - Me retorna o total de envios realizados (cartas e boletos para doadores de uma ong) por mes:

CodigoEnvio Mês Total Envio CustoUnitarioDoEnvio
5 01/12 1 1,26
5 04/12 2283 1,26
5 05/12 5000 1,26
5 06/12 2182 1,26
5 09/12 174 1,26
5 11/11 1247 1,26

2 - Me retorna o total de pagamentos realizados dos envios anteriores:

CodigoEnvio Mês PagamentoValor TotalPagamentos Média

5 03/12 R$ 0,00 141 R$ 17,87
5 04/12 R$ 0,00 218 R$ 18,55
5 05/12 R$ 0,00 303 R$ 22,33
5 06/12 R$ 0,00 47 R$ 17,34
5 11/11 R$ 0,00 44 R$ 21,02

Com estas duas querys queria montar uma terceira que alimentará um relatório. Acontece que está dando erro, multiplicando em cada linha os valores da query envios, ficando assim:

Mês 01/12 01/12 01/12 01/12 01/12 04/12 04/12 04/12 04/12 04/12 05/12 05/12 05/12 05/12 05/12 06/12 06/12 06/12 06/12 06/12 09/12 09/12 09/12 09/12 09/12 11/11 11/11 11/11 11/11 11/11

Total Envios 1 1 1 1 1 2283 2283 2283 2283 2283 5000 5000 5000 5000 5000 2182 2182 2182 2182 2182 174 174 174 174 174 1247 1247 1247 1247 1247

Total de Doações 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44

Valortotal R$ 2520,000 R$ 4044,22000 R$ 6765,54000 R$ 815,2000 R$ 925,000 R$ 2520,000 R$ 4044,22000 R$ 6765,54000 R$ 815,2000 R$ 925,000 R$ 2520,000 R$ 4044,22000 R$ 6765,54000 R$ 815,2000 R$ 925,000 R$ 2520,000 R$ 4044,22000 R$ 6765,54000 R$ 815,2000 R$ 925,000 R$ 2520,000 R$ 4044,22000 R$ 6765,54000 R$ 815,2000 R$ 925,000 R$ 2520,000 R$ 4044,22000 R$ 6765,54000 R$ 815,2000 R$ 925,000

Não sei se o problema está claro e se teriam alguma idéia de como eu posso corrigir este erro.

Obrigado.
Wagner

Boa noite, bonelli
Tente, em cada uma das consultas, criar tabelas (tdfCons1 e tdfCons2). Depois, é só recolher os dados das duas tabelas para o relatório

A princípio pode ser falta de relacionamento entre as consultas, mas se você puder postar as consultas fica mais fácil te ajudar, pode ser?

OI Alexandre e Leandro!

Aqui posto o link para baixarem o exemplo: http://www.4shared.com/office/SJM22bXb/Ref_Cruzada_para_Relatorio.html?

Alexendra, criei as tabelas e coloquei as mesmas em uma nova query, mas sem resultado, dando o mesmo problema, duplicandos, ou meso triplicando os valores, conforme os meses:

Mês Envio 01/12 01/12 01/12 01/12 01/12 04/12 04/12 04/12 04/12 04/12 05/12 05/12 05/12 05/12 05/12 06/12 06/12 06/12 06/12 06/12 09/12 09/12 09/12 09/12 09/12 11/11 11/11 11/11 11/11 11/11

Mês Pagamento 03/12 04/12 05/12 06/12 11/11 03/12 04/12 05/12 06/12 11/11 03/12 04/12 05/12 06/12 11/11 03/12 04/12 05/12 06/12 11/11 03/12 04/12 05/12 06/12 11/11 03/12 04/12 05/12 06/12 11/11

TotalPagamentos 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44 141 218 303 47 44

Total Envios 1 1 1 1 1 2283 2283 2283 2283 2283 5000 5000 5000 5000 5000 2182 2182 2182 2182 2182 174 174 174 174 174 1247 1247 1247 1247 1247

Sendo que a tabela dos envios está assim:

Mês 01/12 04/12 05/12 06/12 09/12 11/11

Total de Envios 1 2283 5000 2182 174 1247

CustoUnitarioDoEnvio 1,26 1,26 1,26 1,26 1,26 1,26

E a tabela de Pagamentos assim:

Mês Pagamento 03/12 04/12 05/12 06/12 11/11

TotalPagamentos 141 218 303 47 44

Valor R$ 2.520,00 R$ 4.044,22 R$ 6.765,54 R$ 815,20 R$ 925,00

Média R$ 17,87 R$ 18,55 R$ 22,33 R$ 17,34 R$ 21,02

Obrigado, Wagner

Esse sítio é só para membros registados. Se puder disponibilizar no dropbox, por ex.

OI Alexandre!
Acabei de instalar o DropBox. Aqui vai o link:
https://www.dropbox.com/sh/mbtn9aib1w0gt11/rlIPPWCPqU/Ref_Cruzada_para_Relatorio.mdb
Obrigado.

wbonelli
Agora não percebi como quer que ligue os dados entre as duas tabelas
Código Envio <-> Historico_Envio
Mês <-> Mês Pagamento
A ligação dos campos está certa?

OI Alexandre, boa noite!

Então, a ligação das duas querys estão sendo pelo campo código de Envio e histórico de envio.
Mês e Mês de Pagamento faz menção ao Mês em que foi feito o Envio, e o Mes de pagamento, a data que foi feito o pagamento.
Obrigado
Wagner

Bom dia, bonellli
Veja se é esta consulta que pretende:
SELECT * FROM Ref_Livro_Rosario_Envios LEFT JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.[Código Envio]=Ref_Livro_Rosarios_Pagamentos.[Historico_Envio];
Se for, coloque, AoAbrir do relatório, Me.recordsource="SELECT * FROM Ref_Livro_Rosario_Envios LEFT JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.[Código Envio]=Ref_Livro_Rosarios_Pagamentos.[Historico_Envio];"
Melhore a nomenclatura dos campos. Já se tem falado muito nisto.

oi Alexandre, bom dia!

Obrigado pelo envio da sua consulta, bem como seu conselho sobre a nomenclatura. Vou sim melhorar esta parte.
Infelizmente acontece a mesma coisa, repete os valores.
Em um outro forum que postei o meu problema também, um membro deu a solução. Veja.



SELECT Ref_Livro_Rosario_Envios.Mês, Ref_Livro_Rosario_Envios.[Código Envio], Ref_Livro_Rosario_Envios.Descrição, Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Total Envios], nz(([TotalPagamentos]),0) AS [Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo
FROM Ref_Livro_Rosario_Envios LEFT JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento];


Muito obrigado mais uma vez a todos.
Wagner

Boa tarde, wbonelli
Afinal, a ligação era pelo campo Mês. Ainda bem que resolveu
Sempre que resolver, marque resolvido

OI Alexandre!
No próximo post, quando finalizado farei assim.
Ainda não vou fechar este dado que descobri um pequeno (grande) erro:
A consulta está desconsiderando um mês de pagamento que não existe similar na consulta envios.
Não consegui dar a volta no assunto. TAlvez você consiga descobrir o erro.

Veja:

Mês1 01/12 04/12 05/12 06/12 09/12 11/11

Total Envios 1 2283 5000 2182 174 1247

Total de Doações 0 218 303 47 0 44

Valortotal 4044,22 6765,54 815,2 925

Cuando executo a consulta dos pagamentos tem esta linha que não foi contemplada na query anterior

Mês Pagamento 03/12

Valor R$ 2.520,00

TotalPagamentos 141

Média R$ 17,87

Já tentei colocar no campo do Mês a expressão: Mês1: nz(([Mês]);0), mas não deu resultado.
Obrigado.

wbonelli,
Informe: Todos os registos da consulta da direita tem correspondentes na consulta da esquerda? ou pode, umas vezes, haver mais registos na consulta da esquerda e, outras vezes, mais registos na consulta da direita?

Alexandre,

ÁS vezes um ou outro.
Me explico melhor.
Trata-se de uma campanha de captação de doadores para uma instituição filantrópica do interior do Rio de Janeiro.
São feitos os envios das cartas com um livro, etc..
Os envios acontecem periodicamente, como deve ter visto pela tabela envios: Um mês é 1000, outro 5000, outro 150, etc.,
Os pagamentos dos livros são agrupados mensalmente. Agora, existem meses que não há pagamentos (principalmente os primeiros meses do envio do produto), como também meses que não são feitos envios. Assim que acontece as duas coisas.

A consulta que um membro de outro fórum fez e postei aqui conseguiu recuperar todos os pagamentos e envios, mas somente os que nos dois casos tinham correspondentes no mesmo mês.
Não sei se a explicação ficou clara.

Wagner

vamos ver se acertamos

SELECT Ref_Livro_Rosario_Envios.Mês, Ref_Livro_Rosario_Envios.[Código Envio], Ref_Livro_Rosario_Envios.Descrição, Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Total Envios], nz(([TotalPagamentos]),0) AS [Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo
FROM Ref_Livro_Rosario_Envios INNER JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento] UNION SELECT Ref_Livro_Rosario_Envios.Mês, Ref_Livro_Rosario_Envios.[Código Envio], Ref_Livro_Rosario_Envios.Descrição, Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Total Envios], nz(([TotalPagamentos]),0) AS [Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo
FROM Ref_Livro_Rosario_Envios LEFT JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento] WHERE IsNull(Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento]) UNION SELECT Ref_Livro_Rosario_Envios.Mês, Ref_Livro_Rosario_Envios.[Código Envio], Ref_Livro_Rosario_Envios.Descrição, Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Total Envios], nz(([TotalPagamentos]),0) AS [Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo
FROM Ref_Livro_Rosarios_Pagamentos LEFT JOIN Ref_Livro_Rosario_Envios ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento] WHERE IsNull(Ref_Livro_Rosario_Envios.Mês);

OI Alexandre, boa tarde!

Acertou!!!!! Muitíssimo obrigado.
Apenas acrescentei o campo MêsPagamento para que os meses que não tenham envios mais sim pagamentos, apareça o mês correspondente.

Assim ficou:

[Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo, Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento]

FROM Ref_Livro_Rosario_Envios INNER JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento]

UNION SELECT Ref_Livro_Rosario_Envios.Mês, Ref_Livro_Rosario_Envios.[Código Envio], Ref_Livro_Rosario_Envios.Descrição, Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Total Envios], nz(([TotalPagamentos]),0) AS [Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo, Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento]

FROM Ref_Livro_Rosario_Envios LEFT JOIN Ref_Livro_Rosarios_Pagamentos ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento] WHERE IsNull(Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento])

UNION SELECT Ref_Livro_Rosario_Envios.Mês, Ref_Livro_Rosario_Envios.[Código Envio], Ref_Livro_Rosario_Envios.Descrição, Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Total Envios], nz(([TotalPagamentos]),0) AS [Total de Doações], nz(([Média]),0) AS [Média por Doador], Ref_Livro_Rosarios_Pagamentos.TotalPagamentos/Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS [Nº Respostas %], Ref_Livro_Rosarios_Pagamentos.Valor AS Valortotal, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio, Ref_Livro_Rosario_Envios.CustoUnitarioDoEnvio*Ref_Livro_Rosario_Envios.[Total de Id_Historico_Cliente] AS CustoTotalDoEnvio, Ref_Livro_Rosarios_Pagamentos.Valor-[CustoTotalDoEnvio] AS LucroOuPrejuizo, Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento]

FROM Ref_Livro_Rosarios_Pagamentos LEFT JOIN Ref_Livro_Rosario_Envios ON Ref_Livro_Rosario_Envios.Mês = Ref_Livro_Rosarios_Pagamentos.[Mês Pagamento] WHERE IsNull(Ref_Livro_Rosario_Envios.Mês);


Mais uma vez obrigado!
Wagner

TEma REsolvido!