用窗体向主表增加新记录，子表能同步新增记录

不是很明白你的问题.

比如 :主表(id,客户,订单,订单日期),子表(id,订单,名称,规格型号,数量),主子表用订单建立连接,在主表增加记录的同时,如何给子表同步增加记录,怎么给子表的名称,规格型号,数量字段设置数据?当然,也可以用代码生成相对固定的子表的清单.就是说:每当主表增加一条记录,(窗体的更新后事件中)给子表就增加一个固定的清单.

Option Compare Database
Dim NewRec As Boolean

Private Sub Form_AfterUpdate()
    Dim Sql
    If NewRec = True Then
         Sql = "insert into 子表(订单,名称,规格型号,数量) select '" & Me.订单 & "' as 订单,名称,规格型号,0 as 数量 from 默认子表清单;"'假设有一个表:默认子表清单(名称,规格型号)
        CurrentDb.Execute Sql
        Me.子表子窗体.Form.Requery
    End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
NewRec = Me.NewRecord
End Sub

如果是指主子窗体(主子窗体的数据源为同一个表或查询,只是筛选不同)的记录同步,就在主窗体的更新后,刷新子窗体数据就ok了.