combo box with dynamic dates?

[vicsaccess]

ok, here's one I hadn't heard of but thought it would be better on my form to pick dates rather than a date picker that needs more code to check that the user hasn't picked dates in the past or too far in the future etc. can a combo box be populated with dates based off of todays date? ideally it would hold 14 or so dates starting with today and the next 14 dates. tomorrow it would adjust to tomorrows date with 14 more dates in the future. was thinking about this today, did a little research but didn't find anything close so I thought for fun I would see if anyone has ever done something like this.

[June7]

VBA code can build the combobox RowSource.

From MSKB:

"In Visual Basic, set the RowSourceType property by using a string expression with one of these values: "Table/Query", "Value List", or "Field List". You also use a string expression to set the value of the RowSource property. To set the RowSourceType property to a user-defined function, enter the name of the function."

Code to build the list could be like:

Me.cbxName.AddItem Date()
For x = 1 to 14
Me.cbxName.AddItem Date() + x
Next

[vicsaccess]

thanks June7, that looks simpler. I did find a close proximity to what I was thinking over at bytes.com and adjusted it to work. i'll have to try yours, it looks like less of a hastle

Private Sub Form_Load()
    Me.cbodate.RowSourceType = "value list"
    m1 = Format(DateAdd("d", 1, Date), "mm/dd/yyyy")
    m2 = Format(DateAdd("d", 2, Date), "mm/dd/yyyy")
    m3 = Format(DateAdd("d", 3, Date), "mm/dd/yyyy")
    m4 = Format(DateAdd("d", 4, Date), "mm/dd/yyyy")
    m5 = Format(DateAdd("d", 5, Date), "mm/dd/yyyy")
    m6 = Format(DateAdd("d", 6, Date), "mm/dd/yyyy")
    m7 = Format(DateAdd("d", 7, Date), "mm/dd/yyyy")
    m8 = Format(DateAdd("d", 8, Date), "mm/dd/yyyy")
    m9 = Format(DateAdd("d", 9, Date), "mm/dd/yyyy")
    m10 = Format(DateAdd("d", 10, Date), "mm/dd/yyyy")
    m11 = Format(DateAdd("d", 11, Date), "mm/dd/yyyy")
    m12 = Format(DateAdd("d", 12, Date), "mm/dd/yyyy")
    m13 = Format(DateAdd("d", 13, Date), "mm/dd/yyyy")
    m14 = Format(DateAdd("d", 14, Date), "mm/dd/yyyy")
    
    Me.cbodate.RowSource = m1 & ";" & m2 & ";" & m3 & ";" & m4 & ";" & m5 & ";" & m6 & ";" & m7 & ";" _
    & m8 & ";" & m9 & ";" & m10 & ";" & m11 & ";" & m12 & ";" & m13 & ";" & m14
    
    
End Sub