Создание SQL с переменными

[Wind-up Bird]

Здравствуйте помоги создать запрос с переменными ([TempVars]![prol],[TempVars]![Model]). В конструкторе запросов такой код не обрабатывается.

INSERT INTO [TempVars]![prol] ( Модель, Описание, [Описание краткое], [Цена прайс], Preisgruppe, [Переход на PL], Скидка, [Коэффициент DDP], [Коэффициент VK] )
SELECT Оборудование.Модель, Оборудование.Описание, Оборудование.[Описание краткое], Оборудование.[Цена прайс], Оборудование.Preisgruppe, Preisgruppe.[Переход на PL], Preisgruppe.Скидка, Preisgruppe.[Коэффициент DDP], Preisgruppe.[Коэффициент VK]
FROM Preisgruppe INNER JOIN Оборудование ON Preisgruppe.Preisgruppe = Оборудование.Preisgruppe
WHERE (((Оборудование.Модель)=[TempVars]![Model]));

Не подставляет переменную [TempVars]![prol] в качестве названия таблицы. В VBA код:

Sub request_project()
Dim txtsql As String
Dim table_name, model_name
table_name = [TempVars]![prol]
model_name = [TempVars]![Model]
txtsql = "INSERT INTO "+table_name+" ( Модель, Описание, [Описание краткое], [Цена прайс], Preisgruppe, [Переход на PL], Скидка, [Коэффициент DDP], [Коэффициент VK] )
SELECT Оборудование.Модель, Оборудование.Описание, Оборудование.[Описание краткое], Оборудование.[Цена прайс], Оборудование.Preisgruppe, Preisgruppe.[Переход на PL], Preisgruppe.Скидка, Preisgruppe.[Коэффициент DDP], Preisgruppe.[Коэффициент VK]
FROM Preisgruppe INNER JOIN Оборудование ON Preisgruppe.Preisgruppe = Оборудование.Preisgruppe
WHERE (((Оборудование.Модель)="+model_name+"))"
CurrentDb.Execute txtsql
End Sub

выдает ошибку "Слишком мало параметров".

[gluk_fm]

Добрый день.
Я думаю попробуйте заменить знаки "+" на "&" и будет Вам счастье.

[Teslenko_EA]

Здравствуйте Wind-up Bird.
1. в SQL конструкциях MS Access - запросах с параметрами, параметром может быть только передаваемое значение
никак не имя источника.
2. в коде объявлены переменные "Dim table_name, model_name" с типом Variant (нет явного указания типа),
судя по их именам в них помещаются текстовые значения (потому "..заменить знаки "+" на "&".." не поможет)
не вникая в конструкцию могу предположить что поле Оборудование.Модель тоже текстовое и потому
условие отбора нуждается в корректировке - текстовые значения заключаются в кавычки или апострофы
Если я прав, то достаточно сделать подобное исправление последней строки:

... WHERE Оборудование.Модель='"+model_name+"'"

так-же для возможности безбоязненно использовать + для конкатенации текстовых строк,
рекомендую явно указывать тип переменной и использовать проверку на NULL или конкатенацию
со строкой нулевой длины с применение амперсанда.

Dim table_name As String, model_name$ 'явное объявление текстовых переменных
table_name = [TempVars]![prol] & ""

Успехов Вам.
Евгений.