Ms access 如何将在运行时在函数中计算的值分配给窗体控件?

Ms access 如何将在运行时在函数中计算的值分配给窗体控件?,ms-access,vba,Ms Access,Vba,我有一个值,它是在窗体中的私有函数中生成并分配给一个整数变量的,但我似乎无法将它分配给窗体中的窗体控件(文本框) 我在表单的常规区域中定义了tcount(以便在我试图分配返回值的函数之外访问它)。我将另一个函数调用的结果分配给tcount,如下所示 tcount = CountValues(Me.RecordSource,"[columnname]") 我正在使用MsgBox输出tcount,它看起来不错 我已经尝试过为文本区域分配tcount的几种方法 Set frmname.control

我有一个值,它是在窗体中的私有函数中生成并分配给一个整数变量的,但我似乎无法将它分配给窗体中的窗体控件(文本框)

我在表单的常规区域中定义了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'

感谢您提供的见解。

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

使用以下任一选项将整数存储在文本框中

Me.controlname=t帐户
Me.controlname.Value=t计数

当我尝试Me.controlname=t计数时,出现运行时错误“-2147352567无法为此对象分配值….使用Me.controlname.value=t计数时,出现运行时错误2448,无法为此对象分配值。。。。如果
Me.controlname
真的是一个文本框,我会继续尝试,我不明白你为什么会出现这个错误。当您收到错误时,单击按钮进入中断(调试)模式,并在即时窗口中查看您从中得到的信息:
?Typename(Me.controlname)
很棒的调用,我在控制源代码中硬编码了一个值……这导致了错误。一旦我离开,我就会像个魔术师一样工作。谢谢我也遇到了这个问题,经过一个小时的纠结,结果证明这是因为我在控件上设置了一个ControlSource。