一般我们刷新子窗体之后，记录游标会跑到第一条。
如果我们的记录比较多，总是跑到第一条很不方便。
解决办法如下：

1、子窗体刷新之前，先记录一下当前记录的位置
Dim lngPostion As Long
lngPostion =  Me.FrmSub.Form.CurrentRecord '获取子窗体FrmSub当前记录的位置

2、子窗体刷新之后，重新定位当前记录的位置
Me.FrmSub.SetFocus                                          '先让子窗体获得焦点
Docmd.GotoRecord , , acGoTo, lngPostion       '根据前面记录的位置跳转到对应的位置

这样两步走，就可以实现子窗体Requery刷新数据之后，重新定位记录游标的位置