[Resolvido]Banco de Dados - gestão stock

Olá, sou nova por aqui e estou cheia de dúvidas. Preciso de ajuda, estou a fazer um trabalho e tenho que controlar o stock,através do Formulário F_COMPRAS sai uma nota encomenda onde quero dar entrada de artigos (tabela artigos) atualizando o stock e através do Formulário F_Vendas, dou saida dos artigos. O meu problema é que não sei como fazer isso, envio o banco de dados para dar uma olhadela.
Obrigada

entre muitos outros que existem por aqui.


http://maximoaccess.forumeiros.com/t1450-resolvidocontrol-stock

http://maximoaccess.forumeiros.com/t3773-resolvidoactualizar-positivamente-um-stock

http://maximoaccess.forumeiros.com/t3861-resolvidoerro-na-actualizacao-de-stock

http://maximoaccess.forumeiros.com/t5307-resolvidovenda-de-servicos-controle-de-stock

ok, vou vêr se chego lá.
obrigada pela dica

Ola seja bem vinda ao forum.

Se precisar de ajuda dê um grito, mas pelos exemplos já é facil de resolver.

Olá,isto está complicado. Não percebo nada disto
Ao atualizar o stock, o campo stock fica em branco não sei o que fazer.
Help!!!

Detalhe como está a fazer.

Estou a atualizar um campo de uma tabela com base numa consulta de atualizar, quero atualizar o stock (Tabela artigos) com base num dado campo (quantidade)de um sub-formulário, quando coloco quantidade no sub-formulário acrescenta o valor ao stock na tabela artigos. Não sei se consegui explicar!!!

Mas isso artigo a artigo, ou no final da entrada ou saída, faz para todos ?

Coloca a quantidade em cada artigo que sai e quero que atualize o stock em cada artigo que saiu

Ok;

Vou arranjar aqui 5 minutos para lhe ver isso.

Aguarde...

ok, obrigada pela ajuda

Então vejamos;

No "T_VENDA_ART Subformulário1", foi inserida uma caixa de texto OCULTA, para receber o valor do Stock que saí da sua Combobox artigo.

Private Sub cboCod_artigo_AfterUpdate()
Me.txtStockOculto.Value = Me.cboCod_artigo.Column(5)
Me.txtStockOculto.Requery
Me.txtquantidade.SetFocus
End Sub


No evento VBA depois de atualizar, da sua Caixa de texto "quantidade", que renomeei para txtquantidade, inseri um codigo bem basico;


Private Sub txtquantidade_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [T_ARTIGOS] Set [T_ARTIGOS].[Stock] = " & Me.txtStockOculto.Value & " - " & Me.txtquantidade.Value & " WHERE [T_ARTIGOS].[cod_artigo] = " & Me.cboCod_artigo.Column(0) & ""
DoCmd.SetWarnings True
End Sub


Veja a funfar nas Vendas:

http://dl.dropbox.com/u/771097/Multinacional_final1_OLD.zip

Boa, obrigada
Tá a funcionar, vou tentar fazer o mesmo para as compras.

Obrigada pelo retorno o forum agradece.

Olá estou de volta,
sabem como é que coloco um aviso se a quantidade for inferior ao stock?
Desculpem, mas sou uma "naba" na matéria.

Obrigada

Mais ou menos assim;

Private Sub txtquantidade_AfterUpdate()
If Me.txtquantidade.Value > Val(Me.txtStockOculto.Value) Then
MsgBox "Não existe Stock suficiente...", vbCritical
Me.Undo
Me.tx_iva.SetFocus
Me.txtquantidade.SetFocus
Me.txtquantidade = ""
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [T_ARTIGOS] Set [T_ARTIGOS].[Stock] = " & Me.txtStockOculto.Value & " - " & Me.txtquantidade.Value & " WHERE [T_ARTIGOS].[cod_artigo] = " & Me.cboCod_artigo.Column(0) & ""
DoCmd.SetWarnings True
End If
End Sub

Obrigada, muito agradecida

Olá,
Em relação ao aviso de stock insuficiente, dá-me o aviso mas atualiza o stock. O que queria mesmo é que quando o stock fosse insuficiente, aparecia a mensagem de aviso mas sem atualizar o stock. Só atualiza o stock quando a quantidade <= Stock.
Obrigada

Bom dia e bom Ano Novo.

Private Sub txtquantidade_AfterUpdate()
If Me.txtquantidade.Value > Val(Me.txtStockOculto.Value) Then
MsgBox "Não existe Stock suficiente...", vbCritical
Me.Undo
Me.tx_iva.SetFocus
Me.txtquantidade.SetFocus
Me.txtquantidade = ""
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [T_ARTIGOS] Set [T_ARTIGOS].[Stock] = " & Me.txtStockOculto.Value & " - " & Me.txtquantidade.Value & " WHERE [T_ARTIGOS].[cod_artigo] = " & Me.cboCod_artigo.Column(0) & ""
DoCmd.SetWarnings True
End If
End Sub

Bom Ano, obrigada.