让子窗体里子显示新添加的记录

呵呵，他没提这个,我只关注了他提的这个问题去了，好，听取楼上的意见，如下加两段代码即可：

Private Sub 添加记录_Click()
If IsNull(Me.产品型号) And IsNull(Me.订单号) And IsNull(Me.代用料号) And IsNull(Me.料号) _
And IsNull(Me.用量) And IsNull(Me.数量) Then
MsgBox "数据全为空!请至少录入一个数据!"
Exit Sub
End If
DoCmd.SetWarnings False               '添加时不提示（关闭系统消息）
DoCmd.RunSQL "insert into BZbom(订单号,产品型号,代用料号,料号,用量,数量)" & _
          "values (订单号,产品型号,代用料号,料号,用量,数量)"
DoCmd.SetWarnings True '打开系统消息

Me.BZbom子窗体.Form.RecordSource = "SELECT BZbom.编号, BZbom.订单号, BZbom.产品型号," & _
"BZbom.代用料号, BZbom.料号, BZbom.用量, BZbom.数量 FROM BZbom WHERE (((BZbom.编号)>" & m & "));"

Me.BZbom子窗体.Requery
Me.产品型号 = Null
Me.订单号 = Null
Me.代用料号 = Null
Me.料号 = Null
Me.用量 = Null
Me.数量 = Null
End Sub