ник: Аноним
Инна, вы все с цистернами воюете? :) 
такой запрос как вам нужно должен быть динамическим -
он будет состоять из Стэйтментов 2-х типов,
декларативная часть фиксированная - Insert Into ... From ...
и переменная часть - динамически формируемая функцией
т.е запрос вам нужно строить каждые раз по-новой в коде VBA
при построении запроса вы можете в цикле пробегать коллекцию Fields объекта TableDefs и налету формировать стринг вашего SQL запроса
лучше использовать цикл ForEach Field in TalbleName.Fields - попробуйте выполнить такой пример (таблица Example должна быть в базе)
Private Sub SomeButtonClick()
For Each Field In CurrentDb.OpenRecordset("Example").Fields
MsgBox Field.Name
Next
End Sub
|
и еще - довольно подробный пример есть в хелпе к VBA для Access.