一般我们刷新子窗体之后，记录游标会跑到第一条。
如果我们的记录比较多，总是跑到第一条很不方便。
我们可以用下面的方法解决问题：
1、子窗体刷新之前，先记录一下当前记录的位置
Dim
lngPostion As Long
lngPostion = Me.FrmSub.Form.CurrentRecord
'获取子窗体FrmSub当前记录的位置
2、子窗体刷新之后，重新定位当前记录的位置
Me.FrmSub.SetFocus
'先让子窗体获得焦点
Docmd.GotoRecord , , acGoTo, lngPostion
'根据前面记录的位置跳转到对应的位置
这样两步走，就可以实现子窗体Requery刷新数据之后，重新定位记录游标的位置
