编译错误：找不到方法或数据成员，需要使用控件名作为变量

Question

我有以下代码

formName = "'" & Me.Name & "'"
Dim rss As DAO.Recordset
Set rss = CurrentDb.OpenRecordset("SELECT * FROM CheckBoxT WHERE [Form Name] = " & formName)
If Not (rss.EOF And rss.BOF) Then
    rss.MoveFirst
    Do Until rss.EOF = True
        Me.rss![Checkbox Name] = True
        rss.MoveNext
    Loop
End If
rss.Close
Set rss = Nothing

我在rss上的Me.rss![Checkbox Name] = True行收到错误。我在这里尝试做的是，Me.checkbox110 = true但是我想使用rss来代替checkbox110！[Checkbox Name]。这给了我错误。将控件名称用作变量的正确方法是什么。

Answer 1

您尝试做什么并不是很清楚，但如果是编辑，那么：

If Not (rss.EOF And rss.BOF) Then
    rss.MoveFirst
    Do Until rss.EOF = True
        If rss![Checkbox Name].Value = False Then
           rss.Edit 
               rss![Checkbox Name].Value = True
           rss.Update
        End If
        rss.MoveNext
    Loop
End If