求教:如何把查询得到的结果存入另一个表里??

petrak

一个查询窗体,查询的结果显示在一个子窗体中.现在想把这个结果存入另一个表中.代码我是这样写的，可是结果只存入了查询结果的第一个值，

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

把查询得到的结果存入另一个表(table2)里select * into table2 from table1 [where ...]

petrak

谢谢楼上的大侠.可是用打开记录集的方法怎么做呢??