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

时　间:2016-09-19 13:38:39
作　者:杜超   ID：16058  城市：江阴
摘　要:用两种方法帮学员实现了此功能，第一种用条件格式，第二种通过写代码，如下图
正　文:

点击下载此附件

效果图：

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

方法二：在窗体加载事件在加如下代码
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