Access VBA中AfterUpdate()编辑Recordset触发‘无当前记录3021’问题

问题分析 #

原代码存在以下核心问题：

• 操作Me.Recordset而非当前表单记录，导致新增记录时指针定位错误，出现「无当前记录 - 3021」错误，或误修改上一条记录
• 手动设置Me.Dirty = False干扰了新增记录的状态，导致书签丢失
• 用Recordset2操作多值字段过于复杂，且未正确关联当前记录

修正后的代码 #

Private Sub Form_AfterUpdate()
    Dim tmpVar As Variant
    
    ' 仅当Part字段值为"Device"时执行逻辑
    If StrComp(Me.Part.Value, "Device", vbTextCompare) = 0 Then
        ' 通过CID查询对应的Prod ID
        tmpVar = DLookup("[Device Prod]", "subLookTblCIDDevice", "[CID Device] = '" & Me.CIDDevice.Value & "'")
        
        ' 确保查询到有效Prod ID再执行填充
        If Not IsNull(tmpVar) Then
            ' 直接操作表单当前记录的多值字段，添加新值
            Me.Prod.AddItem tmpVar
            ' 保存当前记录的修改
            Me.Dirty = False
        End If
    End If
End Sub

关键修改说明 #

1. 移除不必要的Dirty手动设置：原代码中Me.Dirty = False在AfterUpdate事件中多余，因为该事件触发时记录已完成保存，手动设置会破坏新增记录的书签关联，导致指针跳转错误。
2. 直接操作表单当前字段：用Me.Prod.AddItem替代复杂的Recordset2操作，Access表单的多值字段支持直接用AddItem方法添加值，自动关联当前记录，避免指针定位错误。
3. 增加空值判断：避免DLookup返回空值时执行无效操作，提升代码健壮性。
4. 使用vbTextCompare忽略大小写：StrComp第三个参数设为vbTextCompare，让"device"和"Device"都能匹配，增强灵活性。

原代码问题细节解释 #

• 新增第一条记录报错：原代码中Me.Recordset.RecordCount在新增第一条记录时可能仍为0，执行rst.MoveFirst会触发3021错误，因为此时记录集中无有效记录。
• 新增非第一条记录修改上一条：rst.MoveFirst强制将指针移到第一条记录，后续的rst.Edit修改的是第一条记录而非当前新增的记录。
• 用.AddNew创建新记录：操作Me.Recordset的.AddNew方法会在记录集中新增一条记录，而非修改当前表单的记录，导致额外创建记录。

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