Autocompletar

[yurloks 0]

Qual o codigo que uso para autocompletar uma linha digitada.por exemoplo, digito um Y e ja aparece o primeiro nome do meu banco de dados com Y e nas seguintes letras a mesma coisa, conforme for digitando vai completando.Estou precisando disso urgente.Abraços.

[_RUELA_ 0]

Isso é para uma ComboBox:

 

crie essa função:

 

Sub CompletaCombo(Cb As ComboBox, KeyAscii As Integer)

Dim ComTexto As String

Dim Texto As String

If KeyAscii = 34 Or KeyAscii = 13 Or KeyAscii = 39 Or KeyAscii = 96 Or KeyAscii = 126 Then

KeyAscii = 0

Exit Sub

End If

ComTexto = Left(Cb.Text, Cb.SelStart) & Chr(KeyAscii)

For c = 0 To Cb.ListCount

If Format(Left(Cb.List©, Str(Len(ComTexto))), ">") = Format(ComTexto, ">") Then

Cb.Text = Cb.List©

Cb.SelStart = Len(ComTexto)

Cb.SelLength = Len(Cb.Text)

Exit For

End If

Next c

KeyAscii = 0

End Sub

 

 

daí você chama ela assim no evento keypress do combo:

 

CompletaCombo nome_combo, KeyAscii

 

 

espero que te ajude!! http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

[_RUELA_ 0]

ah... saiu errado:

 

obs:

 

Cb.List© na verdade é Cb.List( c )

 

beleza? http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif