【Access示例】连续窗体添加条件格式的示例

时　间:2019-02-19 08:31:07
作　者:伊西军   ID：63090  城市：临汾
摘　要:【Access示例】连续窗体添加条件格式的示例
正　文:

      很多时候需要给连续窗体添加条件格式，这个只能通过vba代码设置，所以整理了一个示例供需要的人参考，具体的代码如下：

    '添加在窗体的加载事件
    Dim ctl As Control
    For Each ctl In Me
        '设置 字段1 文本框的条件格式
        If ctl.Name = "字段1" Then
            '清除现有条件格式
            ctl.FormatConditions.Delete
            '给 字段1 文本框 添加第1个条件格式：字段1>0.7 字体颜色为绿色
            ctl.FormatConditions.Add acExpression, , "[字段1] > 0.7"
            ctl.FormatConditions(0).ForeColor = vbGreen
            '给 字段1 文本框 添加第2个条件格式：字段1<0.3 字体颜色为红色
            ctl.FormatConditions.Add acExpression, , "[字段1] < 0.3"
            ctl.FormatConditions(1).ForeColor = vbRed
        End If
    Next

示   例:

点击下载此附件