MS Access连续窗体数据异常：后续记录复用首条ID求助

Hey there! 作为Access和VBA新手，开发考勤日历遇到这种连续窗体的坑太正常了——我刚接触的时候也踩过类似的雷。咱们先把问题拆解清楚，再一步步解决：

问题核心分析 #

你遇到的「第二条及后续记录复用第一条ID」的问题，主要有两个关键原因：

1. 连续窗体的控件复用特性：连续窗体里所有记录行共享同一组控件实例，你当前用PrintArray直接给控件赋值的操作，会影响所有行的显示，而不是只针对当前记录。
2. Me.EmployeeID的作用范围：在窗体级代码里调用Me.EmployeeID，它只会返回当前活动记录的员工ID，而不是每条记录的ID。所以你的LoadArray方法实际上只查询了当前显示的那一个员工的考勤数据，然后把这些数据套用到了所有记录上。

解决方案（两种可选，推荐第一种） #

方案一：用查询绑定字段（更符合Access设计逻辑，少写VBA） #

Access的核心优势就是数据绑定，咱们可以把考勤代码的计算直接放到查询里，让窗体自动加载每条记录的对应数据：

1. 创建一个新查询，关联你的员工表（CAM Database）和考勤表（EiSyS），然后为每个日期添加计算字段获取考勤代码。比如：

   SELECT 
     [CAM Database].[Trax ID] AS EmployeeID,
     [CAM Database].[Full Name],
     -- 1号的考勤代码
     DLookup("AttendanceCode", "EiSyS", "EmployeeID = [CAM Database].[Trax ID] AND Date = #" & DateSerial([Forms]![你的窗体名]![cboYear], [Forms]![你的窗体名]![cboMonth], 1) & "#") AS Day1Code,
     -- 2号的考勤代码，以此类推到31号
     DLookup("AttendanceCode", "EiSyS", "EmployeeID = [CAM Database].[Trax ID] AND Date = #" & DateSerial([Forms]![你的窗体名]![cboYear], [Forms]![你的窗体名]![cboMonth], 2) & "#") AS Day2Code,
     ...
   FROM [CAM Database];
   

2. 把你的连续窗体的记录源设置为这个查询，然后把text1到text31这些文本框分别绑定到Day1Code到Day31Code字段。
3. 最后在窗体的cboMonth或cboYear的AfterUpdate事件里刷新记录源即可：

   Private Sub cboMonth_AfterUpdate()
       Me.Requery
   End Sub
   
   Private Sub cboYear_AfterUpdate()
       Me.Requery
   End Sub
   

这种方式不需要维护复杂的数组和记录集代码，Access会自动帮你处理每条记录的数据加载，稳定性更高。

方案二：修改VBA代码适配连续窗体 #

如果坚持要用你现有的数组逻辑，那需要调整代码让它针对每条记录单独计算：

1. 把计算逻辑移到Form_Current事件：连续窗体的OnCurrent事件会在切换到任意一条记录时触发，我们在这里调用Main，确保每条记录加载时都重新计算自己的考勤数组：

   Private Sub Form_Current()
       Call Main
   End Sub
   

2. 修正LoadArray的逻辑错误：
   • 你之前冗余打开了rsFiltered，直接用rs就可以；
   • 确保SQL查询的是当前记录的员工ID；
   • 处理没有考勤记录的情况，避免覆盖日期：

   Private Sub LoadArray()
       Dim db As DAO.Database
       Dim rs As DAO.Recordset
       Dim strSQL As String
       Dim i As Integer
       
       Set db = CurrentDb
       
       For i = LBound(myArray) To UBound(myArray)
           If myArray(i, 1) Then
               strSQL = "SELECT EiSyS.AttendanceCode " _
                       & "FROM EiSyS INNER JOIN [CAM Database] ON EiSyS.EmployeeID = [CAM Database].[Trax ID] " _
                       & "WHERE EiSyS.Date = #" & Format(myArray(i, 0), "mm/dd/yyyy") & "# " _
                       & "AND [CAM Database].[Trax ID] = " & Me.[EmployeeID]
               
               Set rs = db.OpenRecordset(strSQL)
               If Not rs.EOF Then
                   myArray(i, 2) = rs!AttendanceCode
                   Debug.Print Format(myArray(i, 0), "mm/dd/yyyy") & " - " & rs!AttendanceCode & " - " & Me.[EmployeeID]
               End If
               rs.Close
           End If
       Next i
       
       Set rs = Nothing
       Set db = Nothing
   End Sub
   

3. 检查控件绑定：确保Name文本框确实绑定到了查询里的Full Name字段，没有被代码意外覆盖。

额外小贴士 #

作为Access新手，尽量优先使用数据绑定而非直接操作控件——这是Access的设计初衷，能帮你避免很多奇怪的控件复用问题。如果需要动态计算数据，查询的计算字段或者域聚合函数（比如DLookup、DSum）往往比VBA记录集更省心。

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