[求助]请问怎样实现从子窗体（查询）选择某条记录时，让主窗体也跳转到该条记录？

jackkkky

子窗体数据表来源于一个查询，用户查询后，从子窗体列表中选择某条记录，当选择了这条记录后，主窗体也同时指向这条记录（如何实现？），以便用户能再主窗体中修改这条记录。最好不影响主窗体的记录总数，因为这个记录总数会被用来计算某一个主窗体上的控件！多谢！

eyewitnes

子/主窗体联动

jackkkky

多谢楼上的朋友，能不能说具体一点，联动怎样实现？我的子窗体由于是查询的结果，所以记录数少于主窗体的记录数！

tolnoren

Private Sub Form_Current()
On Error GoTo Err_Form_Current
    '把子窗体中当前记录值赋予主窗体对应的文本框内
    Forms![课程资料管理]![课程ID] = Me![课程ID]
    Forms![课程资料管理]![课程名称] = Me![课程名称]
    Forms![课程资料管理]![课程简称] = Me![课程简称]
    Forms![课程资料管理]![拼音码] = Me![拼音码]
    Forms![课程资料管理]![上课教师ID] = Me![上课教师ID]
    Forms![课程资料管理]![上课教师] = Me![上课教师]
    Forms![课程资料管理]![开课系别] = Me![开课系别]
    Forms![课程资料管理]![上课周XX] = Me![上课周XX]
    Forms![课程资料管理]![上课节XX] = Me![上课节XX]
    Forms![课程资料管理]![上课地点] = Me![上课地点]
    Forms![课程资料管理]![是否开课] = Me![是否开课]
    Forms![课程资料管理]![课程学分] = Me![课程学分]
    Forms![课程资料管理]![备注] = Me![备注]
Exit_Form_Current:
    Exit Sub
Err_Form_Current:
    MsgBox Err.Description
    Resume Exit_Form_Current
End Sub