Access中VBA DSum函数失效求助：无法将求和值显示到表单

你这段代码的核心问题很清楚——你已经用DSum函数算出了qryExpenses里的金额总和，但完全没把这个结果和表单上的控件关联起来，所以点击按钮后自然看不到任何显示效果。

下面是具体的修复步骤和优化建议：

1. 先在表单上准备显示控件 #

首先你需要在表单上添加一个用于展示结果的控件：

• 推荐用文本框（比如命名为txtTotalExpense），方便后续如果需要编辑的话更灵活；
• 也可以用标签（命名为lblTotalExpense），纯展示用。
  记住控件的名称，后面代码要用到。

2. 修改代码，将结果赋值给控件 #

把你的代码改成下面这样，关键就是增加赋值给控件的语句：

Private Sub Command18_Click()
    Dim totalExpense As Currency
    ' 计算qryExpenses中Amount字段的总和
    totalExpense = DSum("Amount", "qryExpenses")
    ' 将结果赋值给表单上的文本框（如果用标签就换Caption属性）
    Me.txtTotalExpense.Value = totalExpense
    ' 如果是标签的话，替换成：Me.lblTotalExpense.Caption = totalExpense
End Sub

3. 额外的优化与避坑建议 #

• 控件名称要准确：代码里引用的控件名称必须和你表单上的控件名称完全一致，大小写不敏感但拼写不能错，不然会弹出运行时错误。
• 处理空值情况：如果qryExpenses没有任何数据，DSum会返回Null，直接赋值会导致控件显示空白或者报错。可以用Nz函数把空值转为0：

  Me.txtTotalExpense.Value = Nz(DSum("Amount", "qryExpenses"), 0)
  

• 设置控件格式：可以在文本框的属性面板里把“格式”设为“货币”，这样结果会自动显示成带货币符号的格式，更直观。

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