我有一个我目前正在工作的访问项目,经过大量研究后我无法找到简单的答案。我所拥有的是一个包含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)而不是日期的字符串。提前感谢您的帮助。
答案 0 :(得分:0)
您正在创建一个字符串变量并将其分配给变量x2。
要获得实际值,您需要从表单的控件集中提取它。
请改为尝试:
x2 = Me.Controls(x1).Value