DTPicker default value

[Markus_87]

Hello again ppl,

Need to be able to set the default value of the dtpicker to always show the current date on opening. and this date needs to be automatically put in a textbox (textbox 28) without the user having to choose from the calender.

Previously had the following code for the textbox

Private Sub DTPicker1_Change()
TextBox28.Value = DTPicker1.Value
unbound_ctrl_Date = DTPicker1.Value
End Sub

But the user still has to choose from the calender before the date is displayed in the textbox.

Any help appreciated

 

[Colin Legg]

Hi,

Set the values in the userform_initialize event. Something like this:

Private Sub UserForm_Initialize()
    DTPicker1.Value = Date
    unbound_ctrl_date = Format(Date, "dd/mm/yyyy")
End Sub

 

[Markus_87]

Hi Colin,

Sorry i might not have explained properly as i'm fairly new to this.

The DTpicker is in a dropdown box and although it knows what todays date is you have to go in to the calender and choose the date before it displays it in the dropdown. if that makes sense?

I then want the date displayed in the dropdown to automatically be shown in Textbox 28 when the user opens the form. and not (as i currently have it displayed there once they've opened the calender and clicked)

Many thanks

 

[jarredhoo]

Not entirely sure this will work, but try it:

In your userform initialize stage

TextBox28.Value = date

(Therefore the textbox will always display today's date)

However, if there is the possibility that the date you want isn't today's date, leave your original code of:

Private Sub DTPicker1_Change()
TextBox28.Value = DTPicker1.Value
unbound_ctrl_Date = DTPicker1.Value
End Sub

That way if they happen to change the date away from today, it will still update appropriately.