[Resolvido]Baixar do estoque

Ola pessoal,alguém poderia ver o que falta neste bd pra quando eu fizer uma venda de um produto qualquer, esse produto ser diminuido do total do estoque conforme a quantidade for vendida.
Abçs.

https://dl.dropboxusercontent.com/u/90217826/VendaPDV.rar

Alguma ideia.

Olá,

Pode transformar em 2003?

Em 2003 amigo.


https://dl.dropboxusercontent.com/u/90217826/VendaPDV.rar

Ai pessoal como faço pra diminuir do estoque após uma venda.
Obs:Este exemplo adqueri do forum.

Pessoal tem jeito neste bd ...

Não???

bom dia verifique se estar dando baixa

Bom dia amigo,que bom que esta dando um jeito neste bd pra mim, sim esta baixando do estoque só que agora não esta registrando os valores dos produtos no form de vendas.

Trindade onde esta o detalhe que foi feito para dar baixa no estoque após a venda.

bom dia este foi o codigo envolvido na baixa do estoque:

Dim apaga As Integer
Dim msg
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False
Dim qtd, qtd2 As Double
Dim sql1 As String

'Pega o valor do estoque atual do produto
qtd = Format(DLookup("[QuantidadeEstoque] ", "[Tab_Produto]", "[CódigoProduto] = " & Me.Idproduto), "0.00")

'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação

qtd2 = qtd - txtQtd - bem aqui olha bem a estas variaveis
sql1 = "UPDATE Tab_Produto SET QuantidadeEstoque = '" & qtd2 & "' WHERE CódigoProduto=" & Me.Idproduto & ""
CurrentDb.Execute sql1

Me.Undo

'Me.CodProduto.Dropdown


Me.txtQtd = 1

Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
'MSG = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click

Ola amigo,só um probleminha,o valor unitario não esta aparecendo e ai não faz as somas dos totais.

eu nao achei no teu exemplo uma caixa de texto chamado "texto52" pois ela q recebe o valor unitario verefique

Trindade,esse bd eu peguei ai do forum portanto não fui eu quem fez,mas como que no exemplo da mensagem n°4 aparece o valor;só não da baixa.

Ai amigo valeu muito tua ajuda,obrigado por tudo.