Controle de estoque

Boa Noite galera,

Estou desenvolvendo uma aplicação de controle de estoque e está tudo correndo bem eu procurei aqui mesmo nos fóruns e peguei trechos de códigos mas não estou conseguindo fazer com que ele funcione da forma correta vou postar aqui o modelo do banco e peço que por gentileza observem o código que fiz no botão salvar do formulário de saída do meu sistema de estoque ele deve analisar a quantidade de estoque na tabela Estoque e ver se é possível fazer uma "venda" se não possuir a quantidade ele deve informar que não possui a quantidade solicitada e se possuir ele subtrai o valor do estoque.

segue o trecho do código, porém peço que abram o projeto para ver qual o problema que impede ele de rodar tranquilinho

Dim I As Integer
I = DLookup("Estoque", "Tab_Estoque", "[CodProd]=" & Me.txtPRODUTO.Column(1))
If I <= 0 Or (I - Me.Quantidade.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 Tab_Estoque set Estoque=(Estoque-(Formulários![Tab_Estoque]![Quantidade])) where Tab_Estoque.codigo=(Formulários![Tab_saida]![Tab_Estoque]);")
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If
End Sub

Bom dia...

Não foi testado....

Private Sub Salvar_Click()
Dim I As Integer
I = DLookup("Estoque", "Tab_Estoque", "[CódProd]=" & Me.txtPRODUTO.Column(1))
If I <= 0 Or (I - Me.Quantidade.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 Tab_Estoque set Estoque = Estoque - Forms![Frm_saida]![Quantidade]" _
& " where Tab_Estoque.CódProd=Forms![Frm_saida]![CódProd]"
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
End If
End Sub

Atenção ás regras do forum, você não pode abrir tópicos repetidos;

https://www.maximoaccess.com/t9578-ajuda-baixa-estoque-fica-negativo

Desculpas

Bom Dia, Silvio então eu testei o código que você me passou e ele apresenta um erro, estou tentando desvendar mas não consigo estou upando 3 fotos aqui para ver se vocês conseguem me ajudar a entender onde está o erro, uma das fotos é o erro apresentado ao executar o código, outro é do depurador, e a outra é do formulário que estou tentando implementar o código.

Att.

O código que te passei é o mesmo que você mandou no anexo.....
A minha alteração não mexeu no que veio com o Dlookup.
Tente isso..

I = DLookup("Estoque", "Tab_Estoque", "[CódProd]=" & Me.txtPRODUTO.Column(0))

acabei de testar ele e ainda esta dando erro na mesma linha de null invalido

Veja agora os eventos após atualizar na txt do produto, botão salvar ao clicar e  adição de caixa de texto desacoplada.

Bons estudos.