[RESOLVED] combo box problem

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?

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

VB Code:

Combo1.AddItem rs(0) & ""

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

any suggestions please??

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.

VB Code:

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

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.:

VB Code:

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

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

Cool :thumb:

Don't forget to mark this thread resolved.