Postada em 01/04/2010 23:00 hs
olha, o código acima é exatamente pra isso....
mas erros de grafia são outros quinhentos, não tem como vc evitar... o que vc pode fazer é tentar localizar mediante a digitação... esse código de baixo é para localizar na medida que o usuário vai digitando
NO FORM
Option Explicit
Dim ApagaTexto as Boolean
Private Sub cboRota_Change()
AutoComplete cboRota, ApagaTexto
End Sub
Private Sub cboRota_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyBack Then ApagaTexto = True
End Sub
NO MODULO, vc coloca essa SUb
Public Sub AutoComplete(nCombo As ComboBox, ByRef nApagaTexto As Boolean)
Dim i As Integer
Dim QtdLetras As Byte
Dim Search As String
Dim Searchlen As String
Dim ExpAntiga As String
If nApagaTexto = True Then GoSub Final
Search$ = UCase$(nCombo.Text)
Searchlen = Len(Search$)
If Searchlen Then
For i = 0 To nCombo.ListCount - 1
If UCase$(Left$(nCombo.List(i), Searchlen)) = Search$ Then
ExpAntiga = nCombo.Text
DoEvents
QtdLetras = Len(nCombo.Text)
nCombo.Text = nCombo.List(i)
nCombo.SelStart = QtdLetras
nCombo.SelLength = Len(nCombo.Text) - QtdLetras
Exit For
End If
Next
End If
Final:
nApagaTexto = False
End Sub
|
