controle de estoque com erro

Boa tarde a todos

desenvolvi um sistema de controlle de estoque
só que na hora da baixa esta com erro
fiz assim

coloquei ao perder o foco

Private Sub SubFrm_Vendas_Produtos_Exit(Cancel As Integer)
If Me.SomaVendas >= 0 Then
Me.QuantVendida = Me.SomaVendas
End If

End Sub

quando saiu do formulario e vou pra busca para fazer outra baixa
mais quando tem muitos acima de 20 registros de baixa do mesmo item ele nao baixa e nao grava no banco
tive que criar um botao com o mesmo if... endif do foco ai ele baixa

sera que tem outro jeito pra isso?
olhei os exemplo do forum e tem algo muito parecido ... Me.Total.Value = Me.Total.Value + Me.txt_quant.Value
Grato
Helder

Da uma olhada nesse topico aqui para ver se ajuda...

https://www.maximoaccess.com/t27015-resolvidoerro-ao-dar-baixa-no-estoque


Nesse caso e realizado a Venda e ao clicar no botao ele percorre todos os produtos daquela venda, vai na tabela de produtos e atualiza o Estoque...

Bom dia Amigo Fabio
Grato pela ajuda vou fazer um teste aqui
Depois retorno

Helder