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
Pergunta
Edson_csi
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
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.