ник: Анатолий (Киев)
Из вашего кода я не понял, что такое Me.ПланОконч, и чем оно отличается от ДатаПланОкончание. А также, где описаны перемнные dif и date_end, и какого они типа.
Поясню на дата1 и дата2 (как в вопросе):
Dim dif As Variant
dif = Me!Дата2 - Me!Дата2.OldValue
If IsNull(dif) Then Exit Sub
Me.Dirty = False
...
.Edit
![Дата1] = ![Дата1] + dif
.Update
|
Событие ПланОконч_GotFocus() и переменная date_end не нужны.