Access 2016 VBA:如何在公式中使用控件名称?

时间:2016-12-01 18:14:35

标签: access-vba

在我的Access 2016报告中,我有10个名为txt1到txt10的控件,我想从表中的记录中填充它们。有没有办法根据我的计数器增加循环中的控件名称?

像这样的东西。显然Me.txt(计数器)不是一个数组,但我可以为我想做的最好的表示。

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

谢谢!

1 个答案:

答案 0 :(得分:0)

使用以下内容:

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