LISTBOX BANCO DE DADOS
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.
Eu to usando DAO.
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..
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.
Eu to usando DAO.
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..
assim que entrar com o codigo - ao inves de procurar no listbox, faca diferente...
faz um list1.clear e carrega dados do cliente a partir do banco de novo...
algo como
Set tbl = Banco.OpenRecordset("Select * from Clientes Where Codigo=123;")
if not tbl.eof then
list1.additem tbl("Nome").value
endif
set tbl=nothing
faz um list1.clear e carrega dados do cliente a partir do banco de novo...
algo como
Set tbl = Banco.OpenRecordset("Select * from Clientes Where Codigo=123;")
if not tbl.eof then
list1.additem tbl("Nome").value
endif
set tbl=nothing
Tópico encerrado , respostas não são mais permitidas