如何在MS Access表中计算行间数据实现滚动预算？

Access作为关系型数据库，没法像Excel那样直接给单元格写跨行公式，得用查询或者VBA来实现你要的滚动余额计算，下面给你两种实用方法：

方法1：用查询实时计算余额（推荐） #

关系型数据库里，计算字段最好通过查询实时生成，避免数据冗余和出错。步骤如下：

• 假设你的表名叫Transactions，字段是Date（日期型）、AmountIn（收入，数字型）、AmountOut（支出，数字型）。
• 创建选择查询，切换到SQL视图，粘贴以下语句：

SELECT 
    t.Date,
    t.AmountIn,
    t.AmountOut,
    (
        SELECT Nz(SUM(AmountIn - AmountOut), 0)
        FROM Transactions AS t2
        WHERE t2.Date <= t.Date
    ) AS Balance
FROM Transactions AS t
ORDER BY t.Date;

• 运行查询就能得到和你示例一致的结果：子查询会计算当前日期及之前所有收支的差额总和，Nz函数是为了处理第一条记录（没有历史数据时默认从0开始）。

方法2：把余额写入表的Balance字段（需持久化存储时用） #

如果一定要把余额存在表的Balance字段里，用VBA批量更新：

1. 按Alt+F11打开VBA编辑器，插入一个模块，粘贴代码：

Sub UpdateBalance()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim prevBalance As Double
    
    Set db = CurrentDb
    ' 按日期排序读取记录，确保计算顺序正确
    Set rs = db.OpenRecordset("SELECT * FROM Transactions ORDER BY Date", dbOpenDynaset)
    
    prevBalance = 0
    rs.MoveFirst
    Do Until rs.EOF
        prevBalance = prevBalance + rs!AmountIn - rs!AmountOut
        rs.Edit
        rs!Balance = prevBalance
        rs.Update
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "余额更新完成！"
End Sub

2. 按F5运行代码，就能批量更新表中的Balance字段。运行前记得备份数据，避免出错。

注意点 #

• 优先用查询方法：如果后续修改了历史收支数据，查询会自动重新计算余额，而存在表中的话得重新跑VBA，不然数据会不一致。
• 如果同一天有多笔记录，两种方法都会自动累加当天所有收支，得到当日最终余额。

内容的提问来源于stack exchange，提问作者jrdidigetthis