Access 2010 VBA中如何通过ADO移动记录指针并更新前后指定记录？

当然可以实现你想要的操作！不过你代码里写的rs!CurrentRecordPointer并不是ADO记录集的原生属性，得换用ADO提供的绝对位置定位或相对移动方法来完成你的需求。下面我结合你的逻辑给出具体的实现方案：

核心前提：确保游标和锁定类型支持记录定位 #

首先，你打开记录集时必须使用支持记录定位和更新的游标与锁定类型，否则无法跳转到指定记录或修改数据。推荐的打开方式：

rs.Open "你的SQL语句", 你的连接对象, adOpenStatic, adLockOptimistic

• adOpenStatic：静态游标，支持AbsolutePosition（绝对记录号）和书签定位，能获取准确的RecordCount
• adLockOptimistic：乐观锁定，允许你修改单条记录后提交更新

调整后的代码实现 #

针对你想要的「遍历到第i条记录时，将当前记录的Field1值更新到第i-3条记录的Field2，再跳转到i+3条记录」的逻辑，修改后的代码如下：

Dim currentPos As Long
Dim field1Value As Variant
i = 1

' 确保记录集指向第一条
rs.MoveFirst

Do Until rs.EOF
    If i > 5 Then
        ' 1. 保存当前记录的位置，避免移动后找不到回来的路
        currentPos = rs.AbsolutePosition
        ' 2. 获取当前记录的Field1值
        field1Value = rs!Field1
        
        ' 3. 跳转到第i-3条记录，更新Field2
        If i - 3 >= 1 Then ' 边界检查，避免越界
            rs.AbsolutePosition = i - 3
            rs!Field2 = field1Value
            rs.Update ' 必须调用Update提交修改，否则不会保存
        End If
        
        ' 4. 回到原来的记录位置
        rs.AbsolutePosition = currentPos
        
        ' 5. 跳转到第i+3条记录，同时调整循环变量避免重复遍历
        If i + 3 <= rs.RecordCount Then
            rs.AbsolutePosition = i + 3
            i = i + 3 ' 跳过接下来的3条，因为指针已经直接跳到这里了
        End If
    End If
    
    i = i + 1
    rs.MoveNext
Loop

更可靠的书签定位方式 #

如果你的数据源不支持连续的记录号（比如某些数据库的动态游标），用**书签（Bookmark）**定位会更可靠，书签是记录的唯一标识，不受记录顺序变化影响：

Dim currentBookmark As Variant
Dim field1Value As Variant
i = 1

rs.MoveFirst

Do Until rs.EOF
    If i > 5 Then
        ' 保存当前记录的书签
        currentBookmark = rs.Bookmark
        field1Value = rs!Field1
        
        ' 跳转到第i-3条记录：先回到第一条，再相对移动i-4步
        rs.MoveFirst
        rs.Move i - 4 ' 从第一条开始，移动i-4步到达第i-3条（第一条是0步）
        rs!Field2 = field1Value
        rs.Update
        
        ' 回到原记录
        rs.Bookmark = currentBookmark
        
        ' 跳转到i+3条记录：相对当前位置移动3步
        rs.Move 3
        If rs.EOF Then Exit Do ' 避免移动后超出记录集
        i = i + 3
    End If
    
    i = i + 1
    rs.MoveNext
Loop

关键注意事项 #

• 边界检查：移动指针前一定要判断目标位置是否在1到rs.RecordCount之间，否则会触发运行时错误
• 循环同步：手动移动指针后，要同步调整循环变量i，否则会出现重复遍历或跳过记录的问题
• 游标限制：如果用了adOpenForwardOnly（仅向前游标），无法向后移动指针，必须换成静态或键集游标

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