请教，如何把一个表中的内容复制到另一个表中

人生若是

RT，选定表1里的某一行，怎么复制到另一个表（表2）里？是不是要用到宏？
望指教步骤，多谢~！

asklove

就单条记录复制过去很简单
建一个窗体，上面放一个表1子窗体，一个复制命令控件
在复制命令控件单击事件写上：
Dim strSQL As String
strSQL = "INSERT INTO 表2 " & _
       " SELECT 表1.*" & _
       " FROM 表1" & _
       " WHERE 表1.ID='" & Form!表1子窗体!ID & "'"　‘（例子中的ID是文本型）
DoCmd.RunSQL strSQL
选定多条记录一起复制如何做，我也想知道，不知哪位高手来回答一下？