求助关于复制子表问题

aqukhn81

我想复制，子表里的也一起复制过去，要怎么弄，麻烦高手弄下做个例子，谢了，

todaynew

复制不难，复制了干嘛？复制了粘贴到什么地方去？这才是革命的首要问题。

aqukhn81

就是复制到原来的下一张单啊，因为有些单是相同的，只是改一下数据

aqukhn81

就是点复制的时候，子表里的东西也一起复制到下一张单

aslxt

如果主表的“单号”为自动编号：
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

aqukhn81

谢谢，非常感谢楼上的高手

termisss

上班之余,来逛逛论坛.