I have the foll click() for a combo box
Private Sub cmbFilter_Option_1_Click()
Dim widthmenu, listoptions
listoptions = Array("tirewidth", "aspectratio", "rimradius", "LoadIndex", "SpeedSymbol")
list1 = listoptions(0)
list2 = listoptions(1)
List3 = listoptions(2)
list4 = listoptions(3)
list5 = listoptions(4)
widthmenu = Array("115", "125", "145",....)
widthmenu1 = widthmenu(0)
widthmenu2 = widthmenu(1)
...
If Me.cmbFilter_Option_1 = list1 Then
If Me.cmbFilterSizeValues <> """ Then Me.cmbFilterSizeValues = """ Then
End If
cmbFilterSizeValues.AddItem (widthmenu1)
cmbFilterSizeValues.AddItem (widthmenu2)
cmbFilterSizeValues.AddItem (widthmenu3)
.....
End If
End Sub
Problem is that everytime I click the cmbFilter_Option_1, the other cmbFilterSizeValues box gets populated, but does not display the values on different rows. It shows the values as 115;125;145;155.. and so on.
How to fix this?
thanks!
Private Sub cmbFilter_Option_1_Click()
Dim widthmenu, listoptions
listoptions = Array("tirewidth", "aspectratio", "rimradius", "LoadIndex", "SpeedSymbol")
list1 = listoptions(0)
list2 = listoptions(1)
List3 = listoptions(2)
list4 = listoptions(3)
list5 = listoptions(4)
widthmenu = Array("115", "125", "145",....)
widthmenu1 = widthmenu(0)
widthmenu2 = widthmenu(1)
...
If Me.cmbFilter_Option_1 = list1 Then
If Me.cmbFilterSizeValues <> """ Then Me.cmbFilterSizeValues = """ Then
End If
cmbFilterSizeValues.AddItem (widthmenu1)
cmbFilterSizeValues.AddItem (widthmenu2)
cmbFilterSizeValues.AddItem (widthmenu3)
.....
End If
End Sub
Problem is that everytime I click the cmbFilter_Option_1, the other cmbFilterSizeValues box gets populated, but does not display the values on different rows. It shows the values as 115;125;145;155.. and so on.
How to fix this?
thanks!