[Resolvido]Baixa no estoque Ajuda

Boa noite,
Estou tentando rodar um formulario onde devo dar baixa na quantidade de um produto que um cliente pede. Toda vez que tento colocar a quantidade solicitada vai para o Depurador. Já pesquisei dias e dias e esse forum esta sendo meu ultimo recurso.
Anexei o arquivo access zipado nesse post. Peço encarecidamente que dêem uma olhada, isso já virou questão de honra pra mim, tenho q fazer isso funcionar.

PS. Estou usando esse codigo o VB:
Private Sub Quantidade_Exit(Cancel As Integer)
DoCmd.RunSQL ("update Produto set Quantidade=(Quantidade-(Formulários![FPedido]![SubFormDetalhePedido]![Quantidade])) where
Produto.CodigoProduto=(Formulários![FPedido]![SubFormDetalhePedido]![CodigoProduto]);")
End Sub

Desde já
Muito obrigado.

Rafael Barros

Ola seja bem vindo ao fórum;

teste;


Private Sub Quantidade_Exit(Cancel As Integer)

DoCmd.SetWarnings False
DoCmd.RunSQL "update Produto set Quantidade=Quantidade-Forms![FPedido]![SubFormDetalhePedido].Form![Quantidade]" _
& " where Produto.CodigoProduto=Forms![FPedido]![SubFormDetalhePedido].form![CodigoProduto]"
DoCmd.SetWarnings True

End Sub

Nossa, perfeito!!!
Muito obrigado, to impressionado com a rapidez na reposta.

Obrigado pelo retorno o forum agradece.

Na proxima não esqueça o Resolvido, desta vez eu coloco.