Есть модуль

+

Public Function makeID() Dim s, db As DAO.Database Set db = CurrentDb db.Execute "delete * from FamUnion" s = "INSERT INTO FamUnion (ИД_Обращения) Select DISTINCT ИД_Обращения FROM Заказанные_гены" db.Execute s makeID = True End Function

и запрос:

+

UPDATE Описание_генов INNER JOIN (Обращения INNER JOIN (Заказанные_гены INNER JOIN FamUnion ON Заказанные_гены.ИД_Обращения = FamUnion.ИД_Обращения) ON (Обращения.ИД_Обращения = Заказанные_гены.ИД_Обращения) AND (Обращения.ИД_Обращения = FamUnion.ИД_Обращения)) ON Описание_генов.ИД_Гена = Заказанные_гены.ИД_Гена SET FamUnion.Fam = (FamUnion.Fam+", ") & Описание_генов.Название_гена WHERE (((makeID())<>False) AND ((Заказанные_гены.[Считать?])=Yes));

Что происходит? В таблицу FamUnion при выполнении запроса заносятся ВСЕ Обращения.
Функция собирает все заказанные гены для обращения в строчку через запятую. Есть форма, где в списке выбирается нужное обращение. Нажимается кнопка заполнения документа данными из формы. Но перед заполнением выполняется эта функция.
Получается, что когда у меня будет 1000 обращений, то каждый раз будет формироваться по новой 1000 записей в таблице famunion. А нужно, чтобы формировалась только одна выбранная.

Я попробовал указать это в модуле:

+

Public Function makeID() Dim s, db As DAO.Database Set db = CurrentDb db.Execute "delete * from FamUnion" s = "INSERT INTO FamUnion (ИД_Обращения) Select DISTINCT ИД_Обращения FROM Заказанные_гены WHERE Заказанные_гены.ИД_Обращения=[Forms]![Address]![Поле113]" db.Execute s makeID = True End Function

[Forms]![Address]![Поле113] - это поле в котором отображается ИД_Обращения выбранного Обращения.
Но при запуске запроса выдаёт ошибку - Слишком мало параметров. Требуется 1.

Что это такое? И как это исправить? Помогите, пожалуйста.

http://www.sql.ru/forum/1112328/zapros-na-dobavlenie-i-modul