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

Question

我有一个我目前正在工作的访问项目，经过大量研究后我无法找到简单的答案。我所拥有的是一个包含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）而不是日期的字符串。提前感谢您的帮助。

Answer 1

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

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

请改为尝试：

x2 = Me.Controls(x1).Value