HELP with ComboBoxes

[anonymous]

[Originally posted by lokiloki]

I am reading a small database into a combobox.
It has two fields and I have sent the first field values to the 1st Combobox.
But I need to send the second field values to a second combobox that has the correct row values that corespond to the first field.

I tried thisÿ
Combo3.AddItem (rs!clientname)
Combo1.AddItem (rs!systemname)

but the values were not indexed correctly.
Got the field values as seperate items.
I need them to show like this:


Database
Field 1ÿ ÿ ÿ ÿ  Field2
Item1ÿ ÿ ÿ ÿ ÿ  Item2
Item3ÿ ÿ ÿ ÿ ÿ  Item4

ÿ 
Combo1:ÿ  Item1
Combo2:ÿ  Item2

Select next item in Combo1 (item3) and I need item 4 to show up in Combo2

Combo1:ÿ ÿ Item3
Combo2:ÿ ÿ Item4

Thanks in advance !!ÿ 

[anonymous]

[Originally posted by ledis]

Assume the associated values in the 2 lists are putted in the same row.

Private Sub Combo1_Click()
combo2.Text = combo2.List(combo1.ListIndex)
End Sub

: & )

[anonymous]

[Originally posted by ledis]

*************************************
Combo3.AddItem (rs!clientname)
Combo1.AddItem (rs!systemname)

but the values were not indexed correctly.
***************************************

The sorted property in combo1 and combo2 should be false if you want them just appended on.
: & )

[anonymous]

[Originally posted by lokiloki]

I assume I just add this to the Combo1.additemÿ

Thanks Much !!

[anonymous]

[Originally posted by lokiloki]

Didn't work here's the actual code I have for this:

Private Sub Command8_Click()
Dim x As Integer
Dim y As Integer
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = App.Path & "\clients.mdb"
cn.Open

rs.Source = "select * from clients"
rs.Open , cn, adOpenKeyset, adLockOptimistic

Do Until rs.EOF
ÿ x = Len(Left(rs!clientname, 38))
ÿ x = 38 - x
ÿ y = Len(Left(rs!SystemName, 20))
ÿ y = 22 - y
ÿ ÿ Combo3.AddItem (rs!clientname) ' THIS WORKS
ÿ SendMessage Combo3.hwnd, CB_SHOWDROPDOWN, True,0
ÿ
ÿ rs.MoveNext
Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

Combo1.Text = Combo1.List(Combo3.ListIndex) THIS ONLY DROPS DOWN A EMPTY COMBO BOX

'Combo1.AddItem Combo1.List(Combo3.ListIndex)

SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0

Combo2 depends on what the user's choice is in Combo1.

The field values are on the same row in the database and sorted property is set to false.

[anonymous]

[Originally posted by ledis]

Why i didn't see Combo1.additem???
In your program there is no code for combo1 to add item.
Surely it will be empty!!!!!.
: & )


Do Until rs.EOF
ÿ x = Len(Left(rs!clientname, 38))
ÿ x = 38 - x
ÿ y = Len(Left(rs!SystemName, 20))
ÿ y = 22 - y
ÿ ÿ Combo3.AddItem (rs!clientname) ' THIS WORKS
*** 'SHOULD IT BE HERE?
*** 'Combo1.additem (rs!SystemName)

SendMessage Combo3.hwnd, CB_SHOWDROPDOWN, True,0
ÿ
ÿ rs.MoveNext
Loop

[anonymous]

[Originally posted by lokiloki]

Sorry, I didn't paste it all, the conbo1 is at the end of the sub.


Do Until rs.EOF
ÿ x = Len(Left(rs!clientname, 38))
ÿ x = 38 - x
ÿ y = Len(Left(rs!SystemName, 20))
ÿ y = 22 - y
ÿ 'List1.AddItem rs!clientname & Space(x) & Space(2) & Left(rs!SystemName, 20) & Space(y) & rs!DialupPhone
ÿ Combo3.AddItem (rs!clientname)
ÿ SendMessage Combo3.hwnd, CB_SHOWDROPDOWN, True, 0
ÿ
ÿ rs.MoveNext
Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

Combo1.AddItem Combo1.List(Combo3.ListIndex)

SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0

[anonymous]

[Originally posted by ada]

Your code really make me blurred.

1) Does Combo1 and Combo3 has same number of items?
Because you add combo3 with a loop but combo1 with only 1 line.

2)Combo1.AddItem Combo1.List(Combo3.ListIndex)
The thing the code it does: Select an item form COMBO1 that has the same index number with the one selected in COMBO3 and add it again to COMBO1.
Then every time you run this code, it will only add item from itself or NOTHING.

Should it be Combo1.Additem Combo3.list(Combo3.listIndex).

3)One advice: Make clear of what each line of code will do for you.

: & )

[anonymous]

[Originally posted by lokiloki]

Database is:
ÿ ÿ ÿ ÿ ÿ ÿ Column1(field name:clientname)ÿ ÿ ÿ Column2(field name: systemname)
Row1ÿ ÿ ÿ ÿ ÿ Bingoÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ Pavÿ ÿ
Row2ÿ ÿ ÿ ÿ ÿ EverettBÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ POS1

User selects clientname from Combo3, ie Bingo, and the correct coresponding systemname is in Combo1, ie Pavÿ

Combo3.AddItem (rs!clientname) 'Adds first field values (Field name: clientnameÿ (row 1, column 1) from MDB to Combo3

Combo1.AddItem Combo3.List(Combo3.ListIndex) ' Want to add 2nd field values (Field name: SystemName (row 1, colunm 2) from MDB


ÿ ÿ ÿ ÿ ÿ ÿ ÿ

[anonymous]

[Originally posted by ada]


Combo3.AddItem (rs!clientname) 'Adds first field values (Field name: clientnameÿ (row 1, column 1) from MDB to Combo3

Combo1.AddItem (rs!systemname) 'Adds second field values (Field name: systemname (row 1, column 2) from MDB to Combo1

[anonymous]

[Originally posted by lokiloki]

I scrapped that way and used a DATA control bound to two text boxes. Worked !
I want to thank you for all your help, you showed me things I can use in the future !

THX !!!