Access表单After Update事件：最后记录跳转报错问题求助

在表单的After Update事件中，先判断当前记录之后是否还有下一条记录，再决定是否执行跳转操作，就能避免最后一条记录的报错。以下是具体的VBA实现代码：

Private Sub Form_AfterUpdate()
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    
    ' 同步克隆记录集到当前表单记录
    rs.Bookmark = Me.Bookmark
    ' 尝试移动到下一条记录
    rs.MoveNext
    
    If rs.EOF Then
        ' 已到最后一条，执行自定义操作（示例为弹窗提示）
        MsgBox "已处理完所有记录，没有下一条记录了。"
    Else
        ' 存在下一条记录，执行跳转
        DoCmd.GoToRecord , , acNext
    End If
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
End Sub

代码说明： #

• 使用RecordsetClone复制表单的记录集，避免直接操作原记录集影响表单的当前显示状态
• 通过Bookmark将克隆记录集定位到表单当前的记录，确保判断逻辑准确
• 尝试移动到下一条记录后，通过rs.EOF判断是否已经到记录集末尾：
  • 若是，执行你需要的替代操作（比如提示用户、定位回第一条记录等）
  • 若不是，正常执行跳转到下一条记录的操作

这种方法不受记录集类型限制，比直接使用AbsolutePosition判断更可靠，能适配大多数Access表单场景。

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