Oi pessoal, tenho uma tabela de venda que preciso dar baixa na

mercaria ao vender, eu estou usando este código abaixo, só que todo produto que

é vendido só dá baixo no primeiro produto da tabela. Como eu faço para dar baixa

na mercadoria que realmente foi vendida?

 

    If Quantidade <> "" Then
        X = rsMerc.Fields("estoque") - dtItVen.Fields("Quantidade")
     rsMerc.Fields("Estoque") = X
     rsMerc.Update
    End If

Rode uma select para localizar os dados do prod que esta sendo vendido.. e em seguinda lance o cod para registrar a baixa

 

 

vc pode me dar um exemplo, por gentileza!

 

Agradesso!!

Dim vgdb As Database

Private Sub DBGrid1_BeforeUpdate(Cancel As Integer)
  Dim rstProdutos As Recordset
  Set rstProdutos = vgdb.OpenRecordset("Produtos", dbOpenTable)
  rstProdutos.Index = "PrimaryKey"
  rstProdutos.Seek "=", DBGrid1.Columns(1).Text
  If Not rstProdutos.NoMatch Then
    rstProdutos.Edit
    rstProdutos![QuantidadeEstoque].Value = rstProdutos![QuantidadeEstoque].Value - DBGrid1.Columns(2).Text
    rstProdutos.Update
  End If
End Sub

Private Sub Form_Load()
  Set vgdb = OpenDatabase("U:Meus DocumentosProgramaçãoVisual BasicProjetosControleEstoqueDados.mdb")
End Sub

Beleza!!!!

 

eu usei o codigo sugerido acima só que não acontece nada no Evento do DBGrid, já

testei quase todos os eventos do DBGrid, não dá erro, mas tambem não baixa a mercadoria no estóque, eu usei no botão salvar mas se adicionar mais uma mercadoria só apenas uma dá baixa no estóque certo as outras não acontece nada

o que vc's me sugerem?

 

Agradesso!

Vamos lá pessoal!! me ajudem a fazer esse form de vendas.

 

se alguem tiver um exemplo de form de vendas que adiciona mercadorias

em um grid e dar baixa no estóque posso até comprar!

 

Agradesso!!