Need help with Calendar Control limits?!!! 1

[rvmams]

Is there a way to limit users input in the calendar control? I would like users only to select Monday and no other day(s) of the week.

Thx,

RvM

 

[rorubin]

How about:

Private Sub Calendar1_Click()
Dim sday
sday = Weekday(DateAdd("d", i, Me.Calendar1.Value))
If sday <> 2 Then '2 is a monday
MsgBox &quot;This is not a Monday. I need to do something about it&quot;
End If



End Sub

 

[rvmams]

Thanks roubin! It worked!!!!


Am definetly giving you a star for this one!

Rgds,

RvM