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

4 participantes

    [Resolvido]Acrescentar os dados na tabela

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 11/11/2015, 11:48

    Olá
    Queria acrescentar produtos ao estoque
    exemplo
    produto aaa tenho em estoque 10un e através de um formulário quero dar entrada de 25 un deste mesmo
    produto ao estoque que ficaria então com 35un

    é possivel fazer isso como
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  cleverson_manaus 11/11/2015, 11:54

    Vc já tem algo?

    Se tiver posta pro grupo analisar e ajudar.

    Abraços


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 11/11/2015, 12:31

    Tenho uma tabela tabprodutos com os campos

    descrição valor quantidadeestoque quantidademinina

    o que eu quero é através de um form acrescentar e somar ao campo quantidadeestoque





    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 11/11/2015, 12:38

    Não estou conseguindo anexar arquivo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4955
    Registrado : 20/04/2011

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Silvio 11/11/2015, 13:08

    Algo parecido com isso no botão salvar ou em outro comando qualquer.

    DoCmd.SetWarnings False
    DoCmd.RunSQL "update suatabela set seucamposaldo=seucamposaldo+Forms![seuformulario]![ seucampoentrada]" _
    & " where suatabela.chaveprimaria=Forms![seuformulario]![ chaveprimaria]"
    DoCmd.SetWarnings True

    onde:

    suatabela: nome da tua tabela estoque
    seucamposaldo: campo onde está o saldo do teu produto.
    seuformulario: nome do formulário onde está inserindo as informações.
    seucampoentrada: nome do campo onde vai ser digitado a quantidade de entrada.
    chaveprimaria: chave primaria que está cadastrado o produto na tabela.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 11/11/2015, 13:57

    usando o seguinte código

    Private Sub Comando4_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update tab_produto set quantidadeestoque=quantidadeestoque+Forms![formulário1]![ ]" _
    & " where tab_produto.códigobarras=Forms![formulário1]![ chave]"
    DoCmd.SetWarnings True

    está alterando o valor queria que somar com o valor que já  esta na tabela
    exemplo produto aaaa tem em estoque 10un  quero inserir mais 50un e agregar as 10un que já tem

    https://www.dropbox.com/s/rmdhsdh2mss40on/ProdutosDados.accdb?dl=0
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  cleverson_manaus 11/11/2015, 16:27


    vc precisa de uma tabela movimento(entradas/saidas) onde vc informa o código produto, tipo movimento(se entrada ou saída), a quantidade do produto.


    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4955
    Registrado : 20/04/2011

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Silvio 11/11/2015, 17:06

    Agravina, eu uso esse código mesmo....mas veja

    Private Sub Comando4_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update tab_produto set quantidadeestoque=quantidadeestoque+Forms![formulário1]![ ]" _
    & " where tab_produto.códigobarras=Forms![formulário1]![ chave]"
    DoCmd.SetWarnings True

    Não está faltando nada aqui [] e [chave].......o que é ?

    Obs.: veja esse link, onde tem o código rodando perfeitamente. Clique aqui.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 13/11/2015, 10:03

    tentando este código

    Private Sub Comando28_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update tab_produto set quantidadeestoque=quantidadeestoque+Forms![formulário1]![texto1 ]" _
    & " where tab_produto.códigobarras=Forms![formulário1]![entrada]"
    DoCmd.SetWarnings True

    End Sub
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 14/11/2015, 19:32

    Up
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4955
    Registrado : 20/04/2011

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Silvio 15/11/2015, 12:22

    Bom dia...

    Agravina, coloque no ge.tt, as entidades ( tabelas, consultas e formulários ) envolvidas para analisarmos.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 15/11/2015, 19:38

    segue o bd
    http://ge.tt/83nB5pR2/v/0?c
    avatar
    vilian
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 09/04/2013

    [Resolvido]Acrescentar os dados na tabela Empty aumentando estoque

    Mensagem  vilian 16/11/2015, 00:41

    segue como fica amigo...

    DoCmd.SetWarnings False
    DoCmd.RunSQL "update Tab_Produto set QuantidadeEstoque=QuantidadeEstoque+Forms![formulario1]![Texto1]" _
    & " where Tab_produto.codigobarras=Forms![formulario1]![codigobarras]"
    DoCmd.SetWarnings True



    porém no seu caso sugiro que....
    renomear seu formulário para formulario
    renomear o campo da tabela códigobarras para codigobarras < sem acento...
    vlw


    a


    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 16/11/2015, 10:29

    Não funcionou!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4955
    Registrado : 20/04/2011

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Silvio 16/11/2015, 10:53

    Bom dia...

    Ao tentar fazer o download agora mesmo.

    "This file is not available, because the upload was interrupted.
    You will not be able to download the file.
    Contact the owner if you need the file."
    avatar
    vilian
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 09/04/2013

    [Resolvido]Acrescentar os dados na tabela Empty exemplo

    Mensagem  vilian 16/11/2015, 11:36

    veja o seu bd alterado....
    deve-se cuidar com maiúscula e minuscula na hora de copiar o código...

    https://drive.google.com/file/d/0B85tgTZhI0NPUTBQazJVWGN2cWc/view?usp=sharing

    att
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 16/11/2015, 12:47

    Quase la o problema é que está somando sempre ao mesmo produto.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1594
    Registrado : 18/07/2010

    [Resolvido]Acrescentar os dados na tabela Empty Re: [Resolvido]Acrescentar os dados na tabela

    Mensagem  Agravina 16/11/2015, 13:10

    Valeu vilian resolvido

      Data/hora atual: 28/11/2022, 00:42