Из рекордсет в таблицу

[Myhaylo]

Dim bd As Database
Dim tabl As Recordset
Dim tabl_zap As Recordset
Dim pole As Field
Dim i As Byte
  Set bd = CurrentDb
  Set tabl = bd.OpenRecordset("SELECT * FROM Таблица", dbOpenDynaset)      'откуда читаем
  Set tabl_zap = bd.OpenRecordset("SELECT * FROM Таблица_", dbOpenDynaset)  'куда пишем
  'For Each pole In tabl.Fields       'перебрать все поля
    'MsgBox pole.Name
  'Next pole
  With tabl
    While Not .EOF                   'перечитать все записи
      tabl_zap.AddNew                'создать новую запись в таблице для записи
      For i = 0 To .Fields.Count - 1 'перебрать все поля
        'MsgBox .Fields(i).Name
        tabl_zap.Fields(i) = .Fields(i)
      Next i
      tabl_zap.Update                'сохранить новую запись в таблице для записи
      .MoveNext
      'Exit Sub
    Wend
  End With

Таким же способом можно и таблицу автоматически создавать по имеющемуся RecordSet.

[Myhaylo]

Не понимаю, что мешает Вам сделать вот так (если я Вас правильно понял от 30.11.2012, 15:51):

cSqlString = "SELECT b.arcdate, ..., cu.symbolcode INTO НоваяТаблица FROM ... WHERE ..."
DoCmd.RunSQL cSqlString

[gluk_fm]

Огромное спасибо "О Myhaylo ". Ваш код мне полностью подошёл, осталось мне поиграться со свойствами создаваемых полей и всё будет ПОЗИТИВНО!!!
Хорошего дня.