ник: Гоблин
Тут похоже принцип надо придумать. Не скажу, что так правильно будет, но только суть задумки. А вдруг такое сработает.
With frm
.AllowAdditions = False
.AllowEdits = False
.DataEntry = True
End With
Это понятно что к чему. Так вот. Сам не пробовал, но копал бы в таком направлении.
Создать таблицу, в которой перечислены имена имеющихся форм. В другом столбце соотствующее свойство. DaoRecorsetom пробегая по таблице, присваивать соотсветствующим формам соответствующие свойства при открытии.
Dim rst As DAO.Recordset
DoCmd.SetWarnings False
Set rst = CurrentDb.OpenRecordset("SELECT Настройки.ИмяФормы, Настройки.Свойство, FROM Настройки WHERE (((Настройки.Код) In (" & Условие & ")));")
With rst
If .RecordCount <> 0 Then
Do While Not .EOF
if .....чего-то там (имя пользователя, пароль, или имя формы = !ИмяФормы)
![ИмяФормы]&!СвойствоФормы
end if
.MoveNext
Loop
End If
Ну как-то так. Надеюсь направление понятно будет.