ник: joka
вот код
Private Sub ПланОконч_GotFocus()
date_end = Me.ПланОконч
End Sub
Private Sub ПланОконч_AfterUpdate()
Me.Dirty = False
dif = ДатаПланОкончание - date_end
With Me.RecordsetClone
.Bookmark = Me.Bookmark
.MoveNext
If Not .EOF Then
.Edit
![ДатаПланНачало] = ДатаПланНачало + dif
.Update
End If
End With
End Sub