Hi
i need a bit of help, the problem is next:
i have in my form date field so after i entered the date i want that access
only warns me if the day in a date i entered isn't saturday and goes on. I
wrote the following code but the problem is that when i enter the Saturday's
date it also gives me a warning that it isn't Saturday.
Thanx in advance

Private Sub EndDate_AfterUpdate()
Dim EndDate As Date
EndDate = Forms!Table1!EndDate.Value
If EndDate = DayConstants.mvwSaturday Then
Exit Sub
Else: MsgBox "Day you entered isn't Saturday!", vbExclamation + vbOKOnly,
"Information"
End If
End Sub

If Weekday(EndDate) <> vbSaturday Then
MsgBox "Not Saturday"
End If

>-----Original Message-----
>Hi
>i need a bit of help, the problem is next:
>i have in my form date field so after i entered the date
i want that access
>only warns me if the day in a date i entered isn't
saturday and goes on. I
>wrote the following code but the problem is that when i
enter the Saturday's
>date it also gives me a warning that it isn't Saturday.
>Thanx in advance
>
>Private Sub EndDate_AfterUpdate()
>Dim EndDate As Date
>EndDate = Forms!Table1!EndDate.Value
>If EndDate = DayConstants.mvwSaturday Then
> Exit Sub
>Else: MsgBox "Day you entered isn't Saturday!",
vbExclamation + vbOKOnly,
>"Information"
>End If
>End Sub
>
>
>.
>