[Resolvido]Ajuda com código

boa note!

alguém poderia me ajuda com esse código

Me.[Frm_Mov_Vendas_Dados_SubFom].Form.RecordSource =
"SELECT tbl.QTDVenda, tbl.DescontoMoeda, tbl.ValorUnitario,[CodBarra] & " - " & [Descricao] AS Descrição, [Venda]*[QTDVenda] AS Total, tbl.ValorUnitario AS Venda, [Total]-[DescontoMoeda] AS SubTotal, tbl.IDVendaDetalhe
from Tbl_Mov_Vendas_Dados_SubForm AS tbl INNER JOIN Csl_Cds_Produto AS cls ON tbl.IDProdutoDetalhe = cls.IDProduto
WHERE ((([CodBarra] & " - " & [Descricao]) Like " * " & [Formulários]![Frm_Mov_Vendas_Dados]![txtPesquisaProdutoSubForms].[Text] & " * ") AND ((tbl.IDVendaDetalhe)=[Formulários]![Frm_Mov_Vendas_Dados]![txtIDVenda]));"


ta dando erro de " tipo incompatível "

eu quebrei o código aqui para fica melhor, mais no vba ele ta tudo em uma linha só.

Olá Misson,

Provavelmente, este erro é por causa da ausência do APÓSTOFO (') na instrução onde se encontra o LIKE.

substitua a parte da sua instrução por esta:

WHERE ((([CodBarra] & " - " & [Descricao]) Like "'" * "'" & [Formulários]![Frm_Mov_Vendas_Dados]![txtPesquisaProdutoSubForms].[Text] & "'" * "'") AND ((tbl.IDVendaDetalhe)=[Formulários]![Frm_Mov_Vendas_Dados]![txtIDVenda]));"


Espero ter ajudado.

Boa sorte

Bom dia !

Fiz aqui as alterações mais ainda continua dando erro: Tipos incompensáveis. As APÓSTOFO (') coloca no meio aspas duplas, assim? " ' " * " ' "

Sim...isso mesmo.

Fiz assim! Mais deu erro. To achando que é a condição depois do where. E quando fiz do jeito que falou depôs da primeira ‘ ele comentou to o resto do código.

Boa noite
Será?
Me.[Frm_Mov_Vendas_Dados_SubFom].Form.RecordSource =
"SELECT tbl.QTDVenda, tbl.DescontoMoeda, tbl.ValorUnitario,[CodBarra] & ' - ' & [Descricao] AS Descrição, [Venda]*[QTDVenda] AS Total, tbl.ValorUnitario AS Venda, [Total]-[DescontoMoeda] AS SubTotal, tbl.IDVendaDetalhe
from Tbl_Mov_Vendas_Dados_SubForm AS tbl INNER JOIN Csl_Cds_Produto AS cls ON tbl.IDProdutoDetalhe = cls.IDProduto
WHERE [CodBarra] & ' - ' & [Descricao]) Like '* " & [Formulários]![Frm_Mov_Vendas_Dados]![txtPesquisaProdutoSubForms].[Text] & " *' AND tbl.IDVendaDetalhe=" & [Formulários]![Frm_Mov_Vendas_Dados]![txtIDVenda]

Deu um erro novo, nome do meu banco de dados não pode localizar o campo referido na sua expressão, depois de testa a sua seu código Alexandre Neves.

Fiz alguns teste, ele funcina perfeitamente sem a parte do like (([CodBarra] & " - " & [Descricao]) Like "'" * "'" & [Formulários]![Frm_Mov_Vendas_Dados]![txtPesquisaProdutoSubForms].[Text] & "'" * "'"), pela sabedorias dos senhores, não seria algo relacionado a essa condição ([CodBarra] & " - " & [Descricao])?

Boa tarde
Avalie a evolução da expressão para verificar se números aparecem com apóstrofos, datas sem cardinal, ou texto sem apóstrofo. Será alguma das situações

boa tarde !
Desculpa a minha ignorância mais não conseguir compreender o que você quis disser.

As variáveis do código vão assumindo valores ao longo da execução do programa.
Veja qual valor assume e avalie a sintaxe desses valores dentro do código de construção a partir dessas variáveis

bom dia ! fique ate 3 da manha quebrando cabeça mais não conseguir resolver o problema. Coloquei o bd aqui e se puder da uma olhada agradeço, no frm1 explico como estou querendo chegar.

Boa noite,
Falta vírgula entre 2 campos: [Descricao] AS Descrição [ValorVendaUnit] deve ficar [Descricao] AS Descrição, [ValorVendaUnit]
O campo ValorVendaUnit não existe

Já devia começar a construir as expressões, passo-a-passo, para verificar erros. Só assim, começa a aprender e a ganhar independência

Boa Tarde!

Sim! Construir a expressão passo a passo, Por isso que falei que o problema estaria no final código, porque ele só da problema quando coloca a parte do like, sem essa parte o código funcionar 100%

Obrigado pela ajuda, e desculpas pela demora.