Aí galera...

Como que eu faço pra quando digitar o CÓDIGO do cliente em um textbox... eu gostaria que no meu listbox que ja esta carregado o NOME de todos eles... listasse apenas o NOME do cliente correspondente ao CÓDIGO, ou seja, digito o CÓDIGO do cliente no Text e lista apenas o NOME do cliente no List.

Percebam que no cpdigo baixo eu so condegui fazer digitar o nome e localizar localizar o nome ja listado no listbox.

 

Esse é o codigo do text

Dim search$
Dim seachlen
search$ = UCase$(txtcodigo.Text)
Searchlen = Len(search$)
If Searchlen Then
    For i = 0 To List1.ListCount - 1
     If UCase$(Left(List1.List(i), Searchlen)) = search$ Then
        List1.ListIndex = i
        Exit For
     End If
    Next
End If

 

e esse é o codigo do list:

Dim i As Long

txtcodigo = List1
t3 = List1.ListIndex
TBL.MoveMin

    Do While i < CLng(t3)
       TBL.MoveNext
       i = i + 1
    Loop
    ATFMR
    txtcodigo.SetFocus

 

 

esse é o codigo que vai no form load

Set Banco = OpenDatabase(App.Path & "cadastropizza.mdb")
Set TBL = Banco.OpenRecordset("clientes", dbOpenTable)
TBL.Index = "indnome"
Do Until TBL.EOF
    List1.AddItem TBL("Nome")
    TBL.MoveNext
    Loop

 

 

Se alguem puder ajudar to precisando muito..

 

Abraços

Vinicius

Ninguem sabe como fazer isso? ou o que eu qeuro nao existe?

Waldir desculpe o abuso, mas agora é assim: O meu listbox carrega os nomes quando é carregado o form, ou seja, esse codigo que vc me passou deu perfeito, mas eu queria colocar um list1.removeitem i, pra remover os dados do list que nao tem haver com minha busca... pq eu localizo o numero 50 e so queria que ficasse listado o numero 50. Eu coloco o removeitem mas da o erro 5... diz que é invalido esse procedimento e se coloco em outro lugar ele nao remove direito, Compreende? Mas valeu mesmo esse teu codigo ja me salvou um monte... nunca teria conseguido, valeu mesmo.....

Se puder ajudar nessa será perfeito.

Obrigado

 

Abraços

Vinicius