Имеется основная форма и несколько подчинённых форм (Main + Form1, Form2, Form3, Form4). В основной форме есть два поля обязательных к заполнению, без них нельзя давать пользователю заполнять какие-либо поля в подчинённых формах. Я решил не париться с привязыванием кода к кнопкам, а просто заблокировать доступ к полям (кроме обязательных естественно) до тех пор пока не будут заполненны те два обязательных. Создал модуль со следующим кодом:

Function RegD()
pf1 = Forms!Main!Номер_документа: pf2 = Forms!Main!Дата
Set ctl = Forms!Main!Номер_документа
Set ct2 = Forms!Main!Дата
 If IsNull(pf1) = True Then
MsgBox "Введите номер документа!"
   DoCmd.GoToControl ctl.Name
     Else
        If IsNull(pf2) = True Then
           MsgBox "Введите дату!"
               DoCmd.GoToControl ct2.Name
                  Else
         End If
         End If
End Function

Соответственно в получении фокуса в каждом поле дополнительно вписывается Reg_D = RegD()
Всё бы хорошо. Но не хотелось бы присваивать этот фокус каждому полю, в том числе в основных и подчинённых формах. А полей у меня около 30. Вопрос - есть ли какой-то способ присвоить получение фокуса ВСЕМ полям во всех формах (включая подчинённые) одним разом, при этом минуя те два обязательных. Либо, буду рад если будет предложен какой-то альтернативный, не столь сложный способ блокирования полей в основной форме, до тех пор пока не будут введены обозначенные обязательные поля.

http://www.sql.ru/forum/1114254/obyazatelnye-polya-v-podchinyonnyh-formah