[Страдалецъ]

Насколько я помню, параметры можно передавать для формирования ограничения, но не для имен полей запроса. В этом случае вам лучше формировать текст запроса иначе:

Код:

qry1.SQL.Text:=Format('INSERT INTO [Решение для первой смены] ( количество_диванов, Название_дивана, Наименование_товара, расход_товара_на_каркас, расход_товара_на_сборку, расход_за_день, смена )' +
 'SELECT %s AS количество_диванов, [Название дивана].Название_дивана, [Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, ' +
 '(([расход_товара_на_каркас]+[расход_товара_на_сборку])* количество_диванов ) AS расход_за_день, %s AS Смена FROM Смена, [Наименование товара] INNER JOIN ([Название дивана]' +
 ' INNER JOIN БД ON [Название дивана].Название_дивана = БД.Название_дивана) ON [Наименование товара].Наименование_товара = БД.Наименование_товара GROUP BY %s, [Название дивана].Название_дивана,' +
 '[Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, [Смена] HAVING ((([Название дивана].Название_дивана) Like ''%s''));',[Edt1.Text,dblkcbb2.Text,Edt1.Text,dblkcbb1.Text]);