Combo Box??!!

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Hi,

When setting up a Combobox in the Commandbar use the following code example to add items. There are a few ways in which you can add items...

Dim Combo As XtremeCommandBars.CommandBarComboBox
Set Combo = .Add(xtpControlComboBox, ID_GOES_HERE, "")

' Adding items manually, i.e. a static list of data
With Combo
    .AddItem = "Row 1"
    .AddItem = "Row 2"
End With

' Adding items using a For Loop
For i = 1 To 10
    Combo.AddItem "Item " & i
Next

Dim rs As New ADODB.Recordset
Set rs = cnConn.Execute("SQL Query goes here...")

' Adding items using a Recordset
Do While Not rs.EOF
    Combo.AddItem rs("Value")
    rs.MoveNext
Loop

Hope this helps!