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

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

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

How do I store textbox name reference in a Variable to later assign the value of that textbox to another variable

ms-access

vba

ms-access-2010