[Resolvido]Soma e contar quantidade de contas e valor

Boa tarde

Estou tentando fazer a soma de Contas A Receber, Contas Vencidas e Contas A vencer em 3 dias.

O código abaixo:

Código:



areceber = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber'"), "#,##0.00")
contarareceber = DCount("CodReceita", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao = 'A Receber'")

vencido = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento>#" & Date & "#"), "#,##0.00")
contarvencido = DCount("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento>#" & Date & "#")

areceber3 = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento=DataVencimento + 3"), "#,##0.00")
contarareceber3 = DCount("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento=DataVencimento + 3") 'DLookup("Valor", "tb_moeda", "Data=(Date()-1)")




Teria como mandar uma cópia do seu arquivo tentar ajudar ?

Então:

'Aqui o código para contar e somar o total de contas a receber do cliente selecionado
areceber = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber'"), "#,##0.00")
contarareceber = DCount("CodReceita", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao = 'A Receber'")

'Aqui o código para contar e somar a contas já esta vencida do cliente selecionado
vencido = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento>#" & Date & "#"), "#,##0.00")
contarvencido = DCount("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento>#" & Date & "#")

'Aqui o código para contar e somar as contas que irá vence em 3 dias do cliente selecionado
areceber3 = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento=DataVencimento + 3"), "#,##0.00")
contarareceber3 = DCount("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento=DataVencimento + 3") 'DLookup("Valor", "tb_moeda", "Data=(Date()-1)")


Segue em anexo o banco de dados. Esse código esta formulário frmReceitas.

Up

Olá..

Salvo engano, verifiquei que os resultados dos dados a vencer e vencidos estão corretos Ok?.

Faltava o a vencer em 3 dias, então acredito que voce deseja comparar a data de vencimento com a data de hoje mais 3 dias.

Se for isso e se for a vencer exatamente a 3 Dias em relação a data de hoje, seria:

Código:

areceber3 = Format(DSum("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento = #" & Date & "# + 3 "), "#,##0.00")
contarareceber3 = DCount("ValorParcela", "tblReceitas", "CodCliente=" & Me.txtCodCliente & " and Situacao='A Receber' and DataVencimento = #" & Date & "# + 3 ") 'DLookup("Valor", "tb_moeda", "Data=(Date()-1)")

Agora, Se for isso e se for a vencer nos próximos 3 Dias em relação a data de hoje, seria:

Código:

areceber3 = Format(DSum("ValorParcela", "tblReceitas", "CodCliente = " & Me.txtCodCliente & " and Situacao = 'A Receber' and DataVencimento between #" & Date & "# And #" & Date & "# +3 "), "#,##0.00")
contarareceber3 = DCount("ValorParcela", "tblReceitas", " CodCliente = " & Me.txtCodCliente & " and Situacao = 'A Receber' And (DataVencimento between #" & Date & "# And #" & Date & "# +3)")


Se não for desta maneira, explique melhor como teria que ser.
Aguardamos retorno

Abraços e sucesso

Muito obrigado funcionou perfeitamente.

Olá..

Ficamos felizes por ter ajudado.

Agradecemos o seu Retorno.

Abraços e sucesso