MS Access带薪休假表滚动累计逻辑实现求助

这问题我之前帮朋友处理过，Access里实现这种“上月结余自动流转到下月”的需求，有几个很实用的方案，看你是手动录入还是批量操作：

方法一：窗体BeforeInsert事件（手动录入首选） #

如果你是通过窗体来录入每月的休假记录，直接利用窗体的BeforeInsert事件，在创建新记录时自动拉取该员工上月的New_Leave值，赋值给当前记录的Current_Leave。

VBA伪代码实现 #

打开你的休假记录窗体，进入VBA编辑器（Alt+F11），粘贴以下代码：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim lastMonthLeave As Variant
    Dim employeeID As Long
    Dim targetMonthDate As Date
    
    ' 获取当前要录入的员工ID和目标月份
    employeeID = Me!ID.Value
    targetMonthDate = Me!Month.Value
    
    ' 查询该员工上月的New_Leave值（注意Month字段必须是日期类型，比如存每月第一天）
    lastMonthLeave = DLookup( _
        "New_Leave", _
        "带薪休假表", _
        "ID = " & employeeID & " AND Month = DateAdd('m', -1, #" & Format(targetMonthDate, "yyyy-mm-dd") & "#)" _
    )
    
    ' 有上月记录就赋值，没有就设初始值（比如0，根据你的业务规则调整）
    If Not IsNull(lastMonthLeave) Then
        Me!Current_Leave.Value = lastMonthLeave
    Else
        Me!Current_Leave.Value = 0 ' 新员工初始年假为0，可修改
    End If
End Sub

注意事项 #

• 你的Month字段一定要设为日期/时间类型，建议存储每月的第一天（比如2024-04-01），这样DateAdd函数才能准确计算上月日期。
• 如果ID是文本类型，记得在DLookup的条件里给ID加单引号："ID = '" & employeeID & "' AND ..."

方法二：追加查询批量生成记录 #

如果需要一次性给所有员工生成下月的休假记录，用Access的追加查询就能批量完成，自动把上月的New_Leave作为下月的Current_Leave。

SQL查询语句 #

创建一个新的查询，切换到SQL视图，粘贴以下代码：

INSERT INTO 带薪休假表 (ID, Month, Current_Leave)
SELECT 
    ID,
    DateAdd('m', 1, Month) AS NextMonth,
    New_Leave AS NextCurrentLeave
FROM 带薪休假表
WHERE Month = [请输入要生成下月记录的月份]; -- 也可以直接写死日期，比如#2024-03-01#

执行这个查询后，所有员工的下月记录就会被创建，Current_Leave已经自动填充为上月的结余，之后你只需要补充Earned_Leave和Absences，New_Leave作为计算字段会自动算出结果。

方法三：调整表结构+事件触发计算（可选） #

如果计算字段在某些场景下有局限（比如数据更新不及时），可以把New_Leave从计算字段改成普通数字字段，然后用窗体事件来自动计算值，同时配合BeforeInsert实现结余流转。

步骤： #

1. 修改表结构，把New_Leave的类型改成数字（取消计算字段设置）。
2. 在窗体的AfterUpdate事件里添加计算逻辑：

Private Sub Form_AfterUpdate()
    ' 计算New_Leave的值
    Me!New_Leave.Value = Me!Current_Leave.Value + Me!Earned_Leave.Value - Me!Absences.Value
    ' 自动保存记录
    DoCmd.RunCommand acCmdSaveRecord
End Sub

3. 保留方法一里的BeforeInsert事件代码，这样创建新记录时Current_Leave依然会自动用上月的New_Leave。

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