Την καλησπέρα μου σε όλο το 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