在打开时将值分配给报告文本框

Question

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

我正在尝试使用报告获取一个文本框，以便在打开时从表中获取信息。然而，当我打开报告时，我收到错误“你无法为这个对象赋值”。我做错了什么？

Answer 1

你的dlookup条件错误。肯定是  result= dlookup (retrievingColumnName, TableName, [whereCondition]).

WhereCondition可能是： NumberColumn = 1 TextColumn ='这是一个文本'

搜索dlookup，你会看到很多例子。

我看到你修改了你的问题。正如所建议的那样，“打开时”的控件可能还没有准备好你取值。您可以尝试将代码移至“加载”或尝试设置焦点，然后设置值。