訪問2016 VBA：如何在公式中使用控件名稱？

Question

在我的Access 2016報告中，我有10個控件名爲txt1到txt10，我想從表中的記錄填充它們。有沒有什麼辦法來增加我的循環中的控制名稱基於我的櫃檯？

就是這樣。很明顯，Me.txt（counter）不是一個數組，而是我可以爲我想要做的最好的表示。

Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Dim counter as integer 

Set db=CurrentDatabase 
Set rs=db.OpenRecordSet("SELECT * FROM table WHERE variable = " & something) 

If Not rs.EOF Then 
    rs.MoveFirst 
    counter = 1 
    Do Until rs.EOF 
     Me.txt(counter) = rs.Fields("field1") 
     counter = counter + 1 
     rs.MoveNext 
    Loop 
End If 

謝謝！

Answer 1

使用以下命令：

Me("txt" & counter) = rs.Fields("field1")