[Resolvido]Acrescentar os dados na tabela

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

Vc já tem algo?

Se tiver posta pro grupo analisar e ajudar.

Abraços

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

Não estou conseguindo anexar arquivo

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.

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

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,

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.

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

Up

Bom dia...

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

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

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

Não funcionou!

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

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

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

Valeu vilian resolvido