Control de Stock

Partimos de una tabla articulo con un campo Referencia (clave única) y un campo StockActual.
Tenemos un formulario donde se introducen las ventas.
Bien, yo el artículo lo tengo encapsulado en una clase CArticulo. Y tengo un método CambiaStock(Unid as integer) que disminuye o aumenta el stock del artículo dependiendo de si Unid es positivo o negativo.
Bien, un usuario introduce una venta (los conceptos/artículos que van en esa venta se graban en la tabla conceptos).
Al cerrar el formulario recorremos la tabla de conceptos y hacemos lo siguiente
Dim Datos as database, RsConcepto as recordset
dim Articulo as new CArticulo
SEt datos=dbengine.workspaces(0).opendatabase("datos.mdb")
set Rsconcepto=datos.openrecordset("SElect Referencia,UnidVendidas from Conceptos where NumVenta=" & [Nº de Venta Actual])
rsconcepto.movefirst
while not rsconcepto.eof
articulo.ref=rsconcepto!referencia
articulo.cambiastock(-1*rsconcepto!unidvendidas)
rsconcepto.movenext
wend
rsconcepto.close:set rsconcepto=nothing
datos.close:set datos=nothing
set Articulo=nothing
Con esto hemos disminuido el stock de los artículos en la venta, pero surge el siguiente problema.
Un usuario hace hoy una venta y damos de baja los artículos en el almacén.
Pero mañana modifica esa venta (en vez de cinco unidades de un artículo son 12 por ejemplo).
Si volvemos a dar de baja los artículos descuadramos el stock.
Yo tomo la siguiente solución
Cuando entra el usuario a modificar una venta, doy de alta de nuevo los artículos en el almacén (como dar de baja pero sin multiplicar por -1) y cuando cierro los vuelve a dar de baja, si no hay ningún cambio en la venta no pasa nada. Y si lo hay, automáticamente queda el almacén cuadrado da igual que modifique las unidades vendidas o que incluso borre una linea del albarán de ventas o introduzca una nueva.