库存数量更新

我有一个配件商品资料库，里面有个库存数量字段，然后有个配件领料和配件收料，里面有个实收数量，现在我想当配件领料或者收料单据审核后自动增减更新商品资料库中的库存数量，但是不成功，请帮我看下代码是否正确。

            Dim strCalculateSQL As String
            strCalculateSQL = "UPDATE TMP_tbl_配件领料list INNER JOIN 高压管配件商品资料 ON TMP_tbl_配件领料list.配件编号 = 高压管配件商品资料.配件编号 " _
                              & "SET 高压管配件商品资料.库存数量 = 高压管配件商品资料.库存数量-TMP_tbl_配件领料list.实收数量;"
            DoCmd.RunSQL strCalculateSQL '用更新查询对商品信息表中的相关商品的库存数量进行增减
            DoCmd.SetWarnings True