Inconveniente con UPDATE en Access con VBA
Por medio de la presente deseo pedirles el favor de lo siguiente:
Tengo una tabla llamada Productos que tiene un campo llamado Cantidad_compra necesito que dicho campo se decremente con otro campo llamado Cantidad_venta de una tabla llamada Productos_venta bajo un criterio que son los objetos de texto llamados cod_prod_piv y otro campo llamado Id_Cod_producto_venta, pero desafortunadamente no me decrementa nada el mencionado UPDATE. El codifgo es el siguiente:
Dim sSQL1 As String ' 18 de Mayo de 2015 DEBERIA ESTAR FUNCIONANDO BIEN pero decrementa Y ME DEJA EL VALOR EN 0
'''
sSQL1 = "UPDATE Productos INNER JOIN Productos_venta"
sSQL1 = sSQL1 & " ON Productos.Cod_producto = Productos_venta.Cod_producto_venta"
sSQL1 = sSQL1 & " SET Productos.Cantidad_compra= Productos.Cantidad_compra - Productos_venta.Cantidad_venta "
sSQL1 = sSQL1 & " WHERE Productos.Id_Cod_producto = " & Me.cod_prod_piv & " AND Productos_venta.Id_Cod_producto_venta= " & Me.Id_Cod_producto_venta & "" 'Esta bien
CurrentDb. Execute sSQL1 de verdad no entiendo por que no me decremeta.