Boa tarde Amigos
Queria filtrar uma caixa de listagem como mostra a imagem.
O código que uso segue abaixo
Private Sub txtpesq_Change()
strSql = "SELECT qrydados.ln, qrydados.dataft, qrydados.cliente, qrydados.tipomov, qrydados.doc, JALINHAQRY([falta],12,'Standard',3) AS Custo, JALINHAQRY([numerario],12,'Standard',3) AS Venda, JALINHAQRY([cheque],12,'Standard',3) AS Xeque,JALINHAQRY([chequepre],12,'Standard',3) AS xequepre, JALINHAQRY([pos],12,'Standard',3) AS POSV, qrydados.banco FROM qrydados WHERE " & _
"strConv(cliente, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(tipomov, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(doc, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(Banco, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*' ORDER BY qrydados.cliente, qrydados.dataft, qrydados.ln, qrydados.tipomov ;"
Me!Lista1.RowSource = strSql
Call Form_Current
End Sub
Obrigado
Queria filtrar uma caixa de listagem como mostra a imagem.
O código que uso segue abaixo
Private Sub txtpesq_Change()
strSql = "SELECT qrydados.ln, qrydados.dataft, qrydados.cliente, qrydados.tipomov, qrydados.doc, JALINHAQRY([falta],12,'Standard',3) AS Custo, JALINHAQRY([numerario],12,'Standard',3) AS Venda, JALINHAQRY([cheque],12,'Standard',3) AS Xeque,JALINHAQRY([chequepre],12,'Standard',3) AS xequepre, JALINHAQRY([pos],12,'Standard',3) AS POSV, qrydados.banco FROM qrydados WHERE " & _
"strConv(cliente, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(tipomov, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(doc, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
"OR strConv(Banco, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*' ORDER BY qrydados.cliente, qrydados.dataft, qrydados.ln, qrydados.tipomov ;"
Me!Lista1.RowSource = strSql
Call Form_Current
End Sub
Obrigado