如何列出Access表单所有控件的条件格式并生成控制代码？

没问题！我刚好有一套适配你需求的Access VBA方案，能帮你导出所有控件的条件格式配置，还能基于导出内容生成批量添加/移除的代码，完美解决你梳理复杂表单、优化连续表单导航速度的问题。

下面的VBA代码会把目标表单上所有支持条件格式的控件配置导出到一个新表ConditionalFormatsLog里，格式清晰易读，和你提到的Excel示例逻辑一致：

Sub ExportConditionalFormats()
    Dim frm As Form
    Dim ctl As Control
    Dim cf As FormatCondition
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer
    
    ' 选择当前激活的表单（也可以直接指定表单名：Set frm = Forms("你的表单名称")）
    Set frm = Screen.ActiveForm
    If frm Is Nothing Then
        MsgBox "请先打开要导出的表单！", vbExclamation
        Exit Sub
    End If
    
    ' 创建存储结果的表（如果已存在则先删除）
    Set db = CurrentDb
    On Error Resume Next
    db.Execute "DROP TABLE ConditionalFormatsLog"
    On Error GoTo 0
    db.Execute "CREATE TABLE ConditionalFormatsLog (" & _
        "FormName TEXT(255), " & _
        "ControlName TEXT(255), " & _
        "ConditionIndex INTEGER, " & _
        "FormatType TEXT(50), " & _
        "ConditionExpression TEXT(255), " & _
        "FontBold YESNO, " & _
        "FontItalic YESNO, " & _
        "FontUnderline YESNO, " & _
        "ForeColor LONG, " & _
        "BackColor LONG, " & _
        "Enabled YESNO, " & _
        "Locked YESNO)"
    
    Set rs = db.OpenRecordset("ConditionalFormatsLog", dbOpenDynaset)
    
    ' 遍历表单上所有支持条件格式的控件
    For Each ctl In frm.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acLabel, acCommandButton
                If ctl.FormatConditions.Count > 0 Then
                    ' 逐个导出控件的条件格式配置
                    For i = 0 To ctl.FormatConditions.Count - 1
                        Set cf = ctl.FormatConditions(i)
                        rs.AddNew
                        rs!FormName = frm.Name
                        rs!ControlName = ctl.Name
                        rs!ConditionIndex = i + 1 ' 从1开始计数，更符合阅读习惯
                        ' 转换条件格式类型为易读文本
                        Select Case cf.Type
                            Case acFormatConditionFieldValue
                                rs!FormatType = "字段值条件"
                            Case acFormatConditionExpression
                                rs!FormatType = "表达式条件"
                            Case acFormatConditionFieldHasFocus
                                rs!FormatType = "控件获得焦点"
                            Case acFormatConditionDataBar
                                rs!FormatType = "数据条"
                        End Select
                        ' 合并多条件表达式
                        rs!ConditionExpression = cf.Expression1 & IIf(cf.Expression2 <> "", " AND " & cf.Expression2, "")
                        ' 记录字体和控件状态设置
                        rs!FontBold = cf.FontBold
                        rs!FontItalic = cf.FontItalic
                        rs!FontUnderline = cf.FontUnderline
                        rs!ForeColor = cf.ForeColor
                        rs!BackColor = cf.BackColor
                        rs!Enabled = cf.Enabled
                        rs!Locked = cf.Locked
                        rs.Update
                    Next i
                End If
        End Select
    Next ctl
    
    ' 清理对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Set frm = Nothing
    
    MsgBox "条件格式已成功导出到表ConditionalFormatsLog！", vbInformation
End Sub

使用方法： #

• 打开你要处理的表单（窗体视图或设计视图都可以，推荐窗体视图）
• 按Alt+F11打开VBA编辑器
• 右键点击数据库对象 > 插入 > 模块，粘贴上面的代码
• 运行ExportConditionalFormats过程（按F5或点击编辑器的运行按钮）

导出的ConditionalFormatsLog表包含以下字段，每个条件格式都会生成一条记录：

• FormName：所属表单的名称
• ControlName：控件的名称
• ConditionIndex：该控件的条件格式序号（从1开始）
• FormatType：条件格式的类型（字段值/表达式/获得焦点/数据条）
• ConditionExpression：触发条件的表达式（多条件会自动合并）
• FontBold/Italic/Underline：字体样式设置（是/否）
• ForeColor/BackColor：字体颜色和背景色（十进制RGB值，可通过RGB(r,g,b)转换为可视化颜色）
• Enabled/Locked：控件的可用/锁定状态（是/否）

有了导出的配置，你可以轻松生成批量添加或移除条件格式的代码，解决连续表单导航卡顿的问题：

1. 移除指定表单的所有条件格式 #

Sub RemoveAllConditionalFormats(frmName As String)
    Dim frm As Form
    Dim ctl As Control
    
    ' 以设计视图打开表单（确保可以修改控件配置）
    DoCmd.OpenForm frmName, acDesign
    Set frm = Forms(frmName)
    
    ' 遍历控件并清除条件格式
    For Each ctl In frm.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acLabel, acCommandButton
                ctl.FormatConditions.Delete
        End Select
    Next ctl
    
    ' 保存修改并关闭表单
    DoCmd.Close acForm, frmName, acSaveYes
    Set frm = Nothing
    
    MsgBox frmName & "的所有条件格式已移除！", vbInformation
End Sub

2. 重新应用导出的条件格式 #

Sub ReapplyConditionalFormats(frmName As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim frm As Form
    Dim ctl As Control
    Dim cf As FormatCondition
    Dim formatType As Integer
    
    ' 以设计视图打开表单
    DoCmd.OpenForm frmName, acDesign
    Set frm = Forms(frmName)
    
    Set db = CurrentDb
    ' 按控件和条件序号排序，确保顺序正确
    Set rs = db.OpenRecordset("SELECT * FROM ConditionalFormatsLog WHERE FormName='" & frmName & "' ORDER BY ControlName, ConditionIndex")
    
    Do While Not rs.EOF
        Set ctl = frm.Controls(rs!ControlName)
        ' 转换格式类型为Access常量
        Select Case rs!FormatType
            Case "字段值条件"
                formatType = acFormatConditionFieldValue
            Case "表达式条件"
                formatType = acFormatConditionExpression
            Case "控件获得焦点"
                formatType = acFormatConditionFieldHasFocus
            Case "数据条"
                formatType = acFormatConditionDataBar
        End Select
        
        ' 添加新的条件格式并应用配置
        Set cf = ctl.FormatConditions.Add(formatType, , rs!ConditionExpression)
        cf.FontBold = rs!FontBold
        cf.FontItalic = rs!FontItalic
        cf.FontUnderline = rs!FontUnderline
        cf.ForeColor = rs!ForeColor
        cf.BackColor = rs!BackColor
        cf.Enabled = rs!Enabled
        cf.Locked = rs!Locked
        
        rs.MoveNext
    Loop
    
    ' 清理对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    ' 保存修改并关闭表单
    DoCmd.Close acForm, frmName, acSaveYes
    Set frm = Nothing
    
    MsgBox frmName & "的条件格式已重新应用！", vbInformation
End Sub

连续表单导航卡顿的核心原因是：每次切换记录时，所有控件的条件格式都会重新计算。你可以通过动态切换条件格式来解决：

方案一：加载时移除，编辑时恢复 #

在表单的代码模块中添加以下代码：

Private Sub Form_Load()
    ' 表单加载时移除所有条件格式，加快导航速度
    RemoveAllConditionalFormats Me.Name
End Sub

Private Sub Form_Current()
    ' 切换到当前记录时，仅当处于编辑状态才恢复条件格式
    If Me.NewRecord Or Me.Dirty Then
        ReapplyConditionalFormats Me.Name
    Else
        RemoveAllConditionalFormats Me.Name
    End If
End Sub

方案二：手动切换开关 #

添加一个按钮，让用户手动控制条件格式的开启/关闭：

Private Sub btnToggleCF_Click()
    Static cfEnabled As Boolean
    cfEnabled = Not cfEnabled
    
    If cfEnabled Then
        ReapplyConditionalFormats Me.Name
        btnToggleCF.Caption = "关闭条件格式"
    Else
        RemoveAllConditionalFormats Me.Name
        btnToggleCF.Caption = "开启条件格式"
    End If
End Sub

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