报表打开时通过VBA为文本框赋值报错：无法为此对象赋值

你遇到的“无法为此对象赋值”错误，大概率是由几个常见问题导致的，咱们一步步排查解决：

1. 先修正语法错误：中文引号 #

你代码里用的是中文双引号“”，但VBA只识别英文双引号""，这会直接引发语法问题，先把所有引号替换成英文的：

Private Sub Report_Open(Cancel As Integer)
    Dim var1 As Variant
    var1 = DLookup("[Menu_Item]", "[Thaw_Tags]", "[ID] = 1")
    Me.Text34.Value = var1
End Sub

2. 更换报表事件时机 #

Report_Open事件触发时，报表的控件还没完全初始化完毕，这时候直接给控件赋值很容易触发错误。建议把代码移到**Report_Load事件**中，这个事件会在报表所有控件加载完成后才触发，更适合做控件赋值操作：

Private Sub Report_Load()
    Dim var1 As Variant
    var1 = DLookup("[Menu_Item]", "[Thaw_Tags]", "[ID] = 1")
    Me.Text34.Value = var1
End Sub

3. 检查文本框的属性 #

• 确认Text34是未绑定文本框：如果这个文本框已经绑定到报表记录源的某个字段，直接赋值.Value会和绑定逻辑冲突。这种情况下要么把文本框改成未绑定，要么调整报表的记录源来获取目标数据。
• 核对控件名称：确保报表上确实存在名为Text34的控件，没有拼写错误（比如数字34写成43，或者大小写不一致——虽然VBA不区分大小写，但控件名称要完全匹配）。

4. 处理DLookup返回Null的情况 #

如果DLookup找不到ID=1的记录，会返回Null，直接赋值给文本框也可能引发异常。可以用Nz函数处理Null值，让文本框显示空字符串：

Private Sub Report_Load()
    Dim var1 As Variant
    var1 = DLookup("[Menu_Item]", "[Thaw_Tags]", "[ID] = 1")
    Me.Text34.Value = Nz(var1, "") '如果返回Null就显示空内容
End Sub

按照上面的步骤逐一排查修改，应该就能解决你遇到的错误了。

内容的提问来源于stack exchange，提问作者user2002716