Hi,
I developed a form in Access 2003 which has a combo box in it. The combo box displays all the years since 1900 until the current year. I created a function called PopulateCboYear and called the function when the form is loaded:
Private Sub PopulateCboYear()
Dim iYear As Integer
For iYear = 1900 To Year(Now())
cboYear.AddItem (iYear)
Next
End Sub
The function worked perfectly in Access 2002 and 2003, but not in 2000. I then realized that Access 2000 does not have the AddItem function and, therefore, added a module called AddItem according to some suggestions I found on the internet:
Sub ListAddItem(LB As ListBox, ByVal strItemToAdd As String)
LB.RowSource = IIf(LB.RowSource = "", strItemToAdd, LB.RowSource & ";" & strItemToAdd)
End Sub
I was hoping that by adding this module, the PopulateCboYear function would work, but it doesn't, and I can use some help from smart people like you!!
Thank you,
egghi
