删除2个表的相同内容

做了一个简单的示例，供参考。

主要是在窗体中创建了一个窗体，窗体中有一个命令按钮。该按钮的代码如下：

Private Sub Command0_Click()
On Error Resume Next
DoCmd.SetWarnings False '关闭系统提示
DoCmd.DeleteObject acTable, "临时表" '如果“临时表”存在就删除临时表
DoCmd.OpenQuery "表1查询" '执行生成表查询，生成到“临时表”中
DoCmd.CopyObject , "表1备份", acTable, "表1" '为表1制作一个备份
DoCmd.RunSQL ("Delete * from 表1")  '删除“表1”中的数据
DoCmd.OpenQuery "追加表查询" '执行追加表查询，用临时表的数据追加到“表1”中
DoCmd.OpenTable "表1" '打开“表1”
DoCmd.SetWarnings True '打开系统提示
End Sub

另外创建了两个查询；分别为“表1查询”（生成临时表查询）和“追加表查询”（追加到“表1”查询）。具体请参考附件：

点击下载此附件