[Tasos]

Καλησπέρα σε όλους!

Θα μπορούσε να τροποποιηθεί η μακροεντολή CountDatesPeriod() για να αναιρεί την τελευταία καταχώρηση αν συμπίπτουν οι ημερομηνίες:

Private Sub CountDatesPeriod()
    Dim Date1 As Long, Date2 As Long
    If IsDate(Me.StartDate) And IsDate(Me.EndDate) Then
        If Me.StartDate <= Me.EndDate And Me.StartDate <> 0 Then
            Date1 = CLng(Me.StartDate): Date2 = CLng(Me.EndDate)
            If DCount("ID", "Adeies", "ID =" & Me.ID & _
                      " AND (StartDate Between " & Date1 & " And " _
                      & Date2 & ") Or (" & "EndDate Between " & _
                      Date1 & " And " & Date2 & ")") Then
                MsgBox "Dating in conflict..."
                Me.Undo
            Else
                Me.AbsenceDays = Me.EndDate - Me.StartDate + 1
            End If
        End If
    End If
End Sub

Φιλικά

Τάσος
Τάσος