我的表单根据用户来自哪里而略有不同 - 所以为了区分,我有一个未绑定的文本框显示1或0.当从需要1的表单打开时,这是代码I使用方法:
Private Sub ProductDetailsButton_Click()
On Error GoTo Err_ProductDetailsButton_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "BrandProductIndividualDetails"
stLinkCriteria = "[Ref]=" & Me![Ref]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!BrandProductIndividualDetails!OrderCount = 1
Exit_ProductDetailsButton_Click:
Exit Sub
Err_ProductDetailsButton_Click:
MsgBox Err.Number & " Error - " & Err.Description
Resume Exit_ProductDetailsButton_Click
End Sub
我知道为什么会出现“2448 - 无法为此对象赋值”错误?