[Resolvido]Limite do estoque

Bom dia amigos!

Aguem poderia verificar pra mim onde estou errando na composição do código para controlar o estoque e não deixar ser vendido mais do que se tem em estoque. Partindo do campo "quantidade" (ao sair).

Obrigado.

Será assim;

Private Sub Quantidade_Exit(Cancel As Integer)
On Error Resume Next
Dim strquantidade As Integer
strquantidade = Val(Me.CodProduto.Column(4))
'se o estoque estiver a zero ou inferior a zero ou ainda se a quantidade de saida for maior que a do estoque, aborta...
If Val(strquantidade) = 0 Or Val(strquantidade) < 0 Or Me.Quantidade.Value > Val(strquantidade) Then
MsgBox "Estoque insuficiente para o seu pedido " & Me.CodProduto.Column(1) & "", vbCritical
Me.Quantidade = ""
Cancel = True
Exit Sub
Else
DoCmd.RunSQL "UPDATE cadproduto SET quantidade = quantidade - Forms!fcadsaida!fcadsaidadetalhe!quantidade WHERE Codproduto = Forms!fcadsaida!fcadsaidadetalhe!Codproduto"
End If
End Sub

Repare que se o estoque for igual a zero, já não aparece para dar saída;

Boa tarde!

JPaulo,

Muito obrigado pela sua contribuição. Ficou ótimo.

Obrigado pelo retorno o forum agradece.

ola sou novato em access gostaria de saber se vcs tem algo assi "se estoque for zero bloquer o produto ate renovar o estoque e não mostra na caixa de combinção"