通过名称获取文本框 - 访问

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")