ник: Дядя Федор
примерно так - в примере на форме поля nomkomp, tbegin,tend
источник данных таблица Таблица3tbte (или твоя, и поля твои)
на поле tbegin вешаем обработчик (после обновления)
' в данном случае если время начала следубщего меньще окночания предыдущего(максимального), то начало=концу предыдущего
Private Sub tbegin_AfterUpdate()
Dim timebegin As Double
timebegin = DMax("[tend]", "Таблица3tbte", "[nomkomp]=" & Me.nomkomp)
If Me.tbegin < timebegin Then
Me.tbegin = timebegin
End If
End Sub
'действия по then можешь сам придумать - сообщение там или еще что
|
Для полноты проверок надо и время окончания что б было больше времени начала