在Microsoft Access中基于上一行计算连续时间

针对你需要按日期连续计算Start和End时间的需求，以下提供两种可行方案：

方案一：使用VBA代码批量更新（推荐，性能更优） #

Access 2016不支持SQL递归查询，用VBA可以高效处理逐行递推的逻辑，步骤如下：

1. 按Alt+F11打开VBA编辑器，插入一个新模块；
2. 将以下代码粘贴到模块中，替换代码里的你的表名为实际表名；
3. 运行该宏即可完成字段更新。

Sub CalculateTimeSlots()
    Dim rs As DAO.Recordset
    Dim prevEndTime As Date
    Dim currentRecordDate As Date
    
    ' 按日期、主键升序读取记录，保证顺序正确
    Set rs = CurrentDb.OpenRecordset("SELECT 日期, PrimaryKey, Start, Slot, End FROM 你的表名 ORDER BY 日期, PrimaryKey", dbOpenDynaset)
    
    If Not rs.EOF Then
        rs.MoveFirst
        currentRecordDate = rs!日期
        
        ' 初始化当日第一条记录
        If Not IsNull(rs!Start) Then
            prevEndTime = rs!Start + TimeValue("00:" & Replace(rs!Slot, ":", ""))
            rs.Edit
            rs!End = prevEndTime
            rs.Update
        End If
        
        rs.MoveNext
        Do While Not rs.EOF
            ' 跨日期时重置初始时间
            If rs!日期 <> currentRecordDate Then
                currentRecordDate = rs!日期
                prevEndTime = Null
            End If
            
            rs.Edit
            ' 确定当前记录的Start时间
            If IsNull(rs!Start) Then
                rs!Start = prevEndTime
            Else
                prevEndTime = rs!Start
            End If
            ' 计算End时间并更新缓存
            rs!End = rs!Start + TimeValue("00:" & Replace(rs!Slot, ":", ""))
            prevEndTime = rs!End
            
            rs.Update
            rs.MoveNext
        Loop
    End If
    
    rs.Close
    Set rs = Nothing
    MsgBox "时间计算完成！"
End Sub

代码说明： #

• 自动按日期分组，每日从第一条有Start值的记录开始递推；
• Slot字段为文本格式（如2:30），通过Replace转换为00:230后，TimeValue会自动解析为2小时30分；
• 逐行更新Start和End字段，完成后弹窗提示。

方案二：使用查询结合域函数（适合小数据集） #

如果数据量较小，可以用DLookup函数实时查询前一条记录的End值，创建查询语句如下：

SELECT 
    t.日期,
    t.PrimaryKey,
    IIf(IsNull(t.Start), DLookup("End", "你的表名", "日期 = #" & Format(t.日期, "yyyy/mm/dd") & "# AND PrimaryKey < " & t.PrimaryKey & " ORDER BY PrimaryKey DESC"), t.Start) AS 计算后Start,
    t.Slot,
    计算后Start + TimeValue("00:" & Replace(t.Slot, ":", "")) AS 计算后End
FROM 你的表名 AS t
ORDER BY t.日期, t.PrimaryKey;

说明： #

• 该查询会实时计算出Start和End的值；
• 如果需要将结果写入原表，可以基于此查询创建更新查询，把计算后Start和计算后End同步到原表的对应字段；
• 数据量较大时，DLookup会导致查询速度变慢，优先推荐VBA方案。

注意事项： #

1. 确保每日的第一条记录必须包含有效的Start值，否则当日后续记录无法计算；
2. 如果Slot字段格式不是h:mm，需要调整TimeValue的转换逻辑；
3. 操作前建议备份数据表，避免数据异常。

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