[Resolvido]Baixa no estoque, Subtrair a QtdUso no campo QtdEstoque

Bom dia amigos!

fiz uma tela recentemente pra controle de liberação de tonners, eu tenho um campo que seleciona o tipo de cartucho que está na tabela Tbl_ImpEst

e preencho a QtdUso na tabela Tbl_Imp preciso que essa QtdUso seja substraido do campo QtdEstoque na mesma tela porém o campo QtdEstoque está na tabela Tbl_ImpEst, e a quantidade de uso está na Tbl_Imp.


por favor me ajudem a resolver esse caso, eu tentei fazer com consulta mas não da certo =/ tipo fazer uma soma [Tbl_Imp].[QtdEstoque] - [Tbl_ImpEst].[QtdUso]

mas não deu certo

Insira este código no evento antes de atualizar do campo QtdUso


Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
'Abre a tabela e seleciomna o cartucho
Set rs = db.OpenRecordset("Select * from Tbl_ImpEst where Codigo =" & Me.Cartucho.Column(0) & "")
'Verifica se tem saldo antes de fazer a venda
If rs!QtdEstoque > Me.QtdUso Then
'se tiver saldo retira o valor da venda
rs.Edit
rs!QtdEstoque = rs!QtdEstoque - Me.QtdUso.Value

rs.Update
'se n?o emite mensagem
Else
MsgBox ("Sem estoque"), vbCritical, "Mensagem"
'desfaz a saida
Me.Undo
End If
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

oi perdão por não ter postado a resposta, ficou otimo, obrigado pela ajuda eu não tinha fechado ainda pq poderia faltar algo, mas ficou excelente.

obrigado!