前面一直使用的更新查询：

CurrentDb.Execute "update 表_收付款 set 金额= val('" & Me.金额 & "')  where 单据编号='" & Me.单据编号 & "'"

结果系统更新后出现问题。后来发现，更新查询时，如果没有 where 子句，更新查询正常，加入条件后，就出现了问题。

最后用DAO方法更新，问题圆满解决。

        Set rst = CurrentDb.OpenRecordset( "Select * FROM [表_收付款] Where [单据编号]='" & Me!单据编号 & "'", dbOpenDynaset)
        rst.Edit
        rst!金额 = Val(Me.金额)
        rst.Update
        rst.Close
        Set rst = Nothing