[exarhos]

φίλε μου σευχαριστω παρα πολυ για τισ ευχές σου αλλα και την την απαντηση στο προβλημα μου..
2 ερωτησεισ πανω στο θέμα.
1. τισ αργιες τισ καταχωρω εγω στον πίθνακα (μεσω τησ φόρμασ)
2 έκανα κάποιες αλλαγες, ώστε να έχω και το σαββατο μαζι με την κυριακη


Public Function CheckWeekend(ByVal dtmTemp As Date) As Boolean
Select Case Weekday(dtmTemp)
' Case vbSaturday or vbsunday
' CheckWeekend = True
Case vbSunday Or vbSunday
CheckWeekend = True
Case Else
CheckWeekend = False
End Select
End Function


Private Sub fDates_BeforeUpdate(Cancel As Integer)

If CheckWeekend(Me.fDates) = True Then
MsgBox "Σαββατο-Κυριακή"
End If
end sub


ειναι σωστές οι αλλαγεσ?
και πάλι ευχαριστω εκ των προτερων