FAZER CONSULTA NO LISTVIEW
Por favor tenho um form de clientes e quando dou um F2 no cod. cliente abre um list view e neste listview gostaria de trazer todos os clientes cadastrados e tbm quando der um enter no cliente selecionado carregar todos os dados deste cliente no form de clientes se alguem poder me ajudar agradeço desde já:
obs: estou trabalhando com o DAO e access
obs: estou trabalhando com o DAO e access
Caro Emerson,
Basicamente, o que você deve fazer é carregar os clientes no listview e no evento ItemClick dele, recuperar o código do Cliente selecionado.
No Form em que os dados do cliente serão exibidos, você pode criar uma rotina que exibe o cliente passando o código por argumento, mais ou menos assim:
Então, no ItemClick do ListView você faz mais ou menos assim:
Basicamente, o que você deve fazer é carregar os clientes no listview e no evento ItemClick dele, recuperar o código do Cliente selecionado.
No Form em que os dados do cliente serão exibidos, você pode criar uma rotina que exibe o cliente passando o código por argumento, mais ou menos assim:
Sub CarregarCliente (Numero as Integer)
SQL = "Select * From Clientes Where Codigo = " & Numero
Set rs = db.OpenRecordset SQL
'PREENCHE OS CONTROLES COM OS DADOS
Set rs = nothing
End SubEntão, no ItemClick do ListView você faz mais ou menos assim:
Selecionado = CInt(Item.Text)
frmClients.CarregarCliente Selecionado
Dim I As Integer
Dim TBProdutos As ADODB.Recordset
Set TBProdutos = New ADODB.Recordset
TBProdutos.Open "select codigo, titulo, valor_locacao, locado, genero, nacionalidade from " & TipoProduto & " where titulo like '%" & Criterio & "%' order by titulo", Base, adOpenKeyset, adLockReadOnly
If TBProdutos.RecordCount <> 0 Then
Screen.MousePointer = 13
For I = 1 To TBProdutos.RecordCount
LstProdutos.ListItems.Add I, , TBProdutos(1).Value
LstProdutos.ListItems(I).SubItems(1) = Format(TBProdutos(0).Value, "######-##")
LstProdutos.ListItems(I).SubItems(2) = IIf(TBProdutos(3).Value = True, "Locado", "Livre")
LstProdutos.ListItems(I).SubItems(3) = Format(TBProdutos(2), "standard")
LstProdutos.ListItems(I).SubItems(4) = TBProdutos(5)
TBProdutos.MoveNext
Next I
Screen.MousePointer = 0
End If
TBProdutos.Close
Set TBProdutos = Nothing
Dim TBProdutos As ADODB.Recordset
Set TBProdutos = New ADODB.Recordset
TBProdutos.Open "select codigo, titulo, valor_locacao, locado, genero, nacionalidade from " & TipoProduto & " where titulo like '%" & Criterio & "%' order by titulo", Base, adOpenKeyset, adLockReadOnly
If TBProdutos.RecordCount <> 0 Then
Screen.MousePointer = 13
For I = 1 To TBProdutos.RecordCount
LstProdutos.ListItems.Add I, , TBProdutos(1).Value
LstProdutos.ListItems(I).SubItems(1) = Format(TBProdutos(0).Value, "######-##")
LstProdutos.ListItems(I).SubItems(2) = IIf(TBProdutos(3).Value = True, "Locado", "Livre")
LstProdutos.ListItems(I).SubItems(3) = Format(TBProdutos(2), "standard")
LstProdutos.ListItems(I).SubItems(4) = TBProdutos(5)
TBProdutos.MoveNext
Next I
Screen.MousePointer = 0
End If
TBProdutos.Close
Set TBProdutos = Nothing
blz é isto mesmo que preciso valeu.
Tópico encerrado , respostas não são mais permitidas