Is Not Monday

[BLFOSTER]

I have a form with a date field called [txtweekof]. The default value of [txtweekof] is Date(). The user must always pick a Monday date in order to run a weekly roster. What I want to do is show a message to user if the date in [txtweekof] is NOT a Monday. This is what I have and it looks good to me, but I get the message no matter what date I pick.




If [txtWeekOf] <> vbMonday And [txtWeekOf].Visible Then
vMsg = "Please Select the Correct Monday"
End If

have also tried (with the same results)

Case [txtWeekOf] <> vbMonday And [txtWeekOf].Visible
vMsg = "Please Select the Correct Monday"

[lfpm062010]

You have to use function "DatePart" to get the day of week.
http://www.techonthenet.com/access/f...e/datepart.php

DatePart ("w", now()) it will return a value of 2 which is "vbMonday".

[BLFOSTER]

Thanks! Works fine