visual basic combo boxes??

[boss0021]

Does anyone know how to:
Populate a ComboBox with all the days of the year for 2005
with out doing it manually

[Rick Brandt]

boss0021 wrote:

Does anyone know how to:
Populate a ComboBox with all the days of the year for 2005
with out doing it manually

There are numerous times where having a utility table full of numbers is
handy and this can be one of them. If you have a single field table
populated with the numbers from say... negative 5000 to positive 5000 then
you can use it for all sorts of date stuff. In your case you could use a
RowSource for your ComboBox of..

SELECT DateAdd("d", [NumberFieldName], DateSerial(Year (Date()), 1,1)) As
DateFieldName
FROM UtilityNumbers
WHERE [NumberFieldName] Between 0 and 364

Of course how many numbers you want to populate the utility table with is up
to you. I picked +/- 5000 just because it's a nice round figure, but you
could start with just 365 numbers and add to it as different needs arise.
You can see how using different intervals in the DateAdd could give you a
list of dates that are months apart, weeks apart, or whatever.

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[Salad]

boss0021 wrote:

Does anyone know how to:
Populate a ComboBox with all the days of the year for 2005
with out doing it manually

You need to write a function for it. Look for the help topic
"RowSourceT ype Property (User-Defined Function) — Code Argument Values"

Copy the function below into the code module for the form containing the
combo box. This is for 2005 only. Modify it to do different years.

In the combo's RowSource enter
ListDays
(normally where you see ValueList or Table/Query under Data tab.

Function ListDays(fld As Control, id As Variant, row As Variant, col As
Variant, code As Variant) As Variant
Static strRows() As String
Static Entries As Integer

Dim ReturnVal As Variant
Dim datStart As Date
Dim datEnd As Date
Dim datFor As Date

ReturnVal = Null
Select Case code
Case acLBInitialize ' Initialize.
datStart = DateSerial(Year (Date), 1, 1)
datEnd = DateSerial(Year (Date), 12, 31)
For datFor = datStart To datEnd
ReDim Preserve strRows(Entries )
strRows(Entries ) = datFor
Entries = Entries + 1
Next
ReturnVal = True
Case acLBOpen ' Open.
ReturnVal = Timer ' Generate unique ID for control.
Case acLBGetRowCount ' Get number of rows.
ReturnVal = Entries
Case acLBGetColumnCo unt ' Get number of columns.
ReturnVal = 1
Case acLBGetColumnWi dth ' Column width.
ReturnVal = -1 ' -1 forces use of default width.
Case acLBGetValue ' Get data.
ReturnVal = strRows(row)
Case acLBEnd ' End.
Erase strRows
End Select
ListDays = ReturnVal
End Function

[PC Datasheet]

Go to the toolbox and use the Calendar control instead.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdata sheet.com
www.pcdatasheet.com
"boss0021" <zj********@aol .com> wrote in message
news:11******** **************@ g14g2000cwa.goo glegroups.com.. .

Does anyone know how to:
Populate a ComboBox with all the days of the year for 2005
with out doing it manually