Vba “错误”；“应用程序定义或对象定义”；

我有一个表单包含两个子表单（BuyList\u Q子表单）和（ProductStore\u 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

获取标题中的错误！！ 您能帮我解决这个问题吗？

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

此外，无需使用

.Value

，因为这是数据输入控件的默认属性

Me.BuyList\u Q\u subform.Form.BL\u PPrice=Me.ProductStore\u Q\u subform.Form.[p\u Price]

---

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

谢谢，6月7日。它正在工作，谢谢你的进步