MS Access表单无法显示下一条记录及代码无法循环遍历记录问题求助

问题根源拆解 #

咱们先把你遇到的两个核心问题拆解清楚：

1. 表单不更新显示：你通过DAO记录集成功更新了数据表，但表单的绑定记录没有同步刷新，导致看不到跳转后的新记录，只能显示本地控件的旧值（或者0）。
2. 无法循环遍历记录：当前代码只处理了单条符合条件的记录，既没有循环查找下一个ToGo>0的记录，也没有在所有记录ToGo归0后重新从头遍历数据集。

针对性修复代码 #

下面是修改后的完整代码，我会逐段解释关键改动：

Private Sub ItemCode_Dirty(Cancel As Integer)
    Dim Db As DAO.Database
    Dim rs As DAO.Recordset
    Dim targetWrkordNum As Variant ' 存储要跳转的目标记录唯一标识
    Dim foundValidRecord As Boolean
    
    Set Db = CurrentDb
    ' 打开可更新的动态集类型记录集，确保支持修改和自由移动
    Set rs = Db.OpenRecordset("Select WrkordNum, ToGo from WorkOrders where ItemCode =" & Me.ItemCode, dbOpenDynaset)
    
    foundValidRecord = False
    targetWrkordNum = Null
    
    With rs
        ' 第一步：遍历所有记录，找到第一个ToGo>0的记录进行处理
        Do While Not .EOF
            If !ToGo > 0 Then
                .Edit
                !ToGo = !ToGo - 1
                .Update
                targetWrkordNum = !WrkordNum ' 记录目标记录的ID，用于表单跳转
                foundValidRecord = True
                Exit Do ' 处理完第一个有效记录就退出循环
            Else
                .MoveNext
            End If
        Loop
        
        ' 如果第一次遍历没找到有效记录（所有ToGo<=0），重新从头遍历
        If Not foundValidRecord Then
            .MoveFirst
            Do While Not .EOF
                ' 这里可以根据业务需求调整：比如重置ToGo为初始值，而不是继续减1
                .Edit
                !ToGo = !ToGo - 1 
                .Update
                targetWrkordNum = !WrkordNum
                foundValidRecord = True
                Exit Do
            Loop
        End If
        
        .Close
    End With
    
    ' 第二步：让表单跳转到目标记录并刷新显示
    If Not IsNull(targetWrkordNum) Then
        ' 通过唯一标识定位表单记录集中的目标记录
        Me.Recordset.FindFirst "WrkordNum = " & targetWrkordNum
        ' 强制刷新表单控件，确保显示最新数据
        Me.Refresh
    End If
    
    ' 释放对象资源
    Set rs = Nothing
    Set Db = Nothing
End Sub

关键改动说明 #

1. 循环遍历逻辑优化：

   • 新增两层循环：第一层优先查找ToGo>0的有效记录；如果所有记录ToGo都归0，就重新从头遍历处理（你可以根据业务需求修改这部分逻辑，比如重置ToGo为初始值）。
   • 用Do While Not .EOF替代单次MoveNext，确保能完整遍历所有符合条件的记录。

2. 表单同步刷新与跳转：

   • 记录目标记录的WrkordNum（主键或唯一标识），通过Me.Recordset.FindFirst精准定位表单到该记录。
   • 调用Me.Refresh强制刷新控件值，让表单显示最新的ToGo和记录信息。

3. 记录集类型优化：

   • 打开记录集时指定dbOpenDynaset类型，确保记录集支持修改和自由移动（默认快照类型无法修改）。

4. 错误预防：

   • 新增foundValidRecord和targetWrkordNum变量，避免空指针或无效跳转的情况。

额外注意事项 #

• 如果ItemCode是文本类型，SQL语句需要加单引号："Select WrkordNum, ToGo from WorkOrders where ItemCode ='" & Me.ItemCode & "'"
• 确保WrkordNum是表单记录集中的字段，且是唯一标识，这样FindFirst才能准确定位。
• 若业务需求是“所有记录ToGo归0后重置为初始值”，可以在第二层循环中修改逻辑，比如先查询初始值再赋值，而非继续减1。

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