Ajuda Baixa Estoque (Fica Negativo)

Boa Tarde!

Sou iniciante em Access, e estou com um desafio criar um sistema simples para estoque contendo apenas entrada e saída, porém a cada saída quero que a quantidade seja baixada no estoque, isso eu consegui porém não consigo fazer a verificação se há qtde disponivel para ser baixada sendo assim o estoque esta ficando negativo.

Ex: Se há 10 pçs em estoque e lanço 2 vendas de 5 pçs cada beleza zera o estoque, mas se eu entrar com uma nova venda de 2 pçs consigo prosseguir ai quando vou verificar o estoque esta -2 (negativo), gostaria de fazer uma verificação antes se há estoque e caso não haja quero que apareça a mensagem dizendo "Não há saldo disponóvel".

Vou tentar resumir meu projeto (Teste) aqui pra voces poderem me ajudar:

São 3 tabelas: tbl_Produtos, tbl_Pedidos, tbl_DetalPedido

A cada venda na tbl_Pedidos quero baixar o estoque (Qtde) da tbl_Produtos, assim fiz o seguinte código no "Formulário tbl_Pedidos":

Código:

Option Compare Database
Private Sub Comando10_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL ("update tbl_Produtos set Estoque=(Estoque-(Formulários![tbl_Pedidos]![Qtde])) where tbl_Produtos.CódProduto=(Formulários![tbl_Pedidos]![CódProduto]);")
End Sub

Está funcionando perfeitamente consigo baixar a qtde de estoque conforme qtde informada no Formulário tbl_Pedidos, porém não tem fim mesmo o estoque estando zerado na tbl_Produtos ainda consigo fazer pedidos.

Por Favor me ajudem.

O valor vai ficando negativo?

Sim conforme vou fazendo os pedidos, o saldo em estoque vai subtraindo e ficando negativo.
Preciso que quando o estoque do ítem que estou fazendo o pedido estiver zero (0) apareça uma menssagem dizendo que não há saldo e impeça que eu realize o pedido.

Este assim no clique do seu botão:

If DCount("Estoque","tbl_Produtos","[CódProduto]="& Forms![tbl_Pedidos]![CódProduto]) = 0 Then
msgbox"Este produto está como o estoque zerado!", vbInformation,"Estoque baixo"
else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update tbl_Produtos set Estoque=(Estoque-(Formulários![tbl_Pedidos]![Qtde])) where tbl_Produtos.CódProduto=(Formulários![tbl_Pedidos]![CódProduto]);")
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
end if

Amigão Obrigado pela ajuda não deu erro porém continua deixando o estoque negativo.
Se quiser dar uma olhada coloquei o arquivo aqui: http://www.4shared.com/zip/fs3VeZru/TesteNoCharge.html

Vi dois formulários, onde você dá a baixa no estoque?

Não sabia que CódProduto era uma CBO.

Teste este agora:

If DCount("Estoque", "tbl_Produtos", "[CódProduto]=" & Me.CódProduto.Column(2)) <= 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update tbl_Produtos set Estoque=(Estoque-(Formulários![tbl_Pedidos]![Qtde])) where tbl_Produtos.CódProduto=(Formulários![tbl_Pedidos]![CódProduto]);")
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If

Amigão testei aqui e ainda não deu certo, agora ele fica aparecendo a msg o tempo todo mesmo tendo saldo em estoque e não realiza a subtração.

Tentei dar uma fuçada e nada, se ainda poder me ajudar agradeço.

Falha nossa... Teste:

Dim I As Integer
I = DLookup("Estoque", "tbl_Produtos", "[CódProduto]=" & Me.CódProduto.Column(0))
If I <= 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update tbl_Produtos set Estoque=(Estoque-(Formulários![tbl_Pedidos]![Qtde])) where tbl_Produtos.CódProduto=(Formulários![tbl_Pedidos]![CódProduto]);")
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If

Marcelo, excelente cara (Um dia eu tbm chego lá rsrs)

Deu certo, apenas um detalhe que precisamos mexer:

Se eu tenho 5 pçs em estoque e o usuário fizer um pedido de 7 pçs esse código não está dando a mensagem e realiza a subtração do estoque deixando-o negativo, tentei fazer da seguinte maneira e tbm não deu certo:

Dim I As Integer
I = DLookup("Estoque", "tbl_Produtos", "[CódProduto]=" & Me.CódProduto.Column(0))
If I <= 0 Or I - (Formulários![tbl_Pedidos]![Qtde]) < 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update tbl_Produtos set Estoque=(Estoque-(Formulários![tbl_Pedidos]![Qtde])) where tbl_Produtos.CódProduto=(Formulários![tbl_Pedidos]![CódProduto]);")
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If

Será que tem esquema de ajeitar isso também?

Obrigado!

teste;


Dim I As Integer
I = DLookup("Estoque", "tbl_Produtos", "[CódProduto]=" & Me.CódProduto.Column(0))
If I <= 0 Or (I - Me.Qtde.Value) <= 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update tbl_Produtos set Estoque=(Estoque-(Formulários![tbl_Pedidos]![Qtde])) where tbl_Produtos.CódProduto=(Formulários![tbl_Pedidos]![CódProduto]);")
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If

Me desculpem fugir um pouco ao tema do forum, mas estou finalizando meu primeiro projeto em Excel VBA como um sistema PDV.
Preciso que na tela de vendas quando eu selecionar o produto e digitar a quantidade, o sistema faça a busca pelo código do produto selecionado e consulte na planilha "Produtos" se há estoque suficiente para realizar a venda, se não, me retornar uma MsgBox dizendo que a venda não pode ser realizada por não haver estoque suficiente.

Como posso adptar o código acima para Excel?

Obrigado.

Amigos, entrei agora nesse tópico e tentei adaptar o codigo mas tem dado erro de null invalido podem me dar uma ajudinha ?

Private Sub Salvar_Click()
Dim I As Integer
I = DLookup("Estoque", "Tab_Estoque", "[CodProd]=" & Me.Produto.Value)
If I <= 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tab_Estoque Set [Tab_Estoque].[Estoque] = [Tab_Estoque].[Estoque]- " & Me.Quantidade & ""
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If
End Sub

Ola;

Me.Produto.Value é texto ou numerico, é combobox ?

E no UPDATE falta a condição WHERE [CodProd]=" & Me.Produto.Value

Bom dia JPaulo,

o campo produto não é uma combox é um valor numérico que se refere ao tipo de produto cadastrado em outra tabela ele é basicamente o código criado automaticamente para cada nova inserção.

Certo, então falat ae a condição Where, senão vai atualizar o estoque de todos os existentes.

Ok vou tentar implementa-lo obrigado