Access - Calcular saldos

Private Sub Comando24_Click()

Dim rst As DAO.Recordset

Dim vIng As Currency, vGto As Currency

Dim vSaldo As Currency

Dim vAnterior As Currency

Dim miSql As String

miSql = "select * from TMovimientos order by TMovimientos.Fecha"

vSaldo = 0

vAnterior = 0

Set rst = CurrentDb.OpenRecordset(miSql)

If rst.RecordCount = 0 Then GoTo Salida

With rst

.MoveFirst

Do Until .EOF

.Edit

.Fields("Anterior").Value = vSaldo

.Update

vIng = Nz(.Fields("Ingreso").Value, 0)

vGto = Nz(.Fields("Gasto").Value, 0)

vSaldo = vSaldo + vIng - vGto

.Edit

.Fields("Saldo").Value = vSaldo

.Update

.MoveNext

Loop

End With

DoCmd.Close acForm, Me.name

DoCmd.OpenForm "FMovUpdates", , , , acFormReadOnly

Salida:

rst.Close

Set rst = Nothing

End Sub

SELECT

	TA.Id,

	TA.fecha,

	TA.concepto,

	TA.abono,

	TA.cargo, Nz(

					(

						SELECT SUM(TB.abono - TB.cargo)

						FROM Tabla1 AS TB

						WHERE TB.fecha < TA.fecha

					),

				0)

				+

				([TA].[abono]-[TA].[cargo]) AS saldo

FROM Tabla1 AS TA;