Autocompletar e Filtrar BD no combobox

[Rodrigo Delalana]

Amigos, seguinte:

Já tenho a rotina que carrega o BD no combobox e autocompleta o combobox, porém minha rotina não filtra os dados que aparecem no combobox quando digito, tipo clico abre todos os itens do BD e na hora que começo a digitar ele não vai filtrando o BD.

segue abaixo os codigos que uso:

Autocompletar:

Option Explicit
Private Const CB_FINDSTRING As Long = &H14C
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
Public Function Combo_AutoCompletar(xCombo As ComboBox, ByVal xKeyAscii As Long, Optional ByVal xUpperCase As Boolean = True) As Long
    Dim lngFind As Long, intPos As Long, intLength As Long, tStr As String
    With xCombo
        If xKeyAscii = 8 Then
            If .SelStart = 0 Then Exit Function
            
            .SelStart = .SelStart - 1
            .SelLength = Len(.Text)
            .SelText = vbNullString
        Else
            intPos = .SelStart
            tStr = .Text
            .SelText = (Chr$(xKeyAscii))
'            .SelText = IIf(xUpperCase, _
'                           UCase$(Chr$(xKeyAscii)), _
'                           LCase$(Chr$(xKeyAscii)))
        End If
        lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)
        If lngFind = -1 Then
            .Text = tStr
            .SelStart = intPos
            .SelLength = (Len(.Text) - intPos)
            Combo_AutoCompletar = xKeyAscii
        Else
            intPos = .SelStart
            intLength = Len(.List(lngFind)) - Len(.Text)
            .SelText = .SelText & Right$(.List(lngFind), intLength)
            .SelStart = intPos
            .SelLength = intLength
        End If
    End With
End Function

<<<<<>>>>>>

Private Sub cmbcor_KeyPress(KeyAscii As Integer)
KeyAscii = Combo_AutoCompletar(cmbcor, KeyAscii)
End Sub

<<<<>>>>>> CARREGA O BANCO DE DADOS NO COMBOBOX:

Private Sub Form_Load()

    Set DB2 = OpenDatabase(App.Path & "\banco_produtos.mdb")
     Set CARGO = DB2.OpenRecordset("SELECT * FROM tabcor where cor")
'Enquanto não for o fim de arquivo adiciona o campo funcao ao combobox
     While Not CARGO.EOF
         cmbcor.AddItem CARGO!cor
        CARGO.MoveNext
    Wend
End Sub

<<<<<<>>>>>>>>

ESPERO QUE POSSAM ME AJUDAR...

VLW

Editado Julho 6, 2009 por kuroi
Adicionar tag CODE

[kuroi]

rodrigo, esse codigo q você ta usando não serve pra filtrar, o q ele faz é simplesmente autocompletar o texto enquanto você digita.

exemplo, se tem um item chamado kuroi, você digita o k e ele já mostra o resto da palavra, não é nem pra clicar no combo.

se nem isso estiver funcionando, acho q faltou setar a propriedade KeyPreview do form = True.