Office中国论坛/Access中国论坛

标题: [求助]如何把一个表里的记录，追加到两个以上的表里面去呢？ [打印本页]

作者: flybutt2 时间: 2006-10-7 09:02
标题: [求助]如何把一个表里的记录，追加到两个以上的表里面去呢？
问题一：
这里有两个追加查询：追加记录到一，追加记录到二。
怎么才能同时运行两个查询呢？
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 时间: 2006-10-7 09:28
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 时间: 2006-10-7 18:09
谢谢啦。[em04]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)