[ Εκθέσεις ] Εμφάνιση Κυριακές και Αργίες.

[steliosgr]

Καλησπέρα σε όλα τα μέλη του απίστευτου αυτού forum γνώσεων. Θα ήθελα την βοήθεια σας , σε μία φόρμα με πεδίο ημερομηνίας ονόματος ΗΜΕΡΟΜ καταχωρώ μόνο Σάββατα Κυριακές και αργίες. Για αποφύγω λάθος καταχώρηση έχω ενσωματώσει το παράδειγμα
http://www.ms-office.gr/forum/access...ma-access.html
και πριν από ενημέρωση του ΗΜΕΡΟΜ

If IsHoliday(ΗΜΕΡΟΜ) = True Then
μια διαδικασία
Else
Dim iWeekNo As Integer
iWeekNo = Weekday(ΗΜΕΡΟΜ)
If iWeekNo = 2 Or iWeekNo = 3 Or iWeekNo = 4 Or iWeekNo = 5 Or iWeekNo = 6 Then
μια διαδικασία
Me.Undo
End If
End If
θα ήθελα σε μια έκθεση να εξάγονται μόνο οι Κυριακές και οι αργίες. Προφανώς χρειάζεται κάποιο ερώτημα η συνάρτηση αλλά δεν έχω τις κατάλληλες γνώσεις ευχαριστώ.