Office中国论坛/Access中国论坛

标题: [求助]如何快速的复制数据集阿 [打印本页]

作者: lanchong 时间: 2004-12-26 18:24
标题: [求助]如何快速的复制数据集阿
我是一条条的添加，有没更快的办法?

怎样可以像用(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 时间: 2004-12-26 22:39
屏蔽操作查询的提示，旧贴中已回答了n次了，自己搜索一下。

作者: lanchong 时间: 2004-12-27 16:57
不是没搜索过，而是这里的搜索功能太。。。。可以说基本很难搜索如果能像google那样使用“屏蔽查询提示”查找就好了

作者: sea.er 时间: 2004-12-27 18:07
DoCmd.SetWarnings False

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)