ник: SVS
В форму1 вписал следующий код
Form_Форма1.Visible = False
FormPoetAges.SetFocus 'ВтораяФорма
Do
Str = FormPoetAges.DopKod 'стринговая переменная
DoEvents
Loop Until Str <> ""
appAccess.DoCmd.Close acForm, "ВтораяФорма"
appAccess.Quit
Set FormPoetAges = Nothing
Set appAccess = Nothing
Form_Форма1.Visible = True
вроде работает как хотелось... наверное надо ещё проверять открыта ли форма перед тем как вытаскивать из неё переменную... и вообще ошибки отлавливать
>Может в принципе другое решение применить?
Может решение и другое... я пытаюсь решить задачу по мере своих знаний и видимости решения
>Откуда будут браться эти сотни файлов?
С формой1 работает пользователь, а формы2,3,...,n находятся на сетевом диске.
Данные у меня занесены в таблицу (находится на сетевом диске), для примера - обои, краска, лак и т.п.... дополнительные формы я использую для уточнения... если того требуют данные - цвет, размер, масса, стоимость и т.д. для каждой записи получается свой набор уточнений.... каждая запись у меня имеет свой КОД и поле - boolean (наличие дополнительной формы), дополнительные формы размещены в файлах по именам КОДов записей....
:) чет кажется чем больше объясняю тем больше непонятно...
Если приведенный код и уточнения про отлов ошибок грамотное решение, то этим я пока и довольствуюсь, потому что лучшее враг хорошего
Но если вы поняли мою задачу и у вас есть мысли про другое решение поделитесь пожалуйста, потому что нет пределу совершенства