access 批量设置条件格式

Private Sub Form_Load()
    For Each temp In Me.Controls
        If Not TypeOf temp Is Label Then temp.OnClick = "=GetVal()"
    Next
    AddConditionalFormattingToFields
End Sub

Function GetVal()
    Me.Tag = Nz(Me.单据编号, "")　　'设置窗体的tag值,以便在条件格式的表达式中能够引用得到这个值
    Me.Refresh
End Function


Sub AddConditionalFormattingToFields()Dim ctl As Control
    Dim str As String
    
    ' 获取当前活动的窗体
'    Set frm = Screen.ActiveForm
    
    ' 遍历窗体的每个控件
    For Each ctl In Me.Controls
        ' 只处理文本框类型的控件（包括文本框、组合框等）
        If ctl.ControlType = acTextBox Then
            ' 构建条件格式的表达式
            str = "[单据编号]=[Tag]"
            ' 添加条件格式到当前控件
            ctl.FormatConditions.Add acExpression, , str　　'注意这里
            ctl.FormatConditions(ctl.FormatConditions.Count - 1).BackColor = RGB(239, 183, 0) ' 设置背景色
        End If
    Next ctl
End Sub

这样就省下了不少功夫.效果如下.