How Do Iuse 'AddItem' method on Form_Load event ?@

liamfitz · April 28th, 2012, 06:53 PM

I can't seem to populate a combo box, using a FOR loop when loading a form ...
Here's the code ....

Private Sub Form_Load()
Dim cy As String
cy = DatePart("yyyy", Date)
For i = 0 To 4
cmbYear.AddItem(cy, i)
Next i
End Sub

I know ... if it works as it should, I would get 5 items in list of "2012", but that's fine for now. I'll do some arithmetic on the 'years' once I get it working.

The form loads, and prompts me to add the items individually 'on' the form at Run-time ??

malcolmdixon · April 29th, 2012, 11:31 AM

Hi liamfitz,

This will get you what you want (providing you want the list in descending order):

HTML Code:

Private Sub Form_Load()
    Dim cy As Integer
    Dim i As Integer
    cy = Year(Date)
    For i = 0 To 4
         Me.yearCombo.AddItem (CStr(cy - i))
    Next i
End Sub

HTH.

Malc.

liamfitz · April 30th, 2012, 08:43 AM

Mnay tahnks, that works just fine ! .... ( I ahd done it in the meantime, but it's right. )