Please help: Pop up calendar

[doreenk]

I have a pop up calendar attached to my data entry form. I would like to standadised my date entry to every Sunday. How can I modify the calendar so that only Sunday can be selected?

You help is greatly appreciated

 

[Rolliee]

use a WHERE day(MyDate) = 7

I think Sunday is a '7' CHeck the Help file to be sure.


Rollie E

 

[VBOnly]

You could use the VeforeUpdate event to modify the value of the calendar to the first day of week (which you set to Sunday. Trial code (ActiveXCtl6 is the Calendar object):

Private Sub ActiveXCtl6_BeforeUpdate(Cancel As Integer)
    Dim v
    Dim wk As Integer
    With ActiveXCtl6
        v = .Value
        wk = WeekDay(v, vbSunday)
        v = v - wk + 1
        .Value = v
    End With
End Sub

 

[doreenk]

Thanks for the tip, but I am not sure how to incorporate this code into the following code I used to transfer the date chosen in the calendar to the date field (which is WeekEnding). I tried to put if after the 2nd line but didn't work.

Private Sub Calendar_Click()

WeekEnding.Value = Calendar.Value
WeekEnding.SetFocus
Calendar.Visible = False

End Sub

Sorry for being such a pain, but I have little knowledge in programming.

 

[doreenk]

It works! Thank you very much VBOnly. You are my life saver.