访问运行时错误2448

时间:2014-02-16 17:11:42

标签: vba ms-access

我在子窗体中的OnCurrent事件上有以下代码:

    Private Sub Form_Current()
Me.Parent![QUOT_TOTAL] = DSum(" Q_SUB ", "DSUM_Q_SUB")
Me.Parent![QUOT_TOTAL].Requery
Me.Parent![QUOT_DISC] = (Me.Parent![QUOT_TOTAL] * Me.Parent![DISCOUNT_PERCENT]) / -100
Me.Parent![QUOT_DISC].Requery
End Sub

当我打开表单时,我得到错误2448无法为此对象赋值。当我关闭警告时表单正常。

OnCurrent事件被分配给父窗体的子窗体,我想要更新的字段(如上所示)[QUOT_TOTAL]和[QUOT_DISC]位于父窗体上。它们在表格中被列为列,但我希望表格在子表单发生更改后立即更新。

请帮助

感谢

埃尔顿

1 个答案:

答案 0 :(得分:1)

对于QUOT_TOTAL,如果其值总是QTY x PRICE,我根本不会存储它(即,我' d从表中删除字段),并为文本框的控件源属性指定表达式=QTY * PRICE;但是,如果该计算只是可以覆盖的默认值,请保留该字段并将=QTY * PRICE分配给控件的默认值属性。您可以使用表达式QUOT_DISC=DISCOUNT_PERCENT / -100 * QTY * PRICE执行类似操作。也就是说,子表单的使用可能仍然会扰乱这个......