如果主表的“单号”为自动编号：
Private Sub Command7_Click()
Dim a '要复制的单号
a = Me.单号 '获得要复制的单号
Dim conn As ADODB.Connection
Set conn = Me.Application.CurrentProject.Connection
'复制主表数据插入到主表
conn.Execute "INSERT INTO 主表1 ( 客户, 日期 ) SELECT 主表1.客户, 主表1.日期 FROM 主表1 WHERE (((主表1.单号)=" & a & "))"
Dim b
'获得上面插入主表的记录的单号
b = DMax("单号", "主表1")
'复制子表数据插入到子表
conn.Execute "INSERT INTO 子表1 ( 材料名称, 备注, 单号 ) SELECT 子表1.材料名称, 子表1.备注," & b & " as 单号 FROM 子表1 WHERE (((单号)=" & a & "))"
'刷新一下窗体数据
Me.Requery
'滚动到刚才复制粘贴后的记录
DoCmd.GoToRecord , , acLast
End Sub
