Como gerar um MsgBox para avisar que meu estoque atingiu seu estoque mínimo.

Olá pessoal, boa noite!

Gostaria de pedir a ajuda de vocês no seguinte:
Tenho um cadastro de produto que seu estoque é "10"(EstoqueAtual) e tenho um outro campo chamado nesse mesmo formulário (F_Produtos), EstoqueMinimo que adicionei o valor 5. Quando meu EstoqueAtual for igual a meu EstoqueMinimo, gostaria que em meu sub formulário de vendas (F_vendas_sub) e ele me exibisse uma mensagem que o valor que coloquei atingiu o estoque mínimo do produto selecionado.

Desde já agradeço muito e desejo a todos um ótimo Natal!! santa

Boa noite!
Há "n" maneiras de se fazer isso. Se está buscando os produtos em uma combobox, poderá incluir o campo do estoque mínimo e atual oculto,
daí, antes de atualizar, verifique se o estoque atual é menor ou igual ao o mínimo.

Algo assim:

Evento antes de atualizar do subformulário:

Código:

If Cint(Me.ComboProdutos.Column(x)) <= Cint(Me.ComboProdutos.Column(y)) Then
   MsgBox "Produto já atingiu o estoque mínimo!", vbInformation, "Atenção"
End If

Onde x = a coluna que contem o estoque mínimo e y = coluna que contem o estoque atual.

Olá Marcelo David, boa noite e desde já agradeço por me responder aqui.

Copiei seu código e fiz algumas modificações para inserção no meu sistema, mas não funcionou...

Me gerou essa mensagem de erro:

Erro em tempo de execução '94':

Usi de 'Null' inválido

Anexei uma cópia do meu bd para maior esclarecimento do que estou precisando, se puder me ajuda serei bastante grato.

Sem mais
Atenciosamente
Alan Tardivo

Olá

Para testar;

Código:

Private Sub Produto_BeforeUpdate(Cancel As Integer)
Dim i%
Dim y%
Dim z%

i = DLookup("EstoqueMinimo", "TB_Cad_Produtos", "CodProduto=" & Me.Produto.Column(0))
y = DLookup("EstoqueAtual", "TB_Cad_Produtos", "CodProduto=" & Me.Produto.Column(0))

    If y = 0 Then
      MsgBox "Produto sem estoque...", vbCritical, "Estoque zero"
      Me.Undo
      Cancel = True
      Exit Sub
    End If
   
z = Me.Quantidade.Value
If (y - z) <= i Then
      MsgBox "Produto já atingiu o estoque mínimo!", vbInformation, "Atenção"
      Me.Undo
      Cancel = True
      Exit Sub
End If
End Sub

Olá JPaulo, bom dia!

Executei o teste com o código que me enviou e apresentou o seguinte erro:
Erro em tempo de execução '3075':

Erro de sintaxe (operador faltando) na expressão consulta 'CadProduto='.

Ola;

Se estamos a falar do form Vendas e do sub vendas, testei aqui e funciona;

Veja;
Download

JPaulo, boa noite!

Ficou muito bacana, exatamente o que precisava.
Como seria se a caixa de alerta fosse com a opção sim ou não?
Se fosse sim gostaria de manter a venda e se fosse não ele limpasse tudo, como já faz.

Grato!

Olá;

Tive de fazer algumas alterações de modelagem de dados, que estavam incorretos.

Assim corrigido;

Download