Private Sub SaveButt_Click()
Dim strmsg As VbMsgBoxResult
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
If Pole_sum.Value >  0  Then
On Error GoTo Err_SaveButt_Click
strmsg = MsgBox( "             Сохранить запись?" , vbYesNoCancel,  "Сохранение." )
If strmsg = vbYes Then
'Проверка. Если деньги выданы в кредит, создаем записи в таблице "Кредиты":
' ---------------------------------------------------------------------------------------
 
  If tip_rasch.Value =  5  Then
    Set dbs = Application.CurrentDb
    Set rst = dbs.OpenRecordset( "Kredit" , dbOpenDynaset)
    'Добавляем новые записи в таблицу "Кредиты":
    ' -----------------------------------------------
 
    For i =  1  To NumSrok.Value  'NumSrok - количество месяцев кредитования.
      With rst
        .AddNew
        !rasch = Forms!Operations![rasch_id].Value
        !data_v = DateSerial(Year(Date), Month(Date) + i, Day(Date))
        !summa_post = Round(SumVozPoMes.Value, 2)
        !valuta_post = valuta_1.Value
        .Update
      End With
    Next i
    rst.Close
    dbs.Close
    ' -------------------------------------------------
 
  End If
  ' ---------------------------------------------------------------------------------------
 
    
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    SF_Kredit.Form.RecordSource =  "SELECT Operations.rasch_id, Operations.data_oper, Operations.object, Operations.osnovanie, Operations.summa_ras, Operations.valuta_1, Operations.tip_rasch, Operations.close_dolg FROM Operations WHERE (((Operations.tip_rasch)=5  Or (Operations.tip_rasch)= 6 ) AND ((Operations.close_dolg)=False)) ORDER BY Operations.rasch_id DESC , Operations.data_oper DESC , Operations.object WITH OWNERACCESS OPTION"
    SF_Подотчетные.Requery
    SF_Operations.Requery
    ObjectDolg.Requery
    DoCmd.GoToRecord , , acNewRec
    rasch_id.Value = DMax( "[rasch_id]" ,  "Operations" ) +  1 
    tip_rasch.Value = TipGroup.Value
   
    
End If

Exit_SaveButt_Click:

    Exit Sub

Err_SaveButt_Click:

    MsgBox Err.Description
    Resume Exit_SaveButt_Click
End If
End Sub