MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Ajuda com código

    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty [Resolvido]Ajuda com código

    Mensagem  Misson Lira 23/11/2019, 00:59

    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ó.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Alexandre Fim 25/11/2019, 13:15

    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



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Ajuda com código Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 26/11/2019, 13:12

    Bom dia !

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



    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Alexandre Fim 26/11/2019, 19:12

    Sim...isso mesmo.


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Ajuda com código Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 26/11/2019, 20:58

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Alexandre Neves 26/11/2019, 22:17

    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]


    .................................................................................
    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 : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 27/11/2019, 02:19

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Alexandre Neves 27/11/2019, 17:34

    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


    .................................................................................
    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 : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 27/11/2019, 17:55

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Alexandre Neves 27/11/2019, 21:50

    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


    .................................................................................
    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 : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 28/11/2019, 12:33

    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.
    Anexos
    [Resolvido]Ajuda com código Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 6 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Alexandre Neves 29/11/2019, 21:56

    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


    .................................................................................
    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 : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 30/11/2019, 19:00

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira 12/10/2020, 14:50

    Obrigado pela ajuda, e desculpas pela demora.

    Conteúdo patrocinado


    [Resolvido]Ajuda com código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:44