... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Baixa de Estoque

Usuário Matheus:

Bom dia.

Gostaria de saber qual a melhor forma de dar baixa em estoque, através de um formulário.

Por exemplo: - tenho 3 unidades de banana na minha tblEstoque, entreguei duas unidades e quero dar baixa nessas duas unidades através do meu frmSaídaProdutos.

Também gostaria de inserir parâmetros para que, quando eu obtiver zero unidade de um determinado item, eu não possa dar saída nele (pelo fato de não tê-lo em estoque).

Desde já, grato.

Suporte:

Matheus, para atualizar o estoque você pode utilizar uma consulta atualização Update e para verificar o estoque, pode usar a função Dlookup()

Vamos supor que o seu produto seja identificado pelo número exclusivo idProduto. Você teria algo assim:

Dim dblQuantidade as double
Dim strSql$
'Captura a quantidade em estoque do produto que está sendo lançado
dblQuantidade = Dlookup("QuantidadeEstoque","tblEstoque","IdProduto = " & me!idproduto)
'Verifica se tem quantidade suficiente no estoque
if (dblQuantidade - me!quantidade) < 0 then
   msgbox "Não tem quantidade de produto suficiente no estoque...", vbInformation ,"Aviso"
   cancel = true
else
   'Atualiza estoque
   strSql = "UPDATE tblEstoque"
   strSql = strSql & " SET quantidadeEstoque = QuantidadeEstoque - " & me!Quantidade
   strSql = strSql & " WHERE idproduto = " & me!idProduto & ";"
   currentdb.execute strSql
end if

Você pode colocar este código no evento "Antes de atualizar" do campo quantidade.

Nota: Me!quantidade e Me!idProduto são valores com origem no seu formulário frmSaidaProdutos.

Usuário Matheus:

Excelente, mestre Avelino.

Muito obrigado!

 


 

 


1 comentário(s)

arilson    09/03/2018 05:32:02

Super Mestre Avelino


Envie seu comentário: