错误“应用程序定义或对象定义”答案

【问题标题】：Error "application-defined or object-defined"错误“应用程序定义或对象定义”
【发布时间】：2020-05-23 05:38:50
【问题描述】：

我有一个表单包含两个子表单（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

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

【问题讨论】：

标签： vba ms-access

【解决方案1】：

问题在于对象名称中的 ( ) 字符。建议不要在命名约定中使用空格或标点符号/特殊字符（下划线除外）。如果这样做，则必须用 [ ] 字符括起来以定义名称。

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

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

不要这样命名并保持理智。

【讨论】：

谢谢，六月 7。它正在工作，感谢您的提前