[Resolvido]Controle Bancário

Boa tarde,

Preciso desenvolver um controle bancário que permita o lançamento de registros com data retroativa, efetuando o recalculo do saldo anterior e saldo atual, alguém pode me ajudar?

Grato

Resolvido com a consulta e código abaixo:

Código:

SELECT tblMovimento.Codigo, tblMovimento.Data, tblMovimento.Historico, tblMovimento.Credito, tblMovimento.Debito, (select sum(Credito - Debito) from tblMovimento AS tex WHERE tex.Data <=tblMovimento.Data and tex.Codigo <=tblMovimento.Codigo) AS Saldo
FROM tblMovimento
ORDER BY tblMovimento.Data DESC , tblMovimento.Codigo DESC;


Código:

Sub OrdenaTabelaCaixa()
 'criada por Alexandre Neves
 'em 2012-07-25
 'para Realdo
 'do fórum MaximoAccess
 Dim Rst As DAO.Recordset
 Set Rst = CurrentDb.OpenRecordset("SELECT Data, Codigo FROM tblCaixa ORDER BY Data,Codigo;")
 Do While Not Rst.EOF
 Rst.Edit
 Rst(1) = Rst.AbsolutePosition + 1
 Rst.Update
 Rst.MoveNext
 Loop
 Set Rst = Nothing
End Sub