MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda com Like

    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Like Empty [Resolvido]Ajuda com Like

    Mensagem  Misson Lira em 20/4/2020, 13:43

    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 ?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7782
    Registrado : 05/11/2009

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Alexandre Neves em 20/4/2020, 16:25

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Misson Lira em 20/4/2020, 17:20

    boa tarde!

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

    Ha não ser que coloquei algo errado ?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  DamascenoJr. em 21/4/2020, 02:36

    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".


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Misson Lira em 26/4/2020, 01:52

    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 !
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7782
    Registrado : 05/11/2009

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Alexandre Neves em 26/4/2020, 10:12

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Misson Lira em 26/4/2020, 11:24

    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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7782
    Registrado : 05/11/2009

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Alexandre Neves em 26/4/2020, 12:26

    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]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Misson Lira em 6/5/2020, 20:06

    boa tarde !

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

    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!
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Like Empty Re: [Resolvido]Ajuda com Like

    Mensagem  Misson Lira em 6/5/2020, 20:07

    esqueci do resolvido!!!Very Happy Very Happy

      Data/hora atual: 2/12/2020, 15:55