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

所以我有一个表，其中包含我试图在表单上显示的总计列表，我需要从总计表中获取 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

您无法使用连接字符串直接访问对象引用，因为此类引用不是字符串数据类型。

相反，您需要从相关集合中访问该对象（在本例中，Controls集合），通过将对象的名称（作为字符串）提供给Item该集合的方法。

自从Itemmethod 是集合的默认方法，项目名称可以紧跟在集合后面作为参数。

例如：

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