Vba 在单行中显示多个是/否字段

我有一个表工具，其中有15个是/否字段。用户检查事件中使用了哪些工具。可以是一个或多个，也可以没有。表中还有其他字段，但所有相关字段名称都以tblTool开头

在报告中，我想用单行显示工具，类似“使用的工具：锤子、凿子…”

我目前的解决方案是使用一组if语句来检查每个项，如果它是正的，则将其添加到变量中。我的问题是，有没有更简单的方法？某种循环会检查某个表中以相同字符串开头的所有字段名？

可能已经解决了这个问题

txt = ""
Set db = CurrentDb()
Set rs1 = db.OpenRecordset("Select * from ops where opID = " & Me.opID)
Dim fld As DAO.Field
For Each fld In rs1.Fields
    If Left(fld.Name, 5) = "opImp" Then
        If fld = True Then
        txt = txt & fld.Name
        End If
        End If
Next
Set fld = Nothing

---

是的，我打算建议循环记录集.Fields集合。：-）副问题。当我通过底部的记录选择器更改表单中的记录时，即使所有绑定的数据都更改了，该计算数据仍然指向上一条记录。我必须做什么才能重新计算？我尝试了onload和onupdate事件，但没有成功。当您移动到绑定表单中的其他记录时，会触发

OnCurrent

事件