ник: joka
Событие ПланОконч_GotFocus() и переменная date_end убрал.
код переписал так:
Private Sub ПланОконч_AfterUpdate()
Dim dif As Variant
dif = Me!ПланОконч - Me!ПланОконч.OldValue
If IsNull(dif) Then Exit Sub
Me.Dirty = False
With Me.RecordsetClone
.Bookmark = Me.Bookmark
.MoveNext
If Not .EOF Then
.Edit
![ДатаПланНачало] = ДатаПланНачало + dif
.Update
End If
End With
End Sub
вот в одну сторону работает нормально изменяю в поле ПланОконч дату с 29.07 на 30.07.
тогда в следующей записи меняются данные ДатаПланОкончание с 02.04 на 03.04.
ВСЕ ОК
и пробую после этого поменять назад с 30.07 на 29.07
при этом косяк какой то... смотрю в отладчике на строчку
![ДатаПланНачало] = ДатаПланНачало + dif
и виджу что ![ДатаПланНачало] = 03.04, а ДатаПланНачало = 02.04 (как бы старые данные откуда-то)? и получается когда добавляется -1 итоговая дата не 02.04 а 01.04 :(