marcelo marques Seg 02 Nov 2020, 12:04
boa tarde Zcarlos eu fiz o teste com sua dica nao consegui adaptar com varios campos
consegui somento com um campo ,porém eu precisava de varios campos na caixa de listagem
SELECT DISTINCT Tbl_Vendas.CodVenda, Tbl_CadCli.CodCli, [NomeCliente] & "-" & [descricao] AS Comprador, Tbl_ContasAreceber.Dt_Vencimento, Tbl_ContasAreceber.Valor_Parcela, IIf([Quitar]=True,"PAGO","A PAGAR") AS Situação, Sum(Tbl_ContasAreceber.valor_parcela) AS total
FROM ((Tbl_CadCli INNER JOIN Tbl_Vendas ON Tbl_CadCli.CodCli = Tbl_Vendas.Cliente) INNER JOIN Tbl_ContasAreceber ON Tbl_Vendas.CodVenda = Tbl_ContasAreceber.Cod_TabVenda) INNER JOIN (Tbl_CadProd INNER JOIN Tbl_VendasDet ON Tbl_CadProd.Código = Tbl_VendasDet.Produto) ON Tbl_Vendas.CodVenda = Tbl_VendasDet.CodigoVendas
GROUP BY Tbl_Vendas.CodVenda, Tbl_CadCli.CodCli, [NomeCliente] & "-" & [descricao], Tbl_ContasAreceber.Dt_Vencimento, Tbl_ContasAreceber.Valor_Parcela, IIf([Quitar]=True,"PAGO","A PAGAR"), Tbl_ContasAreceber.Valor_Pago
HAVING ((([NomeCliente] & "-" & [descricao]) Like "*" & Formulários!Frm_Pesquisa_cliente_venda!txt_Produto & "*") And ((IIf([Quitar]=True,"PAGO","A PAGAR")) Like Formulários!Frm_Pesquisa_cliente_venda!TXTsituacao & "*"))
ORDER BY [NomeCliente] & "-" & [descricao];
fiz desta forma acima