如何将选取的内容转移至另一个表中去？

删除按钮的代码如下：

Private Sub Command11_Click()
Dim sql1
Dim q
q = MsgBox("将删除表1中有删除标记的记录，并将其保存到表2中，确认删除吗？", vbOKCancel, "删除确认")
If q = 1 Then
 sql1 = "INSERT INTO 表2 ( 电话号码, 用户名称, 用户地址 ) SELECT 表1.电话号码, 表1.用户名称, 表1.用户地址 FROM 表1 WHERE (((表1.删除)=True));"
 DoCmd.RunSQL (sql1)
 sql1 = "Delete * from 表1 where 删除=True"
 DoCmd.RunSQL (sql1)
 Me.表1子窗体.Form.Requery
End If
End Sub

具体可参考附件：

点击下载此附件