Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

【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


示   例:

点击下载此附件



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助