如何将函数运行时计算的值分配给表单控件？

Question

我有一个值生成并分配给表单中私有函数中的整数变量，但我似乎无法将其分配给表单中的表单控件（文本框）。

我在表单的常规区域中定义了tcount（以使其在我尝试分配返回值的函数之外可访问）。我将另一个函数调用的结果分配给tcount，就像这样。

tcount = CountValues(Me.RecordSource,"[columnname]")

我使用MsgBox输出tcount，看起来不错。

我尝试过多次分配tcount到文本区域。

Set frmname.controlname = tcount   'error - you entered an expression that has no value'
Set Me.controlname = tcount        'error - you entered an expression that has no value'
frmname.controlname = tcount       'run-time error 2448, cant assign a value to this object'
Set Form.subfrmname.controlname = tcount   'Application-defined or object-defined error'

感谢您的见解。

Answer 1

分配给对象变量时使用

Set，而不是在分配给简单数据类型变量时使用。在这种情况下，赋值是文本框值属性，因此将其视为为变量赋值。

使用以下任一方法将整数存储在文本框中。

Me.controlname = tcount
Me.controlname.Value = tcount