通過名稱獲取文本框 - 訪問

Question

我正面臨以下pbm。

問：

我想知道一個字符串來調用文本框/組合框的.value的方法。

例子：

If InputLibelle.Value <> Me!SubStockEdit!DSLibelle.Value Then 

我想比較的ITEMNAME文本框（輸入+ ITEMNAME），並多次另一文本框的子窗體數據表的值的值（DS + ITEMNAME SubStockEdit！）。

代碼嘗試：

Dim TableColumnNames() As String 
     TableColumnNames = Split("Poids, Dimension1, Dimension2, 
            Dimension3, Description, Price", ",") 
For Each ColumnName In TableColumnNames 
    If Me.Name("Input" & ColumnName).Value <> ??? 
Next 

任何人有任何想法如何調用這些對象呢？

Answer 1

這將是：

Dim TableColumnNames() As String 

TableColumnNames = Split("Poids, Dimension1, Dimension2, Dimension3, Description, Price", ",") 

For Each ColumnName In TableColumnNames 
    If Me("Input" & ColumnName).Value <> Me!SubStockEdit("DS" & ColumnName).Value Then 
     ' Do stuff. 
    End If 
Next 

或許這個擴展語法：

If Me("Input" & ColumnName).Value <> Me!SubStockEdit.Form("DS" & ColumnName).Value Then 

Answer 2

試試這個

Controls("Input" & ColumnName).Name 
Controls("Input" & ColumnName).Value 

Me!SubStockEdit!Form.Controls("Input" & ColumnName).Value 

eval("Input" & ColumnName) 
eval("Me!SubStockEdit!DSLibelle")