[Resolvido]Agrupar em uma consulta por nome oque gastou no mês

Prezados bom dia a todos.

Preciso de uma pequena força aqui.....

Tenho essa consulta que esta no anexo.

O que necessito......

a- agrupar por nome de cliente.
b- agrupar e somar o que foi gasto dentro do mês (note que temos um filtro na dataOS) pelo que cliente que está no item a.

Agradeço deste já a ajuda.

Silvio

Silvio

Porque você está somando o IDCliente?

Primeiro veja isso.

Depois conversamos


Noob

ok....foi um erro meu antes de mandar a imagem da consulta...

aqui a Sql que esta na consulta...

SELECT QryDespesaMec1.IdCliente, QryDespesaMec1.NomeC, QryDespesaMec1.TotalGeral, QryDespesaMec1.DataOs
FROM QryDespesaMec1
GROUP BY QryDespesaMec1.IdCliente, QryDespesaMec1.NomeC, QryDespesaMec1.TotalGeral, QryDespesaMec1.DataOs
HAVING (((QryDespesaMec1.DataOs) Between [forms]![frmrecebecliente]![di] And [forms]![frmrecebecliente]![df]))
ORDER BY QryDespesaMec1.NomeC;

Em anexo a imagem correta da mesma.

Silvio

Experimente assim:

-Faça uma uma consulta que retorne o dados e as datas do período DataOs (Entre [di] e [df]) e salve-a

Agora que tem uma consulta retornando todos os registros dentro do período,

-Crie outra consulta utilizando essa consulta e agrupe e some os registros necessários.

[ ]'s

Noob

Noob.....estou pensando em montar uma estrutura em SQL nessa mesma consulta. Estou tentando simplificar o máximo que der a estrutura de tabelas e consultas em meus sistemas; Ficando assim mais simples e fácil a manutenção e programação deles.

Bom..para não deixar o tópico aberto, vou aplicar uma solução antiga e caminhar um pouco sobre instruções em SQL.

Eis abaixo a solução, que por hora e momento, está temporária.

Código:

Private Sub cbodespesa_AfterUpdate()
Dim filtroData$

Me.Idcliente = Me.cbodespesa.Column(0)
Me.NomeC = Me.cbodespesa.Column(1)
Me.TG1 = Me.cbodespesa.Column(2)

filtroData = "dataos Between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
Me.TG1 = DSum("TotalGeral", "qrydespesamec1", "idcliente=" & Me.Idcliente & " AND " & filtroData)

Abraços a todos.