Access - Control de saldos

Public Sub ActualizarSaldos()

    Dim rsIngresos As DAO.Recordset

    Dim rsSaldoFinal As DAO.Recordset

    Dim saldoInicial As Double

    Dim ingreso As Double

    Dim egreso As Double

    'Abre los recordsets para las dos tablas

    Set rsIngresos = CurrentDb.OpenRecordset("CODIPRO INGRESOS")

    Set rsSaldoFinal = CurrentDb.OpenRecordset("CODIPRO SALDOFINAL")

    'Recorre cada registro en la tabla de ingresos y egresos

    rsIngresos.MoveFirst

    Do Until rsIngresos.EOF

        'Obtiene los valores de ingresos y egresos para el registro actual

        ingreso = rsIngresos!INGRESOS

        egreso = rsIngresos!EGRESOS

        'Calcula el saldo final para el registro actual

        If rsSaldoFinal.RecordCount > 0 Then

            saldoInicial = rsSaldoFinal.Fields("SALDOFINAL").Value

        Else

            saldoInicial = 0 'Establece un saldo inicial de cero si la tabla está vacía

        End If

        rsSaldoFinal.AddNew

        rsSaldoFinal!CODIPRO = rsIngresos!CODIPRO

        rsSaldoFinal!FECHA = rsIngresos!FECHA

        rsSaldoFinal!SALDOINICIAL = saldoInicial

        rsSaldoFinal!INGRESOS = ingreso

        rsSaldoFinal!EGRESOS = egreso

        rsSaldoFinal!SALDOFINAL = saldoInicial + ingreso - egreso

        rsSaldoFinal.Update

        rsIngresos.MoveNext

    Loop

    'Cierra los recordsets

    rsIngresos.Close

    rsSaldoFinal.Close

    Set rsIngresos = Nothing

    Set rsSaldoFinal = Nothing

End Sub