Question

我正面对以下pbm。

问题：

我想知道用String调用textboxes / comboboxes的.value的方法。

示例：

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

我想多次比较 ItemName TextBox （输入+ ItemName）的值和Subform数据表（SubStockEdit！DS + ItemName）中另一个文本框的值。

代码尝试：

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

按名称获取TextBox - Access

2 个答案: