[Resolvido]Atualização no estoque

Pessoal peço ajuda pois estou quase doido, neste meu código quero que ao sair do campo quantidade se houver codigo do produto null ele mude o foco, se houver codigo produto e quantidade menor do que a do estoque ele avise baixo estoque e limpe o campo, e se houver quantidade maior que 0 e que haja no estoque ele perguntar se quer atualizar o estoque. Minha principal divida é quanto a estrutura do If pois toda vez ele só diz que não tem estoque suficiente, tentei de outro jeito e ele funciona mas não diz a mensagem que falta no estoque. por favor me ajudem.

Private Sub Quantidade_Exit(Cancel As Integer)
Dim I As Double



If Me.CodigoProduto = Null Then
Me.CodigoProduto.SetFocus

I = DLookup("[QuantidadeInicial]", "[Produto]", "[CodigoProduto]=" & Me.CodigoProduto.Column(0) & "")
ElseIf I <= 0 Or (I - Me.Quantidade.Value) < 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Me.Quantidade = ""
Me.Quantidade.SetFocus


Else
Dim resultado As VbMsgBoxResult
resultado = MsgBox("Tem Certeza que deseja Atualizar o Estoque?", vbYesNo, "Estoque")

End If

If resultado = vbYes Then
DoCmd.RunSQL ("update produto set QuantidadeInicial= (QuantidadeInicial-(Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]);")

Else
resultado = vbNo
Me.Quantidade = ""
Me.Quantidade.SetFocus

End If
End Sub

Boa tarde,

Private Sub Quantidade_Exit(Cancel As Integer)
Dim Qt As Double,resultado As VbMsgBoxResult

If IsNull(Me.CodigoProduto) Then
Me.CodigoProduto.SetFocus
Else
Qt = DLookup("[QuantidadeInicial]", "[Produto]", "[CodigoProduto]=" & Me.CodigoProduto.Column(0) & "")
If Qt <= 0 Or QtMsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Me.Quantidade = Null
Me.Quantidade.SetFocus
Else
resultado = MsgBox("Tem Certeza que deseja Atualizar o Estoque?", vbYesNo, "Estoque")
If resultado = vbYes Then
DoCmd.RunSQL ("update produto set QuantidadeInicial= (QuantidadeInicial-(Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade])) where Produto.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]);")
Elseif resultado = vbNo then
Me.Quantidade = Null
Me.Quantidade.SetFocus
End If
End If
End If
End Sub

Amigo muito obrigado, está resolvida minha dor de cabeça, era porque quando clicava no campo quantidade sem ter escolhido o codigo do produto o programa travava, agora está 100%. implementei no meu mesmo código porém o ponto chave foi
If IsNull(Me.CodigoProduto) Then
Undo
Me.CodigoProduto.SetFocus

pois eu estava comparando como operador de numeros e não de expressão lógica. Mais uma vez obrigado.