[Resolvido]Controle de estoque

Boa tarce Cícero,

Tente assim

Dim QuantANT As Double 'Quantidade anterior no estoque
Dim NovaQuant As Double 'Nova quantidade no estoque
'// Popula a variável
   QuantANT = "": QuantANT = DLookup("[Quant]", "Tlb_CadProd", "[Código] = " & Me.Produtos.Column(0))
   NovaQuant = "": NovaQuant = (QuantANT - Nz(Me.Quantidade.Value, 0))
'// Atualiza a tabela
   DoCmd.RunSQL "UPDATE Tlb_CadProd SET [Tlb_CadProd].[Quant]=" & NovaQuant & " WHERE [Tlb_CadProd].[Código]=" & Me.Produtos.Column(0) & ";"

Oi, boa tarde,

No código do botão cmdDelete_Click() em seu subformulário coloque:

'// Atualiza o estoque do item selecionado
   DoCmd.RunSQL "UPDATE Tlb_CadProd Set [Quant]=[Quant]+" & Me.Quantidade.Value & " WHERE [Código]=" & Me.Produtos.Column(0) & ";"
'// Apaga o registro na tabela Tbl_VendasDet referente ao codigo do produto selecionado
   DoCmd.RunSQL "DELETE  * FROM Tbl_VendasDet WHERE CodTabDet=" & Me.CodTabDet.Value & ";"
'// Informa ao usuário
   MsgBox "Item retirado da lista com sucesso!", vbInformation, "Atenção"
'// Atualiza o formulário
   Me.Requery

No formulário Principal:

No código do botão Btn_Excluir_Click() em seu formulário principal coloque:

'// Questiona ao usuário sobre a exclusão do registro
   If MsgBox("Este procedimento irá excluir este registro definitivamente? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
'       Se o usuário clicar em SIM

'// //  Procedimentos para o subformulário
'       // Loop na tabela de itens vendidos
          'Variáveis
          Dim RecVar As DAO.Recordset
          'Abre o recordset
          Set RecVar = CurrentDb.OpenRecordset("SELECT * FROM Tbl_VendasDet WHERE CodVendas=" & Me.CodVenda.Value)
          'Loop nos registros do recordset
          Dim i As Integer: i = 0
          For i = 0 To RecVar.RecordCount - 1
               'Atualiza o estoque do item selecionado
               DoCmd.RunSQL "UPDATE Tlb_CadProd Set Tlb_CadProd.[Quant] = Tlb_CadProd.[Quant] + " & RecVar.Fields("Quantidade") & " WHERE Tlb_CadProd.[Código]=" & RecVar.Fields("Produtos") & ";"
               i = i + 1
          Next
          'Fecha o recordset e limpa a memória
          Set RecVar = Nothing: Close
'       // Apaga os registros na tabela Tbl_VendasDet referentes ao codigo da venda atual
          DoCmd.RunSQL "DELETE  * FROM Tbl_VendasDet WHERE CodVendas=" & Me.CodVenda.Value & ";"
'// //  Final dos procedimentos do sub formulário

'// Formulário Principal
'   Deverá apagar o registro principal ou seja a venda!
   DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdDeleteRecord
   'Informa ao usuário
   MsgBox "Venda excluída com sucesso!", vbInformation, "Atenção"
   Else
       Exit Sub
   End If

Até mais...

Oi, boa tarde,


'>>>> Este código só apaga o item da linha clicada.
No código do botão cmdDelete_Click() em seu subformulário coloque:

'// Atualiza o estoque do item selecionado
  DoCmd.RunSQL "UPDATE Tlb_CadProd Set [Quant]=[Quant]+" & Me.Quantidade.Value & " WHERE [Código]=" & Me.Produtos.Column(0) & ";"
'// Apaga o registro na tabela Tbl_VendasDet referente ao codigo do produto selecionado
  DoCmd.RunSQL "DELETE  * FROM Tbl_VendasDet WHERE CodTabDet=" & Me.CodTabDet.Value & ";"
'// Informa ao usuário
  MsgBox "Item retirado da lista com sucesso!", vbInformation, "Atenção"
'// Atualiza o formulário
  Me.Requery



No formulário Principal: Frm_Vendas

No código do botão Btn_Excluir_Click() em seu formulário principal coloque:

'// Questiona ao usuário sobre a exclusão do registro
  If MsgBox("Este procedimento irá excluir este registro definitivamente? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
'       Se o usuário clicar em SIM

'// //  Procedimentos para o subformulário
'       // Loop na tabela de itens vendidos
         'Variáveis
         Dim RecVar As DAO.Recordset
         'Abre o recordset
         Set RecVar = CurrentDb.OpenRecordset("SELECT * FROM Tbl_VendasDet WHERE CodVendas=" & Me.CodVenda.Value)
         'Loop nos registros do recordset
         Dim i As Integer: i = 0
         For i = 0 To RecVar.RecordCount - 1
              'Atualiza o estoque do item selecionado
              DoCmd.RunSQL "UPDATE Tlb_CadProd Set Tlb_CadProd.[Quant] = Tlb_CadProd.[Quant] + " & RecVar.Fields("Quantidade") & " WHERE Tlb_CadProd.[Código]=" & RecVar.Fields("Produtos") & ";"
              i = i + 1
RecVar.MoveNext
         Next
         'Fecha o recordset e limpa a memória
         Set RecVar = Nothing: Close
'       // Apaga os registros na tabela Tbl_VendasDet referentes ao codigo da venda atual
         DoCmd.RunSQL "DELETE  * FROM Tbl_VendasDet WHERE CodVendas=" & Me.CodVenda.Value & ";"
'// //  Final dos procedimentos do sub formulário

'// Formulário Principal
'   Deverá apagar o registro principal ou seja a venda!
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdDeleteRecord
  'Informa ao usuário
  MsgBox "Venda excluída com sucesso!", vbInformation, "Atenção"
  Else
      Exit Sub
  End If

Até mais...

Funcionou corretamente aqui....

Boa tarde cícero,

use este código no botão excluir do frm_vendas

Private Sub Btn_Excluir_Click()

'// Desativa os avisos do sistema
DoCmd.SetWarnings False
'// Questiona ao usuário sobre a exclusão do registro
If MsgBox("Este procedimento irá excluir este registro definitivamente? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
' Se o usuário clicar em SIM

'// // Procedimentos para o subformulário
' // Loop na tabela de itens vendidos
'Variáveis
Dim RecV As DAO.Recordset
'Abre o recordset
Set RecV = CurrentDb.OpenRecordset("SELECT * FROM Tbl_VendasDet WHERE (((Tbl_VendasDet.CodVendas)=" & Int(Me.CodVenda.Value) & "));", dbOpenDynaset)
'Loop nos registros do recordset
While (Not RecV.EOF)
'Atualiza o estoque do item selecionado
Dim tSQL As String
tSQL = "UPDATE Tlb_CadProd Set Tlb_CadProd.[Quant] = Tlb_CadProd.[Quant] + " & RecV.Fields("Quantidade") & " WHERE Tlb_CadProd.[Código]=" & RecV.Fields("Produtos") & ";"
DoCmd.RunSQL tSQL
Debug.Print RecV.Fields("Produtos")
RecV.MoveNext
Wend
'Fecha o recordset e limpa a memória
Set RecV = Nothing: Close
' // Apaga os registros na tabela Tbl_VendasDet referentes ao codigo da venda atual
DoCmd.RunSQL "DELETE * FROM Tbl_VendasDet WHERE CodVendas=" & Me.CodVenda.Value & ";"
'// // Final dos procedimentos do sub formulário

'// Formulário Principal
' Deverá apagar o registro principal ou seja a venda!
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
'Informa ao usuário
MsgBox "Venda excluída com sucesso!", vbInformation, "Atenção"
Else
Exit Sub
End If


Refiz a estrutura do loop da tabela tbl_VendasDet,

aqui funcionou certinho.

Oi boa tarde,

não tenho mais o seu exemplo aqui, mas você pode tentar assim.

no seu botão de finalizar venda coloque:

'Atualiza informação do campo
Dim tSQL As String
tSQL = "UPDATE Tbl_Vendas Set Tbl_Vendas.[Quitar] = -1 WHERE Tbl_Vendas.[CodVenda]=" & Me.CodVenda.Value & ";"
DoCmd.RunSQL tSQL


PS: Ao aparecer uma nova dúvida, favor crie outro post pois este aqui já foi solucionado.

Abraços.