dynamic value list???

[David]

Can I make a dynamic value list that has this as values?

date()+1;date()+2;date()+3;date()+4;date()+5;date()+6;

I just want the combo box to display the next 6 dates.

 

[Douglas J. Steele]

Not like that, but in your form's Load event, you can create the string and
set the RowSource of the combo box:

Private Sub Form_Load()

Dim strSource As String

strSource = Date() + 1 & ";" & Date() + 2 & ";" & _
Date() + 3 & ";" & Date() + 4 & ";" & _
Date() + 5 & ";" & Date() + 6

Me.MyComboBox.RowSourceType = "Value List"
Me.MyComboBox.RowSource = strSource

End Sub

 

[David]

Got it! Simple enough. Thanks!

Not like that, but in your form's Load event, you can create the string
and set the RowSource of the combo box:

Private Sub Form_Load()

Dim strSource As String

strSource = Date() + 1 & ";" & Date() + 2 & ";" & _
Date() + 3 & ";" & Date() + 4 & ";" & _
Date() + 5 & ";" & Date() + 6

Me.MyComboBox.RowSourceType = "Value List"
Me.MyComboBox.RowSource = strSource

End Sub

 

[David]

Worked like a charm! Thanks Doug!

Not like that, but in your form's Load event, you can create the string
and set the RowSource of the combo box:

Private Sub Form_Load()

Dim strSource As String

strSource = Date() + 1 & ";" & Date() + 2 & ";" & _
Date() + 3 & ";" & Date() + 4 & ";" & _
Date() + 5 & ";" & Date() + 6

Me.MyComboBox.RowSourceType = "Value List"
Me.MyComboBox.RowSource = strSource

End Sub