[求助]如何快速的复制数据集阿

lanchong

我是一条条的添加，有没更快的办法?

怎样可以像用(INSERT INTO TmpPO SELECT 订单表.* FROM 订单表)这样简洁，但又不出现提示要插入数据？

        Set rsts1 = CurrentDb().OpenRecordset(STRSQL1)

        If rsts1.RecordCount > 0 Then

        

            Set RSTG1 = CurrentDb().OpenRecordset("O")

            rsts1.MoveFirst

            Do Until rsts1.EOF

                RSTG1.AddNew

               

                For i = 0 To 17

                    RSTG1(i) = rsts1(i)

                Next

                RSTG1.Update

               

                rsts1.MoveNext

            

            Loop

            

            RSTG1.Close

            

        End If

        

        rsts1.Close

hi-wzj

屏蔽操作查询的提示，旧贴中已回答了n次了，自己搜索一下。

lanchong

不是没搜索过，而是这里的搜索功能太。。。。可以说基本很难搜索如果能像google那样使用“屏蔽 查询 提示”查找就好了

sea.er

DoCmd.SetWarnings False