[Resolvido]Atualizar Estoque

Boa noite estou precisando de um código para atualizar um campo tipo:
No formulario pedido tenho o campo quantidade, o que eu quero é que quando eu inserir um valor nesse campo o campo estoque da tabela produto atualiza
alguem pode me ajudar ?

No botão que que atualiza dos dados do pedido abra um recordset da tabela produto e faça um update no campo "Itens em estoque" somando com "quantidade" do pedido.

cara tem como você fazer algum exemplo disso que voc~e falou não entendi mesmo desde ja obrigado

Amigo veja este exemplo

Quando você clica no botão alterar stock aparece um pequeno form. Digite um número na caixa de texto e clique no botão. O valor digitado passou para a caixa de texto Quantidade. Isto significa que foi adicionado ao stock X. Na caixa actual, faça a saída de produto e vai ver o stock actualizado.


http://dl.dropbox.com/u/8157744/bd4.zip

coloque esse codigo apos atualizar do campo Quantidade
onde cbo_Produtos é a combo com Produtos do Estoque
KeyProduto é o indice na tabela (chave primaria)
txtQtde é o campo quantidade


Dim db As DAO.Database
Dim rst As Recordset
'
Set db = DBEngine.Workspaces(0).OpenDatabase("Seu caminho da Base De Dados")
Set rst = db.OpenRecordset("Produtos")
rst.Index = "KeyProduto"
rst.Seek "=", Me.cbo_Produtos
If not rst.NoMatch Then
With rst
.Edit
!ItensEstoque = !ItensEstoque - nz(Me.txtQtde,0)
.Update
End With
MsgBox "Estoque Atualizado"
Else
MsgBox "Produto não encontrado"
End If
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing

espero ter ajudado

Valeu cara me resolveu um problemão perfeito o codigo muito obrigado !!!!1