Kra faz uma tabela de vendas eh muitos mais facil.

 

Vc tem q ter 3 tabelas.

 

tab1 Produtos

tab2 Entradas

tab3 Vendas

 

faça um consulta q some todas as entradas e diminua pelas soma de todas as vendas

 

com o retorno do resultado vc vai ter a qtd do seu estoque. Ou seja se o Cód do Produto q vc quer tiver uma qtd = 0 logo vc não pode vender o produto.

 

Acho q assim vc vai fazer tudo q precisa.

 

qq coisa

 

msn: rvvaranda@hotmail.com

 

 

Caro colega Jailson ;

 

Tenho um pequeno sistema que funciona em duas partes , uma parte acessivel somente para controle e manutenção de cadastros e a outra so de vendas que roda no balcão . O banco de dados e access com VB6 usando ADO ; a grade que mostra a relação de produtos já vendido e um msflexgrid , mas a baixa no estoque é feita quando confirma a seleção do produto , é claro que depois vc pode excluir se o cliente desistir do produto . São cinco tabelas ;  Estoque (que é a de produtos também) , de Vendas totais e outra de Itens de venda , e vendedores  . Vc pode também emitir pedido nesta tela ou orçamentos , alem de não necessitar usar o mouse para nenhuma operação da venda para facilitar e agilizar a operação . é simples mas funciona redondo e rápido ... para um sistema com 8 máquinas sendo 5 no balcão . neste momento não estou com os fontes neste micro para te dar um exemplo mas se interessar  mande-me um e-mail e poderemos conversar melhor , posso te mandar umas telas e vc ve se interessa , ai vc adapta as tabelas e integra no seu projeto ....

 

Até mais ;

A primeira coisa a fazer é uma tabela com todos os itens do estoque;

Depois, basta fazer as atualizações e inclusões necessárias. Dê uma olhada no código abaixo, qualquer dúvida, dê mais detalhes de como está projetando seu bd:

 

Private Sub cmdIncluir_Click() 'botão para inclusão e alteração no estoque
On Error GoTo final
   Dim rsEstoque As ADODB.Recordset
   Dim sSQL As String
  
   sSQL = "SELECT * FROM tblEstoque WHERE CodigoProduto = " & txtNrprod
   Set rsEstoque = db.Execute(sSQL)
   'Se o código do produto existir, apenas atualize o estoque
   If Not rsEstoque.EOF Then
      sSQL = "UPDATE tblEstoque SET NomeProduto = '" & txtNome & "' "
      sSQL = sSQL & "WHERE CodigoProduto = " & txtNrprod
        MsgBox "O estoque foi atualizado com sucesso!!", vbInformation, "Mensagem do Sistema!!"
   Else 'caso contrário, insira o produto no estoque
      sSQL = "INSERT INTO tblEstoque ( CodigoProduto, NomeProduto ) "
      sSQL = sSQL & "VALUES ( " & txtNrprod & ", '" & txtNome & "' ) "
            MsgBox "O produto foi incluído no estoque!!", vbInformation, "Mensagem do Sistema!!"

   End If
   db.Execute (sSQL)
Exit Sub
final:
MsgBox Err.Description, vbInformation, Err.Number
End Sub