COMBOBOX

USUARIO.EXCLUIDOS 14/06/2004 11:38:20
#29522
Pessoal no meu codigo eu consigo preencher o meu combo somente com os nomes que me interessam o que eu não estou conseguindo fazer é com que este nomes fiquem disponiveis em uma lista visivel automaticamente.

Ex. digito mar

e a lista me mostrar

maria
marcos
marcia

isso seria possivel? se for como faço? devo modificar alguma propriedade do meu combo?

Private Sub TxtPaisNome_Change()
Dim Cont As Integer
Dim Receb As String
vTbNome.MoveFirst
CboNome.Clear
vNome = TxtNome.Text
Cont = Len(vNome)
While vTbNome.EOF = False
Receb = Left(vTbNome.Fields("nome"), Cont)
If Receb = TxtNome.Text Then
CboNome.AddItem (CStr(vTbNome.Fields("nome")))
End If
vTbNome.MoveNext
Wend
End Sub

Grato pela atenção.

Que Deus ilumine a todos.
CAJU 16/06/2004 08:20:07
#29845 Resposta escolhida 

Private Sub TxtPaisNome_Change()
    Dim Receb As String
    vtbnome.MoveFirst
    CboNome.Clear
    vNome = TxtNome.Text
    Cont = Len(vNome)
    vtbnome.find "nome='" & txtpaisnome.Text & "*'"
    
    While vtbnome.EOF = False
            CboNome.AddItem vtbnome.Fields("nome")
        vtbnome.MoveNext
    Wend
End Sub

'não testei, acho que dá certo.
CAJU 16/06/2004 08:22:59
#29846
ou melhor

Private Sub TxtPaisNome_Change()
Dim Receb As String
vtbnome.MoveFirst
CboNome.Clear
vNome = TxtNome.Text

set vTBnome = gDb.openrecordset("select * from TABELA where nome like "'" & txtpaisnome.text & "*'")

While vtbnome.EOF = False
CboNome.AddItem vtbnome.Fields("nome")
vtbnome.MoveNext
Wend
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar