在MS Access中对单列多行数据求和的实现方法

嘿，我来帮你搞定这个求和需求！针对你已经搭建好录入UI，现在要对另一张表的单列多行数据求和并获取结果的场景，给你两种实用的实现方式：

方法1：用查询（最省心的无代码方案） #

这种方式适合快速生成求和结果，甚至直接把结果存入目标表：

• 打开Access，点击创建选项卡，选择查询设计
• 把需要求和的数据源表添加到查询视图中
• 双击目标求和字段，将其拖到查询网格里
• 在该字段的总计行，下拉选择「求和（Sum）」
• 如果只需要对特定范围的数据求和，比如某类记录，可以在对应字段的条件行输入筛选规则（示例：[部门] = "销售部"）
• 点击顶部的运行按钮，就能立刻看到求和结果
• 想把结果直接写入另一张表？用生成表查询即可：
  1. 完成上面的求和查询设计
  2. 切换到设计选项卡，点击生成表
  3. 输入目标表名称，选择是新建表还是覆盖现有表，确认后点击确定
  4. 再次运行查询，求和结果就自动存入目标表了

方法2：用VBA代码（适配你的用户界面） #

如果希望和录入UI联动，比如用户点击按钮自动计算并保存结果，VBA会是更灵活的选择。给UI按钮绑定下面的代码就行：

Sub CalculateAndSaveSum()
    Dim db As DAO.Database
    Dim totalValue As Double
    Dim targetRs As DAO.Recordset
    
    ' 计算数据源表指定字段的总和，带筛选条件可加第三个参数
    totalValue = DSum("你的字段名", "数据源表名")
    ' 示例：带日期筛选的求和 totalValue = DSum("金额", "订单表", "订单日期 >= #2024/1/1#")
    
    ' 打开目标表准备写入结果
    Set db = CurrentDb
    Set targetRs = db.OpenRecordset("目标表名", dbOpenDynaset)
    
    ' 添加新记录并写入求和值
    targetRs.AddNew
    targetRs!结果字段名 = totalValue
    ' 可额外添加辅助信息，比如计算时间
    targetRs!计算时间 = Now()
    targetRs.Update
    
    ' 清理资源
    targetRs.Close
    Set targetRs = Nothing
    Set db = Nothing
    
    MsgBox "求和完成！结果已保存到目标表", vbInformation
End Sub

• 把代码里的占位符（你的字段名、数据源表名等）替换成你实际的表和字段名称
• 回到UI设计视图，右键按钮选择「事件生成器」，将这段代码绑定到按钮的点击事件上

小提醒 #

• DSum是Access内置的求和函数，支持灵活的筛选条件，适合快速计算
• 如果需要实时同步求和结果，可以在数据源表的更新后事件里触发VBA代码，自动更新目标表的总和值

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