Rs.Update 刷新后能不能让光标保持在原来位置 就是刷新后令光标保持在原来地方。不跳回第一条记录!

貌似解决了，    留下代码共大家参考

Dim sjBL1 As Long
          sjBL1 = Me.档案录入子窗体.Form.SelTop       '将原记录指针值赋给变量
         
             '使用记录集的Update方法来刷新记录集
               Rs.Update
                '刷新“图书档案管理 子窗体”子窗体
                 
                     Me![档案录入子窗体].Requery
                   
        Me.档案录入子窗体.Form.SelTop = sjBL1       '记录指针回到原来位置
                
                '弹出“修改完成”的提示信息
                MsgBox "档案已经修改完成！", vbOKOnly, "修改完成"
                
               
                Exit Sub      '退出子过程
      Else
                Rs.MoveNext    '把记录指针移到下一条记录
            End If
        Next i
    End If
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing
Exit_修改档案_Click:
    '释放系统为Rs数据集分配的空间
    Set Rs = Nothing
    Exit Sub
Err_修改档案_Click:
    MsgBox Err.Description
    Resume Exit_修改档案_Click
End Sub
Private Sub 编号_AfterUpdate()
 '定位子窗体记录
    If Not IsNull(编号) Then Me.档案录入子窗体.Form.SelTop = 编号
End Sub