如何在Access报表中实现求和的求和？文本框嵌套求和解决方案

我明白你在Access报表里遇到的这个嵌套求和的难题了——直接用Sum(Sum([文本框1]) + Sum([文本框2]))这类写法肯定会报错，因为Access的报表计算引擎不允许在聚合函数里再套聚合。下面给你几个靠谱的解决思路，你可以根据自己的报表结构选：

方法1：在数据源查询中预计算中间值（最推荐） #

如果你的两个求和文本框的数据来自同一个基础查询，不如先在查询层面把需要的中间和算好，这样报表里直接用现成的字段求和就行：

• 打开报表绑定的数据源查询，新增一个计算字段，格式如下：

  中间合计: [字段1] + [字段2]
  

  这里的[字段1]和[字段2]是你原来两个文本框绑定的原始数据字段。
• 保存修改后的查询，回到报表设计视图，新增第三个文本框，设置它的控件来源为=Sum([中间合计])，并把它放在对应的汇总节（比如报表页脚、组页脚）。

方法2：用VBA事件手动计算汇总值（适合不想改数据源的情况） #

如果不想调整基础查询，可以通过报表的事件触发VBA代码来计算两个求和结果的总和：

1. 先给现有的两个求和文本框设置明确的名称，比如txtSumField1和txtSumField2（确保它们的控件来源是各自的求和公式，比如=Sum([字段A])）。
2. 新增第三个文本框，命名为txtTotalSum，暂时留空控件来源。
3. 打开报表的设计视图，右键点击对应的汇总节（比如报表页脚），选择事件生成器，在Format事件中写入以下代码：

   Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
       ' 用Nz函数处理空值，避免计算出错
       Dim sum1 As Double, sum2 As Double
       sum1 = Nz(Me.txtSumField1.Value, 0)
       sum2 = Nz(Me.txtSumField2.Value, 0)
       Me.txtTotalSum.Value = sum1 + sum2
   End Sub
   

   如果是在组页脚里做汇总，就把事件换成对应组页脚的Format事件即可。

方法3：直接引用文本框值相加（最简单的场景） #

如果你的两个文本框本身已经是同一节内的汇总结果（比如都在报表页脚，分别是两个字段的总求和），那根本不需要嵌套Sum——直接在第三个文本框的控件来源里写：

=Nz([txtSumField1], 0) + Nz([txtSumField2], 0)

用Nz函数是为了防止其中一个求和结果为空（比如某字段没有数据），导致整个计算返回错误值。

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