[Resolvido]Baixa no estoque com formulário contínuo

Ola pessoal..
Sou novo aqui no forum..
Gostaria de saber de vcs como realizar a baixa ou a entrada no estoque em um formulário contínuo..Seria melhor via consulta ou via código ?
Exemplo:
Tenho a tabela tblProdutos com os campos QTd e PreçoCusto... Tenho a tabela tblCompras onde tenho os dados do fornecedor e a tblDetalhesCompras onde informo os produtos da compra com quantidade e preço de custo ..Foram feitos um formulário e um subformulário para que os produtos fossem lançados um a uma de acordo com a compra realizada.. MInha dúvida: Como faço para que ao final do lançamento dos produtos o sistema dê entrada na quantidade de estoque e no preço de custo de cada produto lançado ?
Essa mesma lógica seria usada com relação a saída de produtos..
Já pesquisei alguns exemplos aqui no forum mas nao encontrei nenhum com formulário contínuo ....
Não sei se consegui ser muito claro ..

Desde já agradeço;;

Boas Augusto

http://maximoaccess.forumeiros.com/t3197-cadastro-de-produtos-e-alteracao-no-estoque

Veja se lhe ajuda.

Cumprimentos.

Valeu Harylson..
Vou dá uma olhada..

Obrigado também Norberto..
Vou dá uma verificada nisso que vc mencionou ..
É que estava precisando de um exemplo prático como o Harylson mandou ..
Mesmo assim obrigado ..

Olá Harysohn ..
Cara , não consegui realizar a baixa no estoque como queria ..
Como havia dito, teia o formulário vendas e um sub detVendas..
Gostaria de que ao final da digitação dos produtos, clicasse em um botao e o sistema efetuasse as baixas daqueles produtos... Além disso um segundo botão onde pudesse cancelar essas mesmas baixas se fosse necessário..
Vc tem como dá uma luz ... Não sei muito sobre VBA.. por isso minha dificuldade ..
Desde já agradeço ...

Poste o seu aplicativo para que possamos lhe ajudar...

é dificil assim sem ver as tabelas e forms envolvidos

Cumprimentos.

OK .
Segue o arquivo ....
Valeu mesmo ...

Boas augusto

No evento do campo quantidade em seu sub form:

Private Sub txtQuantidade_AfterUpdate()
Dim QtdEst As Integer ' Variável para armazenar a quantidade em estoque da mercadoria

' Aqui carrego a variável com a quantodade no estoque, veja que filtro utilizando o codProduto
QtdEst = DLookup("QtdEstoque", "TblProdutos", "CodProduto =" & Me.CodProduto & "")
' Aqui verifico se o estoque está zerado para o produto
If QtdEst = 0 Then
MsgBox "Produto zerado no estoque"
Exit Sub
End If
' Aqui verifico se a quantidade que vai ser vendida existe no estoque, se for maior emite mensagem
If QtdEst < Str(Me.Quantidade) Then
MsgBox "Estoque atual menor que a quantidade solicitada." & Chr(10) & Chr(10) & "Estoque atual = " & QtdEst, vbInformation, "Atenção"
Me.txtQuantidade.SetFocus
Exit Sub
End If
'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela
CurrentDb.Execute "UPDATE tblProdutos SET tblProdutos.QtdEstoque = TblProdutos.QtdEstoque -" & Me.Quantidade & "" _
& " WHERE CodProduto =" & Me.CodProduto & ";"

End Sub


Cumprimentos.

Obrigado .
Funcionou perfeitamente...
Não tenho o domínio da sintaxe dos códigos, cara ..
Tinha a ideia de que seria mais ou menos assim como vc fez.. Mas não sabia como escrever..
Se tiver alguma dica ou livro sobre VBA, por favor não deixe de me indicar..
Obrigado mais uma vez...
Sucesso !!!!

Visite a sala respsitório de apostilas e tutoriais aqui no fórum onde encontrará material para iniciar seus estudos.

O Fórum agradece o retorno,