MS Access VBA实现过去12个月成本自动求和需求

嘿，我完全懂你的需求：不用写复杂SQL，纯VBA搞定过去12个月的成本求和，还能选要不要跳过当前没结束的月份，而且打开表单就能看到结果，不用手动维护日期范围对吧？这就给你一步步实现：

第一步：准备表单控件 #

先在你的表单上添加一个文本框，命名为txtLast12MonthsCost（你也可以自己改名字，但要和后面代码里的对应上），用来显示过去12个月的成本总和。

第二步：编写VBA代码（表单加载时自动计算） #

打开表单的VBA编辑器（右键表单设计视图→查看代码），把下面的代码粘贴进去，记得替换里面的表名和日期字段名为你数据库里的实际名称：

Private Sub Form_Load()
    Dim startDate As Date
    Dim endDate As Date
    Dim excludeCurrentMonth As Boolean ' 开关：是否排除未结束的当前月份
    
    ' 这里设置是否跳过当前未结束月份：True=跳过，False=包含
    excludeCurrentMonth = True
    
    ' 计算求和的结束日期
    If excludeCurrentMonth Then
        ' 取上个月的最后一天（比如9月中旬时，就取8月31号）
        endDate = DateSerial(Year(Date), Month(Date), 0)
    Else
        ' 取当前日期（包含当月所有已录入的记录）
        endDate = Date
    End If
    
    ' 计算求和的起始日期：结束日期往前推12个月
    startDate = DateAdd("m", -12, endDate)
    
    ' 用DSum函数自动计算符合条件的成本总和
    ' 替换这里的「你的表名」和「你的日期字段名」为实际值
    Me.txtLast12MonthsCost.Value = DSum("Cost", "你的表名", "[你的日期字段名] >= #" & Format(startDate, "mm/dd/yyyy") & "# AND [你的日期字段名] <= #" & Format(endDate, "mm/dd/yyyy") & "#")
    
    ' 处理无符合条件记录的情况，避免显示空值
    If IsNull(Me.txtLast12MonthsCost.Value) Then
        Me.txtLast12MonthsCost.Value = 0
    End If
End Sub

代码关键点解释 #

• excludeCurrentMonth变量：这是个开关，你可以随时改True/False来决定要不要排除当前未结束的月份，不用改其他代码。
• 日期计算技巧：DateSerial(Year(Date), Month(Date), 0)是Access里获取上个月最后一天的通用方法，不管当前是几号，都能准确拿到上月的截止日期。
• DSum函数：不用写SQL语句，它会自动帮你筛选符合日期范围的记录并求和，用Format转日期格式是为了避免不同地区日期格式导致的识别错误。
• 空值处理：如果过去12个月没有任何记录，DSum会返回Null，这段代码会把它转成0，显示更友好。

可选：新增/修改记录后自动更新 #

如果你希望新增或修改记录后，求和结果能自动刷新，只要把上面的代码复制一份，粘贴到表单的Form_AfterUpdate事件里就行——这样每次编辑记录后，总和会立刻更新。

这样设置好以后，每次打开表单，代码都会自动计算最新的日期范围，完全不用手动输入起止日期，完美符合你的需求～

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