CONSULTA COM LISTVIEW

ERLANMG 23/05/2007 18:00:29
#217994
Caros amigos,

Estou usando para consulta o seguinte codigo:

Private Sub Text1_Change()
   search = UCase(Text1.Text)
   Searchlen = Len(search)
   If Searchlen Then
     For I = 0 To A1.ListCount - 1
       If UCase(Left(A1.List(I), Searchlen)) = search Then
         A1.ListIndex = I
         Exit For
       End If
     Next
   End If
End Sub


Vou digitando no text e no combobox vai selecionando conforme vou digitando. Depois de selecionado posso dar enter ou clicar com o mouse em cima do registro.

Mas o combobox só exibi por exemplo. Ou só o nome ou só cpj, gostaria de fazer isso com o listview se possivel

Se alguém souber como fazer, ficarei muito grato.


Obrigado
ICEMAN 11/09/2007 22:23:12
#235136
vc pode irm mandando filtrar ao invez de ir localizando

Private Sub Text1_Change()
dim cod as string
cod = text1
seu_recordset.close
seu recordset.open "Select * from tabela where nome like'" & cod &"%'",,......
enche_lista 'sub q carrega os dados pro list_view
End Sub

[c]Private Sub Text2_Change()
dim cod as string
cod = text1
seu_recordset.close
seu recordset.open "Select * from tabela where cnpj like'" & cod &"%'",,......
enche_lista 'sub q carrega os dados pro list_view
End Sub


se nao souber usar listview aqui vai
Listview e access
é so vc adaptar
[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar