ник: Аноним
Инна, вы все с цистернами воюете? :) 
такой запрос как вам должен быть динамическим -
он будет состоять из Стэйтментов 2-х типов,
декларативная часть фиксированная - Insert Into ... From ... и переменная часть - динамически формируемая функцией
т.е запрос вам нужно строить каждые раз по-новой в коде VBA
при построении запроса вы можете в цикле пробегать коллекцию Fields объекта Recordset (или иного - смотрите в приложенном рисунке) и налету формировать стринг вашего 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.