Problem With combo-box ***(KIND A) RESOLVED ***

Whenever I fill a combo-box from a recordset (with this code):

VB Code:

While Not TempRS.EOF
    Combo1.AddItem TempRS.Fields("sdOmsch"), TempRS.Fields("ndCode")
    TempRS.MoveNext
Wend

ndCode = integer
sdOmsch = string

This is no problem, but whenever I (the code) try's to add the 27th item, it gives an error:

Run-time error '5':
Invalid procedure call or argument


Does anybody have a clue
Ow, yes ndCode is the primary key of that table

Are you sure there is some data in the database?

If its empty it will cause an error.

VB Code:

While Not TempRS.EOF
If Not IsNull(CStr(TempRS.Fields)) Then
    Combo1.AddItem TempRS.Fields("sdOmsch"), TempRS.Fields("ndCode")
End If
    TempRS.MoveNext
Wend

Not sure if I've pasted this correctly, I can't see your code but it checks to see if there is a valid entry.

Well yes there is a check. (and I know for shure there is some data in), it adds data, only where the index is more as 26 it raeses the error

sdOmsch or ndCode are not Null?

Both are not NULL, the strange thing is that whenever I don't use the INDEX all works fine. But why can't I set the index to a higher value than 26???

What's the data type of nCode in the database?

Is it possible that the index value you uccurs twice?
:D

Quote:

---

Originally posted by hassa046
Is it possible that the index value you uccurs twice?
:D

---

Not if the primary key is already set at the database (No duplicates)

Have to rush cant wait for your reply, but its probably because the index for the combobox is limited. Either use another contol (data combo, data list) or convert nCode to Integer, whichever works.

I kind a solved it. I don't use the index, but it still is strang