calendar controls

[Lee T.]

If you are using the ActiveX calendar control the you can
put something like this in the ON LOAD event. This will
set the calendar to todays date. I have two calendars to
allow a start and end date for reports. I set the start
date back one year (365 days) but you can work it as you
need it.

Private Sub Form_Load()

StartDate.Value = DateAdd("d", -365, Date)

EndDate.Object.Today
EndDate.Value = EndDate.Object.Value

End Sub


tht

Lee T.