求助：Access未绑定文本框按指定年份和应用类型统计记录数

一、替换为更可靠的DCount函数 #

原公式使用Sum+IIf容易出现上下文错误，改用DCount（Access专门的计数函数）更直接高效，公式如下：

=DCount("*", "你的数据源表名", "[Type of Application]='New Transaction' And Year([Date of Payment])=" & [Text159])

• 替换说明：将你的数据源表名替换为包含「Date of Payment」和「Type of Application」字段的表/查询名称
• 语法解释：
  • "*"：统计符合条件的所有记录
  • 第二个参数：指定要统计的数据源
  • 第三个参数：筛选条件，用&拼接控件值，确保年份作为数值参与判断

二、修复原公式的可选方案（如果坚持用Sum） #

如果要保留Sum+IIf的思路，需要确保公式在正确的聚合上下文里，比如将公式放在窗体的页眉/页脚（因为Sum是聚合函数，需要在记录集的聚合区域生效），同时修正控件引用：

=Sum(IIf([Type of Application]="New Transaction" And Year([Date of Payment])=[Text159],1,0))

• 注意：去掉.Value，Access表达式中直接引用控件名即可；且该公式仅在窗体的聚合区域（页眉/页脚）生效，放在主体区域会逐行计算而非总计数。

三、实现年份更新时自动统计 #

要让txtCount在Text159的值变化时自动刷新，需要给Text159添加AfterUpdate事件代码：

1. 打开窗体设计视图
2. 右键Text159控件 → 选择「事件生成器」
3. 在VBA编辑器中输入：

Private Sub Text159_AfterUpdate()
    Me.txtCount.Requery
End Sub

• 补充：如果Text159的值是通过DLookup从后台表自动更新的（比如tblControlNumber的CalendarYear被修改），可以在窗体的Current事件或定时刷新中加入Me.txtCount.Requery，确保打开窗体或数据变化时统计值同步更新。

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