如何在變量中存儲文本框名稱引用，以便稍後將該文本框的值分配給另一個變量

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