Private Sub Form_Current()
DoCmd.RunCommand acCmdSelectRecord
Forms![查询窗体]![文本7] = Me![姓名编号]
Me.Parent![文本9] = Me.Parent![文本5] + Me.Parent![文本7]
End Sub
try this作者: chaojianan 时间: 2009-2-11 22:15
如果仅仅为了传值,可直接在2个子窗体的当前事件中写
Private Sub Form_Current()
Me.Parent![文本9] = Forms!查询窗体![个人信息_男生].Form![姓名编号] + Me![姓名编号]
End Sub
Private Sub Form_Current()
Me.Parent![文本9] = Me![姓名编号] + Forms!查询窗体![个人信息_女生].Form![姓名编号]
End Sub