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 código

    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 código Empty [Resolvido]Ajuda com código

    Mensagem  Misson Lira em 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 100%

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

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

    Mensagem  Alexandre Fim em 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



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    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 código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira em 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 100%

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

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

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

    Sim...isso mesmo.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    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 código Empty Re: [Resolvido]Ajuda com código

    Mensagem  Misson Lira em 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 100%

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

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

    Mensagem  Alexandre Neves em 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 100%

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

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

    Mensagem  Misson Lira em 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 100%

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

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

    Mensagem  Alexandre Neves em 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 100%

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

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

    Mensagem  Misson Lira em 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 100%

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

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

    Mensagem  Alexandre Neves em 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 100%

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

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

    Mensagem  Misson Lira em 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 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em 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 100%

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

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

    Mensagem  Misson Lira em 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 100%

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

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

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

    Obrigado pela ajuda, e desculpas pela demora.

      Data/hora atual: 25/11/2020, 03:04