I have a form that has a list box that displays items based on it's id in the database. It has been working for several years, but today, decided to give me this error. I am over 45000 id's. (Just added a ton of new products.) Could this be the problem?
Here's where it's balking
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
'add the item to the list
lstArray.AddItem rs("last") & ", " & rs("first")
'get the unique id from the db and assign it to the item for the list
(CHOKES HERE!!) intID = rs("id")
Me.lstArray.ItemData(Me.lstArray.NewIndex) = intID
'Move to the next record
rs.MoveNext
intCounter = intCounter + 1
Loop
__~o
`\<,
(_)/(_)
MTBChick
The day you stop riding is the day you die.
Here's where it's balking
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
'add the item to the list
lstArray.AddItem rs("last") & ", " & rs("first")
'get the unique id from the db and assign it to the item for the list
(CHOKES HERE!!) intID = rs("id")
Me.lstArray.ItemData(Me.lstArray.NewIndex) = intID
'Move to the next record
rs.MoveNext
intCounter = intCounter + 1
Loop
__~o
`\<,
(_)/(_)
MTBChick
The day you stop riding is the day you die.