Help with datepicker control

I have a form with a date picker on it, When you click on the date it gives you a calender type date picker but it stays on the date that it was first set up,my question is how do i get the date to default to todays date.
I have looked at the properties of the form but there is no where that allows you to have the default day as today.

Thanks

Ian

You have a control?
Did you look at the properties of the control to see the target cell?

thanks for the reply anne
what control?
the target cell is ok
when it runs after you put the date in it is ok, I supose it is not a big problem I just thought it would look better if the first date it gave you as an option was todays, as i did it in april so when you run the form it defaults to the date in april.


Ian

Ian: Date picker = Control

What is that? A calendar?

Is this a template or a workbook?

In the form initialize event:

Code:

---

Me.ctlPicker = Date()

---

Where ctlpicker is the name of your Date/Time Picker control

Use:

[VBA]DTPicker1.Value = Date[/VBA]

:)

Thanks for everybodys help in this Is now sorted, I used the suggestion from mark also abulafia suggestion worked as well

Code:

---

Private Sub DTPicker1_Enter()
'changes picker to current date
DTPicker1 = Date

End Sub

---

Regards

Ian

Hi Rama,

Check out the vba tags for your code. The green and white icon ;)

On a technical note:

Code:

---

DTPicker1 = Date

---

implies:

Code:

---

DTPicker1.value = Date

---

as value is the default property of the datepicker object. Although not wrong it is good practice to explicitly use the property as in some scenarios it could result in errors.

:)

Rama4672,

Another option is the following. This is put in the calander userform.

Code:

---

Private Sub UserForm_Initialize()
Calendar1.Year = Year(Date)
Calendar1.Month = Month(Date)
Calendar1.Day = Day(Date)
End Sub

---

Kurt