Private Sub SaveCmd_Click()
    On Error GoTo SaveCmd_Click_Error
    Dim ctl As Control
    Dim a As Integer
    Dim rstAcc As ADODB.Recordset
       
    For Each ctl In Me.Controls
        If IsNull(ctl) Then a = a + 1
    Next ctl
    If a > 0 Then
        MsgBox "Не заполнены обязательные сведения." & vbCr & "Заполните все поля!!!", vbOKOnly + vbCritical, "НЕДОСТАТОЧНО ДАННЫХ"
        GoTo ExitHere
    End If
        
    Set rstAcc = New ADODB.Recordset
    With rstAcc
        .Open "Accounting", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("RegNum") = Me.Registration
        .Fields("RegDate") = Me.RegiDate
        .Fields("OffenceDate") = Me.FOffDate
        .Fields("OffenceTime") = Me.FOffTime
        .Fields("PlaceID") = Me.FOffPlace.Column(0)
        .Fields("TypeID") = Me.FOffType.Column(0)
        .Update
        Me.OffID = .Fields("OffenceID")
    End With
    rstAcc.Close
    
    With rstAcc
        .Open "OffenceSubj", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("OffensID") = Me.OffID
        .Fields("SuspID") = Me.FsuspID
        .Update
    End With
    rstAcc.Close
    
    With rstAcc
        .Open "Process", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("OffenID") = Me.OffID
        .Fields("OfficerID") = Me.FActor.Column(0)
        .Fields("StatusID") = 1
        .Update
        .AddNew
        .Fields("OffenID") = Me.OffID
        .Fields("OfficerID") = Me.FDPNSI.Column(0)
        .Fields("StatusID") = 2
        .Update
    End With
    rstAcc.Close
    
    With rstAcc
        .Open "AnalitycAcc", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("OfID") = Me.OffID
        .Fields("PostsID") = Me.Fpost.Column(0)
        .Fields("ChangeID") = Me.FChg.Column(0)
        .Update
    End With
    rstAcc.Close
    Set rstAcc = Nothing
    
    MsgBox "Запись сохранена", vbOKOnly + vbInformation, ""
    
    Тут надо обновить поля
    
    On Error GoTo 0
    
ExitHere:
    Exit Sub

SaveCmd_Click_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SaveCmd_Click, line " & Erl & "."

End Sub

Me.Поле1 = ""
Me.Поле2 = 0
........
Me.Флажок38 = False