[RESOLVED] combo box problem

[wizkid]

hi
i am trying to get some values from database to combo box
and for example my resultset is rs
and i want to put one of the resultset value in combo box
like

combo1.text=rs(0)

but what happens is when this statement is executing the execution shifting to
Private Sub combo1_Click() function

what is the problem?

[bushmobile]

Setting the .Text property doesn't add an item to the list, or select an item that's in the list.

Combo1.AddItem rs(0) & ""

[wizkid]

i don't want to add the value to the combo box.
i just want to show the value in combo box

[wizkid]

any suggestions please??

[mateo107]

to "show" and item in a combobox, it has to be a value of the combobox. In other words, you need to "add" it to your combo box...

That's the way they are designed.

[d3gerald]

combo1.Text = rs.Fields(0).Value

[bushmobile]

Sorry, i forgot about this thread.

As I previously said, setting the Text does not select a particular item, you need to set the ListIndex. The most efficient way to do this is to find the Index of a particular item by using API. Setting the ListIndex will fire the click event, but you can simply use a Flag to ignore it.:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                ByVal hWnd As Long, _
                ByVal wMsg As Long, _
                ByVal wParam As Long, _
                lParam As Any) As Long
 
Private Const CB_FINDSTRINGEXACT = &H158
 
Private Sub Command1_Click()
    Dim sText As String
    sText = rs(0) & ""
    With Combo1
        .Tag = "Ignore"
        .ListIndex = SendMessage(Combo1.hWnd, CB_FINDSTRINGEXACT, -1, ByVal sText)
         .Tag = vbNullString
    End With
End Sub
 
Private Sub Combo1_Click()
    If Combo1.Tag = "Ignore" Then Exit Sub
    Debug.Print "Click"
End Sub

[wizkid]

thanks bushmobile,
that's great.idea is good
it is working
thanks a lot

[bushmobile]

Cool

Don't forget to mark this thread resolved.