错误 "应用定义或对象定义"

Question

我有一个表单包含两个子表单(BuyList_Q子表单)和(ProductStore_Q子表单)，我使用一个按钮将数据从ProductStore传输到BuyList。

Private Sub Command69_Click()
On Error GoTo Err_AddtoOrder_Click

Me.BuyList_Q_subform.Form.BL_PCode.Value = Me.ProductStore_Q_subform.Form.BuyCode.Value
Me.BuyList_Q_subform.Form.BL_PName.Value = Me.ProductStore_Q_subform.Form.P_Name.Value
Me.BuyList_Q_subform.Form.BL_PPrice.Value = Me.ProductStore_Q_subform.Form.P_Price(S).Value
Me.BuyList_Q_subform.Form.BL_PCount.Value = Me.CountNum_txt.Value


Exit_AddtoOrder_Click:
   Exit Sub
Err_AddtoOrder_Click:
    MsgBox Err.Description
    Resume Exit_AddtoOrder_Click
End Sub

这一切都很好，但这行

Me.BuyList_Q_subform.Form.BL_PPrice.Value = Me.ProductStore_Q_subform.Form.P_Price(S).Value

得到的错误的标题！！你能帮助我解决这个问题吗？

Answer 1

问题出在对象名中的（ ）字符。建议在命名习惯中不要使用空格或标点符号特殊字符（下划线是例外）。如果你这样做，那么必须用[ ]字符来定义名称。

另外，不需要使用 .Value 因为这是数据输入控件的默认属性。

Me.BuyList_Q_subform.Form.BL_PPrice = Me.ProductStore_Q_subform.Form.[P_Price(S)]

不要这样命名，保存你的理智。