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

Question

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

在报告中，我想在单行中显示工具，例如“使用的工具：锤子、凿子...”

我目前对此的解决方案是一堆 if 语句，它们检查每个项目并将其添加到变量中，如果它是肯定的。我的问题是这个，有没有更简单的方法？某种循环会检查某个表中以相同字符串开头的所有字段名称？

Answer 1

可能已经解决了这个问题

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