Calender Control default date 1

[JimFlower]

I have a Calender Control on a form and I want to set the date to the current date from code

 

[BuGlen]

You can assign the current date to the value of the control using the Date() function in the Form_Load event. For example:

Private Sub Form_Load()

    cldrDate.Value = Date

End Sub

Hope this helps.

- Glen

Know thy data.

 

[JimFlower]

I was using the on open event it dosn't work there

 

[JimFlower]

Dim mycal As Object
Set mycal = Me.DateSelector
mycal.Today
mycal.Refresh
Set mycal = Nothing

Also works from the On Load event