Hello! combo box wont populate. Need help please. 1

[miscluce]

I am trying to populate a cbobox1 but i get nothing. This exact same code works on my list box1 but not my combo box. can someone tell me why this is ?

'this code works.
'populates lstbox 1
Do Until rsContacts.EOF
lstbox1.AddItem rsContacts!intContactId & "," & rsContacts!txtFirstName
rsContacts.MoveNext
Loop

'below code wont work ??????????
'populates cboBox1
'populate cbobox1 with values from a specified list
With cboBox1
.RowSource = ""
.ColumnCount = 2
.RowSourceType = "Value List"
.LimitToList = True

Do Until rsContacts.EOF
.AddItem rsContacts!intContactId
rsContacts.MoveNext
Loop

End With

thnaks in advance

 

[JerryKlmns]

If you define these
.RowSource = ""
.ColumnCount = 2
.RowSourceType = "Value List"
.LimitToList = True

in the design and not in code?

 

[Chance1234]

also what app are you in ?

Chance,

F, G + _HH

 

[miscluce]

I am doing this in Access 2007 VBA.

I dont know whats goug on? I have the value list property set and I named them with the correct name(lstbox1 and cboBox1)

'this code works
'populates lstbox 1
Do Until rsParts.EOF
lstBox1.AddItem rsParts!Manufacturer & "," & rsParts!Category
rsParts.MoveNext
Loop

'this code dont work?????
'populates cbBox1
Do Until rsParts.EOF
cboBox1.AddItem rsParts!Manufacturer & "," & rsParts!Category
rsParts.MoveNext
Loop

 

[ck1999]

Should you have a rsparts.findfirst? Since the first loop goes until end of file do you not have to restart at the top?

ck1999

 

[miscluce]

thanks I got it .