求助關(guān)于復(fù)制子表問題

aqukhn81

我想復(fù)制，子表里的也一起復(fù)制過去，要怎么弄，麻煩高手弄下做個(gè)例子，謝了，

todaynew

復(fù)制不難，復(fù)制了干嘛？復(fù)制了粘貼到什么地方去？這才是革命的首要問題。

aqukhn81

就是復(fù)制到原來的下一張單啊，因?yàn)橛行﹩问窍嗤�的，只是改一下�?shù)據(jù)

aqukhn81

就是點(diǎn)復(fù)制的時(shí)候，子表里的東西也一起復(fù)制到下一張單

aslxt

如果主表的“單號(hào)”為自動(dòng)編號(hào)：
Private Sub Command7_Click()
  Dim a   '要復(fù)制的單號(hào)
  a = Me.單號(hào)  '獲得要復(fù)制的單號(hào)
  Dim conn As ADODB.Connection
  Set conn = Me.Application.CurrentProject.Connection
'復(fù)制主表數(shù)據(jù)插入到主表
  conn.Execute "INSERT INTO 主表1 ( 客戶, 日期 ) SELECT 主表1.客戶, 主表1.日期 FROM 主表1 WHERE (((主表1.單號(hào))=" & a & "))"
  Dim b
'獲得上面插入主表的記錄的單號(hào)
  b = DMax("單號(hào)", "主表1")
'復(fù)制子表數(shù)據(jù)插入到子表
   conn.Execute "INSERT INTO 子表1 ( 材料名稱, 備注, 單號(hào) ) SELECT 子表1.材料名稱, 子表1.備注," & b & " as 單號(hào) FROM 子表1 WHERE  (((單號(hào))=" & a & "))"
  '刷新一下窗體數(shù)據(jù)
Me.Requery
'滾動(dòng)到剛才復(fù)制粘貼后的記錄
  DoCmd.GoToRecord , , acLast
End Sub

aqukhn81

謝謝，非常感謝樓上的高手

termisss

上班之余,來逛逛論壇.