更新查询,docmd.query，要根据选择筛选执行

这里提供两个例子

追加查询

DoCmd.RunSQL "Insert INTO 订单资料子表 (订单ID,产品,数量,单位,单价,金额,说明,成本,利润) VALUES (FORMS!订单资料采购!订单ID,FORMS!订单明细子采购!产品名称,FORMS!订单明细子采购!数量,FORMS!订单明细子采购!单位,FORMS!订单明细子采购!单价,FORMS!订单明细子采购!金额,FORMS!订单明细子采购!说明,FORMS!订单明细子采购!成本,FORMS!订单明细子采购!利润)"

更新查询
DoCmd.RunSQL "update 订单资料子表 set 订单ID=FORMS!订单资料采购!订单ID,产品=FORMS!订单明细子采购!产品名称,数量=FORMS!订单明细子采购!数量,单位=FORMS!订单明细子采购!单位,金额=FORMS!订单明细子采购!金额,单价=FORMS!订单明细子采购!单价,说明=FORMS!订单明细子采购!说明,成本=FORMS!订单明细子采购!成本,利润=FORMS!订单明细子采购!利润 where 订单明细ID=" & Me.OpenArgs