[求助]如何把一个表里的记录，追加到两个以上的表里面去呢？

flybutt2

问题一：
这里有两个追加查询：追加记录到一，追加记录到二。
怎么才能同时运行两个查询呢？
Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
    Dim stDocName As String
    stDocName = "追加记录到一"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command20_Click:
    Exit Sub
Err_Command20_Click:
    MsgBox Err.Description
    Resume Exit_Command20_Click   
End Sub

问题二：
怎么把一个表的记录同时追加到两个以上表里面去呢，要避免再次运行时重复追加。

Grant

Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
    Dim stDocName, stDocName2 As String
    stDocName = "追加记录到一"
    stDocName2 = "追加记录到二"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.OpenQuery stDocName2, acNormal, acEdit
Exit_Command20_Click:
    Exit Sub
Err_Command20_Click:
    MsgBox Err.Description
    Resume Exit_Command20_Click
End Sub

flybutt2

谢谢啦。[em04]