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

For Each sCTRL In frm.Controls
    If sCTRL.ControlType = acComboBox Or sCTRL.ControlType = acTextBox Then  
         'Нужно прописать по пути: Окно свойств-другие-доплнительные сведения - значение "Обязательное"
         If frm.Controls(arr(i)).Tag = "обязательное" And IsNull(frm.Controls(arr(i))) Then
             Select Case MsgBox("Заполните поле " & frm.Controls(arr(i)).Name, _
             vbOKCancel + vbExclamation + vbDefaultButton1)
             Case vbOK
                 DoCmd.CancelEvent 'отмена закрытия, возврат в форму
                 frm.Controls(arr(i)).SetFocus                    
                 Exit Sub 'выходим из процедуры, иначе будут перебираться все контролы(поля)
             Case vbCancel
                 Select Case MsgBox("Текущая запись будет удалена!", _
                 vbOKCancel + vbExclamation + vbDefaultButton1)
                 Case vbOK                        
                     frm.Undo
                 Case vbCancel
                     DoCmd.CancelEvent 'отмена закрытия, возврат в форму
                     frm.Controls(arr(i)).SetFocus
                 End Select
             End Select    
             Exit Sub 'выходим из процедуры, иначе будут перебираться все контролы(поля)
         End If                            
    End If
Next

For Each tbl In db.TableDefs
        
Next

'Перебор всех записей в наборе
Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("tblExample", dbOpenSnapshot)  'Только просмотр
    
    With rst 
        Do Until .EOF = True 'Цикл до конца таблицы
            '...операции с записью
            .MoveNext
        Loop
    End With
 
    On Error Resume Next
    rst.Close
    Set rst = Nothing

Sim s As String
 
    s = "SELECT * FROM [название таблицы] WHERE Название_Формы='" & Me.Name & "'"
    Set rst = CurrentDb.OpenRecordset(s, dbOpenSnapshot)  'Только просмотр
    
' ... а дальше  аналогично

Function Func_acTextacCmdBox_AfterUpdate()
 Call Func_CtlBorderColor(Screen.ActiveControl)
End Function
 
Sub Func_CtlBorderColor(Ctl As Control)
 Dim B As Boolean
 With Ctl
  Select Case .ControlType
   Case acTextBox
    B = Nz(.Value) = ""
   Case acComboBox
    B = Nz(.Column(.ColumnCount - 1)) = ""
  End Select
  If .ControlType = acTextBox Or .ControlType = acComboBox Then
   .BorderColor = IIf(B, vbRed, 8421504)
  End If
 End With
End Sub

Public Sub МассивОбязательныеПоля() 'Создаем массив обязательных полей на основании данных таблицы tblRequiredFields
Dim rst As DAO.Recordset
Dim n As Byte, fld, i As Integer
 
    Set rst = CurrentDb.OpenRecordset("select * from tblRequiredFields") 'Открыть рекордсет таблицы 
        rst.FindFirst "[frmName] =" & me.form
    ReDim arr(0) 'Обнуляем массив
    
    For Each fld In rst.Fields
        If rst(n).Name <> "Код" And rst(n).Name <> "frmName" Then
            ReDim Preserve arr(i)  'Сохраняем ранее заданные значения массива и изменяем его размерность
                arr(i) = rst(n)
            Debug.Print i, arr(i), rst(n).Name
            i = i + 1
        End If
        n = n + 1
    Next
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)   
    МассивОбязательныеПоля me.form
    'Здесь проверка на заполнение обязательных полей в цикле по только что созданному массиву
End Sub