[Resolvido]Bloqueio do lançamento com mensagem de aviso, quando o produto escolhido se encontra com o estoque azerado

Boa Tarde Pessoal.
Preciso de uma dica para melhorar meu banco para a  gestão de estoque. Meu problema é no sub_ formulário de saída; na hora de escolher o produto, queria criar um bloqueio com mensagem de aviso, quando o produto escolhido se encontra com o estoque azerado ou <=0.  No repositório achei alguns exemplos de módulos interessantes mas sinceramente encontrei muita dificuldade para adapta-los ao meu banco.
A foto anexada mostra a estrutura das tabelas e o valor do estoque é o resultado do calculo: Estoque: [SomaDeQuant_Ord]-[SomaDeQuantidade]
Desde já agradeço.
Roberto

depende como vai fazer ,
se for com uma caixa de combinação pega o nome da caixa total
if total =<0 then
msgbox " não temos mais esses produto, o estoque está zerado"
else

end if
end sub

tente usar a função dlookup para comparar o estoque, no meu faço isso e da certo

    Dim varestoque As Integer
        
    varestoque = DLookup("EST", "Estoque", "CódigoProduto = " & Me!codbarras & "") <- pega a quantidade da consulta de estoque atual
    If txtQtde > varestoque Then <- compara com a quantidade do campo quantidade no meu form
    MsgBox ("Estoque insuficiente. Estoque atual do produto: " & varestoque & ""), vbInformation, "Atenção!" <- se for superior, exibe msg e depois eu cancelo o evento

Boa tarde pessoal.

Primeiramente agradeço Crysostomo pela ajuda mas a dica do Alonso é mais pertinente ao meu caso.

Então Alonso. Tentei adaptar o modulo mas preciso de alguns esclarecimentos.

1. Queria saber em qual campo aplicar o procedimento e também em qual evento. Eu o coloquei no campo [quant_solic] do sub-formulario no evento “Após atualizar”

2. Provavelmente o erro esta na linha varestoque. Eu substitui Me!codbarras com Me.Cod_Prod, mas deu o seguinte erro:

Erro em tempo de execução 3075
Erro de sintaxe (operador faltando) na expressão de consulta ‘Consulta Estoque’


Essa seria minha adaptação:

Private Sub quant_solic_AfterUpdate()

Dim varestoque As Integer

varestoque = DLookup("Consulta Estoque", "Estoque", "Cod_Prod = " & Me.Cod_Prod & "")
If quant_solic > varestoque Then
MsgBox ("Estoque insuficiente. Estoque atual do produto: " & ESTOQUE & ""), vbInformation, "Atenção!"
End If

End Sub

Boa tarde.
Apanhei bastante mas consegui resolver meu problema sempre acompanhando o exemplo do Alonso.
Resolvi dessa forma colocando o evento Apos atualizar no campo que recebe a quantidade de produto solicitado:

Private Sub quant_solic_AfterUpdate()
Dim varestoque As Integer

varestoque = DLookup("Estoque", "Consulta Estoque", "Cod_Prod = " & Me!Cod_Prod & "")
If quant_solic > varestoque Then
MsgBox ("Estoque insuficiente. Estoque atual do produto: " & varestoque & ""), vbInformation, "Atenção!"
End If

End Sub