[ασχετος]

Αρχική Δημοσίευση από bill72

Την καλησπέρα μου σε όλο το forum καλή χρονιά και χρόνια πολλά σε όλους. χρειάζομαι την βοήθεια σας γαι να πραγματοποιήσω το ίδιο ζητούμενο που είχε ζητηθεί και εδώ: http://www.ms-office.gr/forum/access...si-adeion.html στην βάση που ανεβάζω θα ήθελα αν γίνεται ο παρακάτω κώδικας να προσαρμοστεί στην βάση που ανεβάζω ή οπαιαδήποτε άλλη ιδέα δεκτή ,δηλαδή να μην με αφήνει να βάζω ημερομηνία που έχω ξαναβάλει ή ενδιάμεσα ή στην αρχή ή στο τέλος
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

Βασίλη,
στο παραδειγμα που δίνεις έχεις δύο εγγραφές
3/1/2013 - 7/1/2013
4/1/2013 - 6/1/2013
τι ζητάς;
1. να μην μπορείς να καταχωρήσεις < τις 3/1/2013
2. να μην μπορείς να καταχωρήσεις < τις 3/1/2013 και μεταξύ 3/1/2013 και 7/1/2013

τι ακριβώς, γιατί δεν κατάλαβα.