Доброго времени суток.
Встретилась задача: есть АРМ на Access, необходимо добавить в него функционал, который по выбору значения из combobox "создаст" новый интерфейс для ручного ввода значений. Условно говоря, если выбрано первое значение из списка, то в подчиненной форме должно создаваться N'ое количество label и combobox на каждый label с значениями "Плохо/Хорошо", количество и текст label берутся из результатов вопроса; если выбрано второе значение из списка, то необходимо в подчиненной форме создать N/4 label и combobox.
Пол дня сегодня на реализацию потратил, ума не приложу как это сделать.
ЗыСы: с Access и VBA на Вы ;)
ЗыСыЗыСы: Или не подчиненные формы?

Панург, хочу средствами VBA создать основную и подчиненную ей формы, при этом, по изменению основный формы должен будет изменяться набор и порядок контролов подчиненной.
Пока способов реализации на ум пришло 2:
1) каждый раз при изменении в основной пересоздавать интерфейс в подчиненной;
2) создать несколько заготовок исходя из вариантов выбора пользователя, и в основной форме открывать их как подчиненные.

В первом случае Access ругается на то, что форма при создании в ней элементов должна находится в режиме конструктора, а как, если она уже открыта в основной и с ней велась работа?
Во втором проблема та же но с основной, и не непонятно как программно вставить подчиненную форму (гугл чет молчит).

Почему?

alecko, Спасибо рабочая мысль ;)

Ругается на
- "Введенное значение не подходит для данного свойства"

Аргументированно, блин))

alecko,

mozgenРугается на
.SourceObject = "subfrm1"
- "Введенное значение не подходит для данного свойства"

Это был какой-то баг. после перезапуска приложения ошибка пропала.

В общем и целом получилась такое:


Формы созданы (frmInputControl_100, frmInputControl_20), формы разные, сам код отрабатывает без ошибок, но в основной форме отображается только "frmInputControl_100", причем без разницы какое значение из cmbControlMode выбирать. В чем может быть загвоздка? Может как-то принудительно обновлять нужно? хотя обновляется вроде..

И, честно говоря, aleckoSet sfrm1 = .Form - это форма которая находится в контейнере-источнике вот это не совсем понял. Можете подробнее разъяснить этот момент?

alecko, дико извиняюсь, затупил. Указал переменную, которую использовал ранее, не controlModeIndex а cmbControlMode.ListIndex, конечно.

Спасибо, все работает, все отлично!

alecko, Понял, спасибо =)

sdku, тут все немного сложней. Вообще, в моем случае access используется не как БД, а как UI. Сама БД крутится на оракле, с которым у аксеса есть ряд связанных таблиц. Не спрашиваете почему это так, пожалуйста. Это решение уже есть, есть давно, и живем мы с тем, с чем имеем =)
В рамках описанной здесь задачи все subForm формируются на основании довольно сложных выборок и имеют разный функционал. Количество элементов управления в которых может варьироваться от 3 до нескольких десятков (предположительно, надеюсь больше не будет). Соответственно и количество и наборы данных во всех лейблах, комбобоксах и пр. могут, и будут отличатся.
В моей реализации это выглядит примерно таким образом: есть пачка заготовленных заранее форм в которых "жестко" прописаны все "стационарные" элементы управления, а в событии Form_Open алгоритм создания "динамических" элементов. Эти формы далее будут использоваться как подчиненные. В основной форме по событию cmb_AfterUpdate происходит изменение источника для элемента subForm на нужную форму, а в месте с тем в нужную форму передаются параметры по которым отработают все запросы этой подформы и сформируется нужный интерфейс. Таким образом метод предложенный alecko мне более чем подошел.