Postada em 10/03/2008 12:09 hs
Olá!
Tenho um form com uma combox ligada a um bando de dados no access.
Quando digito a 1ª letra de um nome na combox, ela exibe um nome com aquela letra, mas se eu digitar a 2ª letra no nome ela apaga a 1º letra e procura o nome com a 2ª que eu digitei.
Código:
Private Sub cboNome_Change()
Search$ = UCase$(cboNome.Text)
Searchlen = Len(Search$)
If Searchlen Then
For I = 0 To cboNome.ListCount - 1
If UCase$(Left$(cboNome.List(I), Searchlen)) = Search$ Then
cboNome.ListIndex = I
Exit For
End If
Next
End If
End Sub[/color]
|
