主子窗体设计时有一个好的用户体验的点是，当我选择子窗体数据表中的某条记录并打开了编辑窗体，修改完成后回到主窗体时，则应在子窗体中定位至刚刚修改的那条记录，关于这方面的内容，本站已经很多了。本文之所以还要谈这个问题，主要还是充分站在新手的角度来帮助去理解这个功能的实现，本示例采用的是Access软件网职场范例中的一个示例加以修改而来，没有使用平台，一步一步的讲解如何实现。

       首先，主子窗体进行一个表的数据的增删改就不必多说了。需要完成本功能的实现，请先按如下的步骤进行，后面会详解原理。

1）定义一个模块，并在此模块中定义一个全局的公共的变量
Public g_CurrentId As String '用来保存所要修改的记录的主键id值

2）在打开编辑窗体的按钮中OpenForm方法最后将要修改的记录的id值传递给编辑窗体。
Private Sub cmdEdit_Click()
    If Not Me.sfrList.Form.CurrentRecord > 0 Then Exit Sub
    Me.sfrList.SetFocus
    RunCommand acCmdSelectRecord
    DoCmd.OpenForm FormName:="frm供应商资料_Edit", _
                   DataMode:=acFormEdit, wherecondition:="供应商编号=" & Me.sfrList![供应商编号], _
                   OpenArgs:=Me.sfrList![供应商编号]
                    '传递要修改的记录的主键id值
End Sub

3） 在编辑窗体的Load事件中，得到传递过来的值，并赋值给全局变量g_currentId
Private Sub Form_Load()
    bSaveFlag = False
    '将要修改的主键id值保存至全局变量中去
    If Not IsNull(Me.OpenArgs) Then
        g_CurrentId = Me.OpenArgs
    End If
End Sub

4) 在编辑窗体的保存按钮中设置主窗体中的数据表子窗体的计时器间隔为300毫秒
Forms("FrmOpen").sfrList.Form.TimerInterval = 300

5)  在数据表子窗体的Timer事件中进行判断，如果g_CurrentId不为空，则调用窗体recordSet对象的findFirst 方法进行查找，该方法的第一个参数是类似where条件的字符串，调用该方法如果找到了那条记录，它还会帮助我们自动定位到那条记录，这也是本功能能得以实现的关键所在。
Me.Recordset.Findfirst "[供应商编号]=" & g_CurrentId
千万注意，最后一定要记得将计时器的间隔设为0

      最后总结一下， 其实现思路就是：定义公共变量用于保存要修改的记录的id值，编辑窗体保存数据并关闭后，启动主窗体中数据表子窗体的Timer事件，之所以能启动这一事件是因为设置了TimerInterval=300这个属性的值，最后在Timer事件中调用recordSet对象的findFirst方法进行查找并定位，从而这个功能就得以实现了，具体可以结合示例进行学习。

附   件:

点击下载此附件