复制、粘贴

如何在子窗体1数据表上复制多行记录，粘贴多行记录到子窗体2数据表上

我这样写的代码只能复制粘贴单行记录

Private Sub 复制_Click()
 Me.生产预排管理子窗体1.SetFocus
 DoCmd.RunCommand acCmdSelectRecord
 DoCmd.RunCommand acCmdCopy
 End Sub

Private Sub 粘贴_Click()
Me.生产预排管理子窗体2.SetFocus
 DoCmd.GoToRecord , , acNewRec
 DoCmd.RunCommand acCmdSelectRecord
 DoCmd.RunCommand acCmdPaste
End Sub