[Resolvido]Ajuda com Like

Bom dia !

Ja tem alguns dias que venho quebrando cabeça e não consigo resolver tal problema.

Esse código ta dando erro, " O Adimin não pode localizar o campo referido na sua expressão "

O código sem a parte do like funcionar perfeitamente.
AND (([CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao]) Like ' * " & [Formulários]![Frm_Reg_Compra_Dados]![txtPesquisaProdutoSubForms].[Text] & " * ' ))

Quando coloca essa parte do like no código ele da esse erro, os nomes dos campos do frm esta certo.





strListar = " SELECT TblCompra.IDCompraProduto, TblCompra.IDCompraDadosDetalhe, TblCompra.IDProdutoDetalhe, " _
& " [CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao] AS Descricao, " _
& " TblCompra.QTDEntrada, TblCompra.DataEntradaProduto, TblCompra.ValorProdutoCompra, TblCompra.DescontoMoe, [ValorProdutoCompra]*[QTDEntrada] AS Total, " _
& " [Total]-[DescontoMoe] AS SubTotal " _
& " FROM (TBL_CDS_Produto_Marca INNER JOIN (TBL_CDS_Produto_Categoria INNER JOIN TBL_CDS_Produto ON TBL_CDS_Produto_Categoria.IDCategoria = TBL_CDS_Produto.IDCategoriaDetalhe) " _
& " ON TBL_CDS_Produto_Marca.IDMarca = TBL_CDS_Produto.IDMarcaDetalhe) INNER JOIN TBL_Reg_Compra_Produtos AS TblCompra " _
& " ON TBL_CDS_Produto.IDProduto = TblCompra.IDProdutoDetalhe " _
& " WHERE (((TblCompra.IDCompraDadosDetalhe) =[Formulários]![Frm_Reg_Compra_Dados]![txtIDCompra]) AND (([CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao]) Like ' * " & [Formulários]![Frm_Reg_Compra_Dados]![txtPesquisaProdutoSubForms].[Text] & " * ' )) " _
& " ORDER BY TblCompra.IDCompraDadosDetalhe;"

Me.RecordSource = strListar


alguém poderia me ajuda ?

Boa tarde
Precisa utilizar 2 partes no Like: A Like B. Falta a primeira parte do Like

boa tarde!

seria essa AND (([CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao]) Like

Ha não ser que coloquei algo errado ?

O VBE é gringo!

Essa primeira parte está envolvida por aspas e não é vista pelo VBE
"... [Formulários]![Frm_Reg_Compra_Dados]![txtIDCompra] ..."

Já esta segunda parte não está protegida...
[Formulários]![Frm_Reg_Compra_Dados]![txtPesquisaProdutoSubForms].[Text]

E o VBE não faz a menor ideia do que significa "Formulários". Substitua por "Forms".

Boa note!
vim tentando corrigir o erro mais não conseguir, toda forma que faço da o mesmo erro.. já fiz todo o código um 1 milhao de vez, não conseguir evoluir.


já não tenho ideia como fazer isso !

Bom dia
Coloque o código que funciona e indique as alterações que pretende, para ver se conseguimos adaptar

Bom dia !

seria esse

strListar = " SELECT TblCompra.IDCompraProduto, TblCompra.IDCompraDadosDetalhe, TblCompra.IDProdutoDetalhe, " _
& " [CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao] AS Descricao, " _
& " TblCompra.QTDEntrada, TblCompra.DataEntradaProduto, TblCompra.ValorProdutoCompra, TblCompra.DescontoMoe, [ValorProdutoCompra]*[QTDEntrada] AS Total, " _
& " [Total]-[DescontoMoe] AS SubTotal " _
& " FROM (TBL_CDS_Produto_Marca INNER JOIN (TBL_CDS_Produto_Categoria INNER JOIN TBL_CDS_Produto ON TBL_CDS_Produto_Categoria.IDCategoria = TBL_CDS_Produto.IDCategoriaDetalhe) " _
& " ON TBL_CDS_Produto_Marca.IDMarca = TBL_CDS_Produto.IDMarcaDetalhe) INNER JOIN TBL_Reg_Compra_Produtos AS TblCompra " _
& " ON TBL_CDS_Produto.IDProduto = TblCompra.IDProdutoDetalhe " _
& " WHERE (((TblCompra.IDCompraDadosDetalhe) =[Formulários]![Frm_Reg_Compra_Dados]![txtIDCompra]) AND (([CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao]) Like ' * " & [Formulários]![Frm_Reg_Compra_Dados]![txtPesquisaProdutoSubForms].[Text] & " * ' )) " _
& " ORDER BY TblCompra.IDCompraDadosDetalhe;"

Me.RecordSource = strListar

tenho um formulário que tem um sub formulário e um caixa de texto, a ideia seria coloca o código de cima na caixa de texto no evento apos alterar para quando for digitando e o sql fazendo o filtro de acordo. Lembrando que subforms ele é desagrupado, é feito um código para quando carregar ele busca os dados e coloca no RecordSource do subforms. Já fiz teste o código de cima ele não funcionar somente quando ele coloca o like.

Tente assim
strListar = "SELECT TblCompra.IDCompraProduto, TblCompra.IDCompraDadosDetalhe, TblCompra.IDProdutoDetalhe, [CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao] AS Descricao, TblCompra.QTDEntrada, TblCompra.DataEntradaProduto, TblCompra.ValorProdutoCompra, TblCompra.DescontoMoe, [ValorProdutoCompra]*[QTDEntrada] AS Total, [Total]-[DescontoMoe] AS SubTotal FROM (TBL_CDS_Produto_Marca INNER JOIN (TBL_CDS_Produto_Categoria INNER JOIN TBL_CDS_Produto ON TBL_CDS_Produto_Categoria.IDCategoria = TBL_CDS_Produto.IDCategoriaDetalhe) ON TBL_CDS_Produto_Marca.IDMarca = TBL_CDS_Produto.IDMarcaDetalhe) INNER JOIN TBL_Reg_Compra_Produtos AS TblCompra ON TBL_CDS_Produto.IDProduto = TblCompra.IDProdutoDetalhe WHERE TblCompra.IDCompraDadosDetalhe =" & [Formulários]![Frm_Reg_Compra_Dados]![txtIDCompra] & " AND [CodBarra] & ' - ' & [Categoria] & ' - ' & [Marca] & ' REF.' & [Referencia] & ' TAM ' & [Tamanho] & ' ' & [DetalheDescricao]) Like ' * " & [Formulários]![Frm_Reg_Compra_Dados]![txtPesquisaProdutoSubForms].[Text] & " * ' ORDER BY TblCompra.IDCompraDadosDetalhe;"

Se não der certo, veja qual valor passa por [Formulários]![Frm_Reg_Compra_Dados]![txtIDCompra] e qual passa por [Formulários]![Frm_Reg_Compra_Dados]![txtPesquisaProdutoSubForms].[Text]

boa tarde !

depois de dias lutando e apanhando feio, conseguir vencer a luta

O erro esta em 2 ponto

Ponto 1
estava colocando   '  *  "  " * ' com espaço;

correto  '*"  "*'

Ponto 2

Me.RecordSource = strListar, assim to me referindo ao meu form principal

mais deveria ser;
Me.Frm_Reg_Compra_Produtos.Form.Form.RecordSource = strListar

agora só felicidades !!!

Obrigado companheiros de guerra, pela ajuda, sem as dicas dos senhores ainda estaria aqui apanhando!

esqueci do resolvido!!!