Здравствуйте, уважаемые специалисты. Есть БД SQL Server 2008 R2+приложение на Аксесс 2013.
В БД есть таблицы:
1) ЕжедОтчет (НомерОтчета - счетчик, ключевое; ТабНомер - число, Подразделение - число;Дата - дата, краткий формат, ЧасовВОтчете - одинарное с плавающей точкой)
2)ЕжТрудозатрата(Код - счетчик, ключевое;Назначение - целое; Примечание - строка; ВремяНаДокумент - одинарное с плавающей точкой;Дата - дата, краткий формат;Отчет -целое,внешний ключ таблицы (1) )
Логика работы такая: есть форма заполнения отчета с подчиненной формой - записей таблиц (1) и (2), при этом записи таблицы (2) записываются в подчиненную форму. На главной форме есть кнопка "Отправить отчет",код которой должен сохранить записи в таблицах БД и произвести изменения данных с учетом отчета. Надо менять таблицу:
"НазначенияСотрудникам"(Код - счетчик, ключевое;Сотрудник-целое; ЧасовПлан -одинарное с плавающей точкой;ЧасовФакт-одинарное с плавающей точкой;ВремяНаДокумент - одинарное с плавающей точкой )
ВремяНаДокумент в этой таблице - это разница ЧасовПлан-ЧасовФакт.
Вот код на VBA, которым я пытаюсь сохранить введенные записи и поменять данные в таблице "НазначенияСотрудникам":

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 (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
End Sub

Для обновления данных я в процедуре вызываю запросы,созданные в конструкторе запросов.
Запрос "ОбновлениеОстатковВремени":

UPDATE НазначенияСотрудникам INNER JOIN ЕжТрудоЗатрата ON НазначенияСотрудникам.Код = ЕжТрудоЗатрата.Назначение SET НазначенияСотрудникам.КолЧасовФакт = [НазначенияСотрудникам]![КолЧасовФакт]+[ЕжТрудоЗатрата]![ВремяНаДокумент]
WHERE (((ЕжТрудоЗатрата.Назначение)=[НазначенияСотрудникам]![Код]) AND ((ЕжТрудоЗатрата.Отчет)=[Forms]![EzhetOtchet]![НомерОтчета])); 

- увеличивает значение КолЧасовФакт на величину "ВремянаДокумент" из отчета
Запрос "ОбновлениеОстатковЧасов":

UPDATE НазначенияСотрудникам INNER JOIN ЕжТрудоЗатрата ON НазначенияСотрудникам.Код = ЕжТрудоЗатрата.Назначение SET НазначенияСотрудникам.ВремяНаДокумент = [НазначенияСотрудникам]![КолЧасовПлан]-[НазначенияСотрудникам]![КолЧасовФакт]
WHERE (((ЕжТрудоЗатрата.Назначение)=[НазначенияСотрудникам]![Код]) AND ((ЕжТрудоЗатрата.Отчет)=[Forms]![EzhetOtchet]![НомерОтчета]));

- уменьшает поле "ВремяНаДокумент" в таблице на соответствующуювеличину в отчете.
при выполнении кода возникают проблемы:
1)запись в главной таблице - ЕжедОтчет не сохраняется, в подчиненной таблице записи сохраняются и не выполняется ни один из запросов.
2)записи в обоих таблицах сохраняются, но запросы не выполняются...
Проблемы эти происходятрегулярно,но не у всех..из150 пользователей примерно у 15-20 человек, причем у разных... но ежедневно...все записи и запросы могут и сработать,но на N-й попытке,что конечно бесит пользователей и засоряет базу... Подключение юзеров к БД идет через файловый DSN. Аксесс юзеры9клиенты) запускают через Runtime. Помогите пожалуйста.Бьюсь давно над этим и ничего не выходит... Пробовал в запросах блокировки ставить - еще хуже...Акс ругается, что не может заблокировать данные...

http://www.sql.ru/forum/1132667/ne-rabotaet-sohranenie-zapisi-v-bd-i-vypolnenie-zaprosov-kodom-vba