set combo box date default value

[mdavid]

Hi, I have the following sub:

Private Sub Form_Load()
 Dim Days As Integer
 
 For Days = 0 To 40
  Me.DaysLoanedCmb.AddItem Format(DateAdd("d", Days, Now), "dd/mm/yyyy")
 Next Days
 Me.DaysLoanedCmb.DefaultValue = Format(DateAdd("d", 14, Now), "dd/mm/yyyy")
End Sub

My combo box gets populated ok with dates from Now to Now + 40 days.
I'd like to add a DefaultValue so that form opens with date Now + 14 days appears in the combo box, but the above code produces a blank combo box!
What am I doing wrong?

Thanks
David

[Minty]

Try the following;

 Dim Days As Integer
 
    For Days = 0 To 40
        Me.DaysLoanedCmb.AddItem Format(DateAdd("d", Days, Date), "dd/mm/yyyy")
    Next Days
    
    Me.DaysLoanedCmb = Date + 14

I suspect your combo is unbound and a default value only applies to a new record on a bound control.

[CJ_London]

opens with date Now + 14 days appears in the combo box, but the above code produces a blank combo box

that is because now includes a time element (date=15/05/19, now-15/05/19 11:53am) - and your combo uses full dates.

[mdavid]

Thanks for your help, how do I create a bound control when I've entered the values through the Form_Load sub?

Ajax, can I specify a DefaultValue using the above Sub, if so how?

Thanks David

[CJ_London]

check post #2

[mdavid]

Thanks Ajax, sorry missed that, thought the code was mine and the text Mintys comment - Thanks Minty

[mdavid]

Thanks Ajax, sorry missed that, thought the code was mine and the text Mintys comment.

Tried your code Minty - still loading with a blank combo box

[CJ_London]

you could just set the default value in the control properties

Date()+14

[Minty]

I tested the function and it worked on my test version...

Post up the code as you have it.

And Ajax's method would equally work.