On Error GoTo ErrHandle
Dim Count As Integer
Count = 0
With Me.ЕжТрудоЗатратаОтчета.Form.RecordsetClone
  .MoveFirst
  Do Until .EOF
    If IsNull(![Объект]) Or IsNull(![ВремяНаДокумент]) Then
      Count = Count + 1
    End If
    .MoveNext
  Loop
End With
 Me.ЧасовВотчете = Forms![EzhetOtchet]![ЕжТрудоЗатратаОтчета].Form![ИтогЗаДень]
ErrHandle: If Count = 0 Then
If Me.СуммаЗатратЗаДень.Value <> "" Then
'If (Count = 0) And ((Поле45 - RepItog) > 0) Then
 If MsgBox("Вы подтверждаете распределение часов по задачам?", vbYesNo) = vbYes Then
 If СуммаЗатратЗаДень <= 8 Then
 If СуммаЗатратЗаДень > 0 Then
 DoCmd.SetWarnings False
 DoCmd.OpenQuery "ОбновлениеОстатковВремени", , acEdit
DoCmd.OpenQuery "ОбновлениеОстатковЧасов", , acEdit
 MsgBox "Отчет принят.Спасибо Вам за работу!", vbOKOnly
  DoCmd.SetWarnings True
 ТекЗадачи.Requery

 DoCmd.Close acForm, "EzhetOtchet", acSaveYes
 Else
 MsgBox "Превышена длительность рабочего дня. Объем трудозатрат за день не должен превышать 8 часов. Отчет не может быть отправлен", vbOKOnly
 End If
 End If
End If
Else: MsgBox "Отчет заполнен не верно и не может быть отправлен.Проверьте заполнение отчета.Возможны ошибки:превышено допустимое время для распределения трудозатрат в отчете за день;" _
& "не выбраны работы из списка текущих задач;" _
& "введены трудозатраты в пустые строки отчета без выбора работ из списка;" _
& "необходимые работы выбраны из списка,введены в отчет,но по ним не заданы трудозатраты - не заполнено поле ЧасовФакт"
MsgBox "Нажмите кнопку ""Исправить ошибки заполнения отчета"",после чего проверьте заполнение отчета в результате исправления и повторите отправку,если считаете,что отчет заполнен корректно.Если некоторые позиции в результате исправления были удалены,повторите ввод данных позиций,соблюдая правила заполнения отчета"
Кнопка23.Enabled = False
End If
Else
MsgBox "При сохранении отчета произошла ошибка. Сформируйте отчет еще раз"
With Me.ЕжТрудоЗатратаОтчета.Form.RecordsetClone
  .MoveFirst
  Do Until .EOF
    .Delete
    
    .MoveNext
  Loop
End With
Me.Undo
DoCmd.Close acForm, "EzhetOtchet", acSaveNo
End If