[Resolvidos]Obter o total dos valores recebidos na data do dia anterior

Bom dia amigos do Fórum,

Estou com dificuldade para ter o retorno do total dos registros do último dia em uma caixa de texto do formulário.

Minha dúvida:
A Tabela Reg_N_Incluidos hoje por exemplo está entre os dias 26/03/2010 e 09/04/2010.

Hoje eu tenho R$ 100,00 para receber
=DSoma("VALOR";"Reg_N_Incluidos";"[PAGAMENTO]=#" & Data() & "#")

Amanhã terei R$ 150,00 para receber
=DSoma("VALOR";"Reg_N_Incluidos";"[PAGAMENTO]=#" & Data()+1 & "#")

Valor Total a Receber:
=DSoma("VALOR";"Reg_N_Incluidos")

Como eu colocaria na caixa de texto o valor total a receber no ultimo dia da Tabela? Ou seja no dia 09/04/2010?

Desde já agradeço,

Sds,

Charles Sestrem

Nesse caso no dia 09 teria 250 para receber, ou quer nessa caixa de texto o valor desse ultimo dia ?

Boa tarde JPaulo,
obrigado pelo retorno

Sim eu preciso do valor total do ultima data da tabela.

Estou empacado nesta expressão que outro companheiro me enviou:

=DSoma("VALOR";"Reg_N_Incluidos";"[PAGAMENTO]=#" & CVDate(DMax("[PAGAMENTO]";"Reg_N_Incluidos")) & "#")

não dá erro mais a caixa de texto fica em branco.

Sei que eu poderia fazer uma outra consulta e agrupar
os valores por data, ai era só colocar uma expressão
Dùltimo(Dlast). Mas seria mais uma consulta né.

Sds,

Eu consigo obter o Valor correspondente à Ultima Data da Tabela, de três (3) formas diferentes;

1ªNa origem do controle

=DSoma("VALOR";"Reg_N_Incluidos";"[PAGAMENTO]=#" & DMax("[PAGAMENTO]";"Reg_N_Incluidos") & "#")

2ªUma consulta em modo SQL, cole:

Código:

SELECT DISTINCT Max(Reg_N_Incluidos.PAGAMENTO) AS MaxOfPAGAMENTO, Last(Reg_N_Incluidos.Valor) AS [Ultimo Valor]
FROM Reg_N_Incluidos;


Depois na origem do controle:

=DSoma("[Ultimo Valor]";"Consulta")

3ª
Por Recordset;

Código:

Private Sub Form_Current()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

 Set rst = CurrentDb.OpenRecordset("Select * from Reg_N_Incluidos")
    rst.MoveLast
Me.SuaCaixaTexto.Value = rst![Valor]
rst.Close
End Sub

Amigão,

Na primeira expressão a caixa de texto fica em branco

Os outros modos funcionam, mas o que tava querendo era o

total dos registros da ultima data. Ex: tenho tres registros

de R$ 100,00 totalizando R$ 300,00 no dia 09/04, que é a

ultima data da programação à receber. Do modo que me passou

vai aparecer R$ 100,00.

Sds,

Obrigado pelo retorno.

Opa, era mesmo essa parte que eu não estava a entender, se era apenas uma data ou mais datas iguais;

Teste se faz favor;

Código:

Private Sub Form_Current()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim stMax As Date
'By JPaulo Maximo Access

Me.SuaCaixaTexto.Value = 0
 Set rst = CurrentDb.OpenRecordset("Select * from Reg_N_Incluidos")
 
stMax = DMax("PAGAMENTO", "Reg_N_Incluidos")
   
            rst.MoveFirst
            Do Until rst.EOF
                If rst.Fields("PAGAMENTO") = stMax Then
            Me.SuaCaixaTexto.Value = Me.SuaCaixaTexto.Value + rst![Valor]
                End If
        rst.MoveNext
    Loop
rst.Close
End Sub



Caramba, JPaulo, vc é fera mesmo..rsss

Tava vindo postar esta modificação na sql que funcionou também:

Private Sub Form_Current()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT Reg_N_Incluidos.PAGAMENTO, " & _
"Sum(Reg_N_Incluidos.VALOR) AS acumulado " & _
"FROM Reg_N_Incluidos GROUP BY Reg_N_Incluidos.PAGAMENTO; ")
rst.MoveLast
Me.TxtUltimo.Value = rst![acumulado]
rst.Close
Set rst = Nothing
End Sub

De qualquer forma muito obrigado mesmo.

Sds,

Charles Sestrem

Valew;

Ambos funfam, mas o meu é mais rápido rsrsrsrsrs.

Bom final de semana.