Запрос, изменяющийся относительно данных на форме

xm?!_(mo3roBa9_akTuBHocTb)
Дата: 20.11.2006 15:42:14
Есть форма в которой выбирается товар для покупки, у каждого товара свои характеристики, допустим для "ПРОФИЛЯ" нужно указать покрытие, цвет и количество, для "МЕТИЗОВ" длину, количество и размер. Всего 7 характеристик. При изменении поля (в котором выбирается товар для покупки) на экран выводятся только нужные поля (т.е. выбрали мы "МЕТИЗЫ", у нас появились поля для воода длины, количества и размера, остальные поля становятся просто невидимыми).
Не могу решить, как сделать чтобы в обработчике кнопки "Добавить" в таблицу заявок добавлялись тока те данные, которые нужны для данного товара. Как записать запрос? Конешно можно для каждого типа товара записать запрос и поставить условие - если у товара поля "Длина", "Количество" и "Размер" видимы, то выполнять такой то запрос, т.к. 7 характеристик, то придётся 7! запросов писать. Как сделать по умному и можно ли? Подкиньте идейку пожайлуста.

ps: на самом деле у меня на форме при выборе товара посылается запрос в каталог товаров, там ищем товар и узнаём его характеристики, далее изменяются невидимые флажки на форме, если товар выбран "МЕТИЗЫ", то флажки "Длина", "Количество" и "Размер" будут TRUE, соответственно исходя из этого будут видимы соответствующие поля для ввода.
BULK INSERT
Дата: 20.11.2006 16:00:14
xm?!_(mo3roBa9_akTuBHocTb)
Подкиньте идейку пожайлуста.


а слабо ник поменять, сабжект осмысленный переписать и вопрос переформулировать?
xm?!_(mo3roBa9_akTuBHocTb)
Дата: 20.11.2006 16:11:22
Чем тебе ник, название темы и вопрос не нравится? Вроде ясно же изложил суть дела.

Решил не усложнять и поля с характеристиками, которые не требуются для выбранного поля приравнивать к пустым и добавлять в таблицу. Вопрос закрыт.
mds_world
Дата: 20.11.2006 16:13:51
Вам нужно делать динамический запрос, составляемый в процедуре VBA. В процедуре должен быть обход всех полей, выделение заполненых и формирование запроса по ним.
  Dim myControl As control
  For Each myControl In Me.Controls
    If myControl ' Здесь нужны какие-то условия
  Next myControl