Veja galera meu codigo

Dim RCS As Recordset
 Dim search$
 Dim seachlen
 Set RCS = Banco.OpenRecordset("SELECT * FROM Cadastropizza WHERE Codigo = '" & UCase$(txtnome.Text) & "'", dbOpenSnapshot)
  If Not RCS.EOF Then
  search$ = UCase$(RCS("Nome"))
  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
  End If
  RCS.Close

Funciona assim: Digito o Codigo do Cliente e ele acha o nome do cliente no listbox no meio de um monte de cliente ja carregado do BD... Funciona perfeito.

 Eu queria que ele além de achar o nome... que ele removesse os outros nomes que estao carregados.

Ex: Ta carregado joao e pedro... digito o codigo 1... Fica o joao e sai o pedro. Igual o codigo abaixo... ta certo que esse nao ta ligado no banco de dados mas é isso que eu queria

 

Private Sub Form_Load()
    ListarTudo
End Sub

Private Sub Text1_Change()
    Dim A As Integer
    Dim Achou As Boolean
    Achou = False
    ListarTudo
    If Trim$(Text1) = "" Then List1.ListIndex = -1: ListarTudo: Exit Sub
    For A = List1.ListCount - 1 To 0 Step -1
     If LCase$(Left(List1.List(A), Len(Text1))) = LCase$(Trim$(Text1)) Then
            List1.ListIndex = A
            Achou = True
        Else
            List1.RemoveItem A
        End If
    Next
     If Achou = False Then
        List1.ListIndex = -1
        ListarTudo
    End If
End Sub
Sub ListarTudo()
    List1.Clear
    With List1
        .AddItem "Bruno"
        .AddItem "Breno"
    End With
End Sub

 

So que nao consegui adaptar esse codigo no meu... eu realmente nao consigo

Ajude Please... to ficando loco com esse codigo...hehe

Abraços

Lincoln

Para de complicar, depois de clicar no nome limpa o list com list.clear e dá um additem com o nome do cliente que está no text.

Exemplo:

list1.clear

list1.additem TxtNome

 

Espero ter ajudado

 

 

Bye

Mas é que pode ter codigos iguais ta ai a necessidade... se a mae e o filho vao ter codigos iguais... vao ficar so os dois no listbox.. dai tanto faz clicar em qualquer um dos 2... esse codigo na verdade e o telefone do cliente... agora vc pergunta pq cadastrar 2 vezes pessoas que moram na mesma casa... é pq o cliente vai receber no dia de seu aniversario uma pizza na faixa.. e todos os cadastrados vao ter essa oportunidade... tanto a mae quanto o filho... mas dai vc fala.. e é assim que o cara que quer o programa deseja... foi a primeira ideia dele... brilhava o olho dele quando ele falou desse  localizar... ele pagou a metade adiantado so pq eu disse que poderia fazer esse localizar... compreende?

Você duplicando códigos estará fugindo das regras e irá complicar ainda mais seu programa. Você poderá cadastrar o responsável pela residência e criar um outra tabela com os dependentes desse responsável tendo assim somente um código para cada cliente e por esse código poderá estar buscando os responsáveis com suas respectivas datas de nascimento.

 

Chave primária e Chave secundária

 

Entendeu

 

Falou.

Ah!, agora que vc explicou melhor fica mais fácil. Vou fazer um exemplo aqui e te mando.

Se vc puder me manda seu projeto, ou diga o nome dos campos desta tabela.

Tudo bem João Carlos... Mas quando eu for localizar os dependentes por data de nascimento vai dar na mesma que agora, fora que o cara quer assim...ele quer cadastrar todo mundo da casa como clientes diferentes... eu acho que ele ta certo... as vezes vc pede uma pizza e como com sua namorada... as vezes seu irmao pede uma pizza e come com a nomorada dele... sao dois clientes diferentes que moram na mesma casa, Compreende, se vc puder ajudar.... To aguardando vc Waldir os campos sao... Codigo, NomeCli, Endereco, Bairro, Numero, Telefone, UltimoPedido.

So que os dados ja carregam com uma declaraçao publica que eu fiz que se chama  AFTRM... acho que essa informacao pode ajudar.

To ancioso no aguardo.

Abraços

Vinicius