CodeItBetter Programming Another VB Programming Blog

'Controls - AutoComplete Combo box
Public Function AutoCompleteCombo(Combo1 As ComboBox, KeyAscii As Integer)
'Code to Auto complete combo box
'Call this function as:
'Call AutoCompleteCombo(ComboBoxName,Keyascii)
    Dim lCnt As Long
    Dim lMax As Long
    Dim sComboItem As String
    Dim sComboText As String
    Dim sText As String
    Dim miSelStart As Integer
    miSelStart = Combo1.SelStart
    If KeyAscii = 13 Or KeyAscii = 27 Then Exit Function
    With Combo1
        lMax = .ListCount - 1
        sComboText = .Text
        If KeyAscii = 8 Then
            If Len(Combo1.Text) = 1 Or Len(Combo1.Text) = 0 Then
                Combo1.Text = ""
                miSelStart = 0
                Exit Function
            ElseIf Len(Combo1.Text) - (Len(Combo1.Text) - miSelStart) = 1 Then
                Combo1.Text = ""
                miSelStart = 0
                Exit Function
            End If
            Combo1.Text = Left(sComboText, miSelStart - 1)
            sText = Left(sComboText, miSelStart - 1)
        Else
            sText = Left(sComboText, miSelStart) &  chr ( KeyAscii)
        End If
        KeyAscii = 0
        For lCnt = 0 To lMax
            sComboItem = .List(lCnt)
            If UCase(sText) = UCase(Left(sComboItem, Len(sText))) Then
                .Text = sComboItem
                .SelStart = Len(sText)
                .SelLength = Len(sComboItem) - (Len(sText))
                Exit For
            Else
                .Text = sText
                .SelStart = Len(.Text)
            End If
        Next
    End With
End Function