MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]consulta atualização

    Compartilhe

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 16/02/2013

    [Resolvido]consulta atualização

    Mensagem  gutobrotas em 21/2/2018, 12:49

    Pessoal bom dia
    Estou tentando fazer uma atualização de estoque
    Tenho um form com sub bem simples: codigo de barras / titulo / quantidade de entrada.
    No evento ao sair da quantidade de entrada esta:
    DoCmd.RunSQL ("UPDATE tblenvio set Quantidade=(Quantidade+(Formulários![FrmEnt]![Frmenviosub]![Quanten])) Where tblenvio.codbarra=(Formulários![FrmEnt]![Frmenviosub]![Codbarent]);")
    Mas simplesmente ele nao atualiza...
    Alguem pode dar uma luz
    Grato
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]consulta atualização

    Mensagem  Cláudio Más em 21/2/2018, 13:00

    Bom dia

    Tente isso:

    DoCmd.RunSQL ("UPDATE tblenvio set Quantidade=(Quantidade+" & Forms![FrmEnt]![Frmenviosub].Form![Quanten] & ") Where tblenvio.codbarra='" & Forms![FrmEnt]![Frmenviosub].Form![Codbarent] & "';")

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 16/02/2013

    Re: [Resolvido]consulta atualização

    Mensagem  gutobrotas em 21/2/2018, 13:09

    Nao...
    Tanto como na outra ele avisa da atualização mas nao acontece nada..

    Codigo de barras é texto e quantidade numero,
    é um erro de sintaxe né?!?


    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]consulta atualização

    Mensagem  Cláudio Más em 21/2/2018, 13:18

    Não deve ser erro de sintaxe, ou haveria uma mensagem de erro.

    Se o código está no subformulário Frmenviosub, tente assim:

    DoCmd.RunSQL ("UPDATE tblenvio set Quantidade=(Quantidade+" & Me![Quanten] & ") Where codbarra='" & Me![Codbarent] & "';")

    Depois verifique diretamente na tblenvio se o registro foi atualizado.

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 16/02/2013

    Re: [Resolvido]consulta atualização

    Mensagem  gutobrotas em 21/2/2018, 14:15

    Ainda nada...
    Anexei o arquivo
    (na verdade eu vi esse exemplo aqui no forum e adaptei ao meu, no exemplo funciona certinho)
    Anexos
    atualiz.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (111 Kb) Baixado 8 vez(es)
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]consulta atualização

    Mensagem  Cláudio Más em 21/2/2018, 14:23

    DoCmd.RunSQL ("UPDATE tblenvio set Quantidade=(Nz([Quantidade])+" & Me![Quanten] & ") Where codbarra='" & Me![Codbarent] & "';")

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 16/02/2013

    Re: [Resolvido]consulta atualização

    Mensagem  gutobrotas em 21/2/2018, 14:38

    mas é pracabá um treco desse hein!!!

    Valeu Claudio muito obrigado por sua paciencia e seu tempo!!!


    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]consulta atualização

    Mensagem  Cláudio Más em 21/2/2018, 14:48

    Valeu!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]consulta atualização

    Mensagem  Alexandre Neves em 21/2/2018, 17:01

    Boa tarde,
    Resolveu? marque o Resolvido


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

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 16/02/2013

    Re: [Resolvido]consulta atualização

    Mensagem  gutobrotas em 21/2/2018, 17:13

    sim!
    resolvido!
    Claudio me deu uma grande ajuda!
    Obrigado novamente Claudio!

      Data/hora atual: 15/11/2018, 04:46