如何在变量中存储文本框名称引用,以便稍后将该文本框的值分配给另一个变量

时间:2016-09-02 01:36:16

标签: access-vba ms-access-2010

我有一个我目前正在工作的访问项目,经过大量研究后我无法找到简单的答案。我所拥有的是一个包含10个文本框的未绑定表单。我需要将相同的代码添加到每个框的双击事件中。基本上我需要将活动文本框的名称及其值传递给另一个表单。以下示例代码说明了我尝试做的事情。

Textbox1 = date  (Is the active control) 

Dim x1, x2 as string
Dim x3 as date


x1 = Me.ActiveControl.name
x2 = "Me." & x1 & ".value"
x3 = x2 
msgbox x3 

这会导致错误数据类型不匹配,因为它为我提供了分配给x2(Me.Textbox1.Value)而不是日期的字符串。提前感谢您的帮助。

1 个答案:

答案 0 :(得分:0)

您正在创建一个字符串变量并将其分配给变量x2。

要获得实际值,您需要从表单的控件集中提取它。

请改为尝试:

x2 = Me.Controls(x1).Value