Заполнить таблицу данными из сохранённого SQL запроса

Четверг, 30 Августа 2018 г. 16:51 + в цитатник

Есть SQL запрос, есть таблица с аналогичными полями, в которую надо всунуть построчно данные из этого запроса. Что-то делаю не так. Код не работает:

Dim rs As Recordset
Set db = CurrentDb

Set rs = db.OpenRecordset("QProductToPackageAssign")

 While Not rs.EOF
    'On Error Resume Next
    db.Execute "INSERT INTO ProductToPackageAssignTMP ([ProductID],[ProductNameLat],[PriceFinal],[Quantity],[ProjectID],[Manufacturer],[UnitTypeEN]) SELECT ProductID,ProductNameLat,PriceFinal,Quantity,ProjectID,Manufacturer,UnitTypeEN;"
    'On Error GoTo 0
    rs.MoveNext
  Wend

  rs.Close
  Set rs = Nothing