Office中国论坛/Access中国论坛

标题: 求教:如何把查询得到的结果存入另一个表里?? [打印本页]

作者: petrak 时间: 2005-6-1 09:09
标题: 求教:如何把查询得到的结果存入另一个表里??
一个查询窗体,查询的结果显示在一个子窗体中.现在想把这个结果存入另一个表中.代码我是这样写的，可是结果只存入了查询结果的第一个值，

Dim db As Database, rst1 As Recordset

  Set db = DBEngine(0)(0)

  Set rst1 = db.OpenRecordset("cost", DB_OPEN_DYNASET)

With rst1

   .AddNew

!STDSATZ = Me.cost![Text6]

   !INBET = Me.cost![SummevonStunden]

   !LFNR = Me.cost![LFNR]

   .Update

End With

rst1.Close

      Set db = Nothing

End Sub

不明白为什么只有第一个值存入表里，应该怎样修改呢？？向大家请教了！

作者: accessuser007 时间: 2005-6-1 15:28
把查询得到的结果存入另一个表(table2)里select * into table2 from table1 [where ...]

作者: petrak 时间: 2005-6-1 20:55
谢谢楼上的大侠.可是用打开记录集的方法怎么做呢??

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