Access分享--实现某字段数据重复后显示颜色/条件格式应用;数据重复就把重复的数据变为红色背景的示例-杜小杰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


Access分享--实现某字段数据重复后显示颜色/条件格式应用;数据重复就把重复的数据变为红色背景的示例

发表时间:2016/9/19 13:38:39 评论(1) 浏览(15522)  评论 | 加入收藏 | 复制
   
摘 要:用两种方法帮学员实现了此功能,第一种用条件格式,第二种通过写代码,如下图
正 文:

点击下载此附件



效果图:


方法一:用菜单上的条件格式工具,如下图



方法二:在窗体加载事件在加如下代码
Private Sub Form_Load()
'sfrChild是子窗体控件的名称,me.sfrChild.Form即代表子窗体
    SetMyFormat Me.sfrChild.Form, "编号之计数>1"
End Sub

Function SetMyFormat(frm As Form, tj As String) As Boolean
    Dim ctl As Control
    Dim fcd As FormatCondition
    For Each ctl In frm.Controls
    '如果控件是文本框或组合框
        If ctl.ControlType = acTextBox or ctl.ControlType = acComboBox Then
            intCount = 0
            '清除条件格式
            ctl.FormatConditions.Delete
            '添加条件格式
            ctl.FormatConditions.Add acExpression, acEqual, tj
            Set fcd = ctl.FormatConditions.Item(intCount)
            '具体的格式显示
            With fcd
                .BackColor = 255    '背景色红色
                .ForeColor = 0    '前景色黑色
            End With
        End If
    Next ctl
    SetMyFormat = True
    Set ctl = Nothing
    Set fcd = Nothing
End Function



Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access2007\2010小技巧一则--图解设置条件格式的方法...  【麥田  2011/9/5】
【access小品】条件格式关联查询子窗体示例  【煮江品茶  2012/4/21】
【access示例】条件格式之为空的数据反色显示示例;字段是空白显...  【缪炜  2012/8/2】
Access条件格式应用示例\库存小于发货数量时记录整行变色,满足...  【风行  2012/8/18】
【Access条件格式】图解演示条件格式设置满足区间条件的数据反色...  【麥田  2014/1/6】
用VBA代码实现条件格式示例;通过Access vba实现条件格式...  【竹笛  2014/10/10】
常见问答
技术分类
相关资源
文章搜索
关于作者

杜小杰

文章分类

文章存档

友情链接