如何自动填充使用循环窗体上的文本框？

Question

所以我有了总数即时试图显示窗体上的列表的表，我有10个总计我需要从总量表显示，以获得在表格上10个文本框。

10个文本输入框是"A1, A2, A3..."及其使用DLookup找到ID字段数。

这似乎是与Me.TEXTX & X1.Value语法问题，但我不知道我还能怎么输入。

希望这是有道理的。谢谢！

Private Sub UPDATETOTALS()
    Dim FORMX As String
    FORMX = "GRID"

    Dim TEXTX As String
    TEXTX = "A"

    Dim TABLENAMEx As String, FINDFIELDx As String, GETFIELDx As String
    TABLENAMEx = "GRID_TOTALS"
    FINDFIELDx = "[ID]="
    GETFIELDx = "TODAY"

    Dim X1 As Integer
    For X1 = 1 To 10
        Me.TEXTX & X1.Value = DLookup(GETFIELDx, TABLENAMEx, FINDFIELDx & X1)
    Next X1
End Sub

Answer 1

直接使用串联的字符串则无法访问对象引用，作为这样的参考文献字符串数据类型的不。

相反，你需要从相关集合访问对象（在这种情况下，Controls集合），通过提供对象的名称（如字符串），以该集合的Item方法。

由于Item方法是集合的默认方法，项目名称可以紧跟集合作为参数。

例如：

For X1 = 1 To 10
    Me.Controls(TEXTX & X1).Value = DLookup(GETFIELDx, TABLENAMEx, FINDFIELDx & X1)
Next X1