如何在Access条件格式表达式中直接引用当前文本框名称

方案1：通用条件格式表达式（无需VBA，直接复用） #

Access条件格式的计算上下文支持直接用[Name]获取当前应用格式的控件名称，不需要依赖控件激活状态，你所有Role开头的文本框可以直接使用下面的统一表达式，无需修改：

((DLookUp("SkillID","RoleSkillClearView","Role = [forms]![techoverview]![RoleSummary]![" & [Name] & "] AND SkillID = [forms]![techoverview]![RoleSummary]![SkillID]"))=[Forms]![techoverview]![RoleSummary]![SkillID] And [Forms]![techoverview]![RoleSummary]![Skill level]<>0)

注意：如果你的窗体数据源中存在名为Name的字段会产生命名冲突，这种情况建议使用方案2。

方案2：VBA批量生成条件格式（适合大量列场景） #

你提到VBA不适用于连续窗体运行时格式设置，但用VBA预先批量给所有控件添加条件格式规则是完全可行的，不需要运行时动态修改，一次执行就能给50-100列批量添加所有条件，比手动操作效率高几十倍。
操作步骤：

1. 按Alt+F11打开VBA编辑器，插入一个新模块
2. 粘贴下面的代码，根据你的实际需求调整格式设置部分（比如隐藏控件、修改背景色等）

Sub 批量添加Role列条件格式()
    Dim frm As Form
    Dim ctl As Control
    Dim cond As FormatCondition
    
    ' 打开子窗体设计视图（请确认子窗体名称是RoleSummary，不对的话自行修改）
    DoCmd.OpenForm "RoleSummary", acDesign, , , , acHidden
    Set frm = Forms!RoleSummary
    
    ' 遍历所有Role开头的文本框
    For Each ctl In frm.Controls
        If ctl.ControlType = acTextBox And ctl.Name Like "Role####" Then
            ' 清空现有条件格式
            ctl.FormatConditions.Delete
            
            ' 生成当前控件对应的条件表达式
            Dim expr As String
            expr = "((DLookUp(""SkillID"",""RoleSkillClearView"",""Role = [forms]![techoverview]![RoleSummary]![" & ctl.Name & "] AND SkillID = [forms]![techoverview]![RoleSummary]![SkillID]"")=[Forms]![techoverview]![RoleSummary]![SkillID] And [Forms]![techoverview]![RoleSummary]![Skill level]<>0))"
            
            ' 添加条件格式规则，以下格式可按需修改
            Set cond = ctl.FormatConditions.Add(acExpression, , expr)
            ' 示例1：满足条件时隐藏控件
            ' cond.Visible = False
            ' 示例2：满足条件时黄色背景+加粗字体
            cond.BackColor = RGB(255, 255, 0)
            cond.FontBold = True
            
            ' 如果有10条条件，在这里重复添加即可，只要修改expr和对应的格式设置
        End If
    Next
    
    ' 保存修改并关闭窗体
    DoCmd.Close acForm, "RoleSummary", acSaveYes
    MsgBox "所有Role列条件格式已批量添加完成"
End Sub

3. 运行代码即可完成批量设置，后续如果要调整条件，只要修改代码里的表达式或格式，重新运行一次即可。

内容的提问来源于stack exchange，提问作者gwhy