Код для кнопки "сохранить запись" на VBA

Public Sub ЗаполнитьОбязательныеПоля(frm As Form) 'Для продажи недвижимости с договором
    xxx = False
    Dim i
'Исходя из какой формы запрос, выбираем нужный массив обязательных полей
    If frm.Name = "ContractSale" Then
            If frm.Caption = "Новая квартира" Or frm.Caption = "Новая комната" Or frm.Caption = "Новый дом" _
            Or frm.Caption = "Новый участок" Or frm.Caption = "Новая ком. недвижимость" Then
                'Массив имен обязательных полей записанных в нужном порядке
                arrRequire = Array("КодТипНедвижимости", "КодУлицы", "№Дома")
            Else
                'Массив имен обязательных полей записанных в нужном порядке
                arrRequire = Array("КодСобственника", "КодОперации", "КодТипНедвижимости", _
                "КодУлицы", "№Дома", "№Договора", "ДатаДоговора", "ДатаОкончанияДоговора", "КодРиелтора", _
                "КодИсточникИнформации", "КодСтатуса")
            End If
        ElseIf frm.Name = "ContractBuying" Then
            'Массив имен обязательных полей записанных в нужном порядке
            arrRequire = Array("КодОперации", "КодТипНедвижимости", "КодПокупателя", _
            "№Договора", "ДатаДоговора", "ДатаОкончанияДоговора", "КодРиелтора", _
            "КодИсточникИнформации", "КодСтатуса")
        ElseIf frm.Name = "НовыйЗвонок" Or frm.Name = "ИсторияЗвонков" Then
            'Массив имен обязательных полей записанных в нужном порядке
            arrRequire = Array("КодТипЗвонка", "ДатаЗвонка", "ВремяЗвонка", "Имя", "Телефон1", _
            "КодИсточникИнформации", "КодРиелтора", "РезультатЗвонка")
        ElseIf frm.Name = "НовыйКлиент" Or frm.Name = "Клиенты" Then
            'Массив имен обязательных полей записанных в нужном порядке
            arrRequire = Array("Имя", "Телефон1")
        End If
'здесь проверка на заполненность обязательных полей
End Sub

Public Sub ЗаполнитьОбязательныеПоля(frm As Form, frmCaption)
  Dim db as dao.database, rst as dao.recordset, s, n, i
  set db=currentdb
  'определяем sql рекордсета 
  s="select * from Require where ИмяФормы='" & frm.name _
  & "' and (Caption like '" & frmCaption & "*' or " & frmCaption & ""="" & ")"
  set rst=db.openrecordset(s)   'создаем рекордсет 
  If rst.eof Then exit sub      'если рекордсет пустой выходим
  rst.movelast: rst.movefirst: n=rst.recordcount 'Находим размерность массива
  redim arrRequire(n) '
  i=0
  do until rst.eof  'Цикл по рекордсету и заполнение массива
    arrRequire(i)=rst!ИмяПоля 
    i=i+1
    rst.movenext
  loop
'здесь проверка на заполненность обязательных полей
End Sub

Ctl.BorderWidth = 2 * B * (CurrentDb.TableDefs("Main_Table").Fields(Ctl.Name).Properties("Required"))

rst.FindFirst "[ИмяПоля] = 'ЗначениеПоля'"

rst.MoveFirst
rst.FindFirst "[ИмяПоля] = 'ЗначениеПоля'"