Pessoal algume sabe fazer uma baixa de estoque com 2 produtos eu tenho esse codigo aki , baixa um so so q ele ta fraco, alguem tem uma ideia

rsped.Update
Set rsped = New ADODB.Recordset
Dim rsProd2 As Recordset
Set rsProd2 = New ADODB.Recordset
rsProd2.Open "SELECT * FROM Tbl_Produtos where Prod_cod LIKE '" & txtcod.Text & "'", bdaccess, adOpenKeyset, adLockOptimistic
Dim Est As Single
Est = rsProd2!Prod_Quantidade
Est = Est - txtquant.Text
rsProd2!Prod_Quantidade = Est
rsProd2.Update

Nao entendi os 'os 2 produtos' no iniciado. Pode fazer assim para diminuir as linhas

 

rsped.Update
Set rsped = New ADODB.Recordset
Dim rsProd2 As Recordset
Set rsProd2 = New ADODB.Recordset
rsProd2.Open "SELECT * FROM Tbl_Produtos where Prod_cod = '" & txtcod.Text & "'", bdaccess, adOpenKeyset, adLockOptimistic
rsProd2!Prod_Quantidade = rsProd2!Prod_Quantidade - txtquant.Text
rsProd2.Update

 

Seria bom verificar se a gravacao do pedido foi feita corretamento para depois chamar a de atualizacao de estoque. Se o pedido der erro ele baixa o estoque sem grava-lo.

 

Outra ideia seria criar uma rotina tipo BAIXA_ESTOQUE(cod_produto, quantidade). Assim todos os programas que fazeram a baixa chamaria a mesma rotina. Caso voce fizesse alguma melhoria ou correcao na rotina de baixa todos os programas pegariam a atualizacao

 

Esse codigo naum deu certo , deu erro "rsped.Update" falou que nao se pode duplicar os dados na tbl, por causa da chave primaria, pq é assim o meu program nao esta aceitando dados duplicados se no Form pedido ja tem uma compra com o codigo 1 , se ouveu outra compra com esse codigo da pau , ou exclui essa compra para por no lugar a outra com o mesmo codigo, mas esse codigo que vc me mando funcionaria como eu faço a vendo aperto incluir e depois?  valeu

Korn, o problema que voce relacionu acima esta relacionado aos indices do arquivo e não a rotina. Verifique os indices primarios e quais os campos utilizados, pois a mim, me parece que estão incoerentes.

tem 3 tbl TblPedidos com o campo Ped_Cod

Tbl_ProdutosdoPedido com o campo Ped_Cod e Prod_Cod

Tbl_Produtos com o campo Prod_Cod

 

O ped_Cod da tblPedidos esta relacionado Com uma tbl Chamada Tbl_ProdutosdoPedido o Campo Ped_Cod com o Ped_Cod da tblProdutosdoPedido, e desta tbl relacionada com a Tbl_Produtos com Prod_Cod

Sera que eu tenho que criar um campo so para poder relaciona-las ?

nao esta pemitindo colocar codigos de produtos iguais irmao , num to entendendo