[5分]写了条件格式代码，但是窗体一直闪烁

     str = "bjxs='显示'"     '字段bjxs='显示' 则背景颜色显示**
   ' MsgBox str
     If DCount("*", "tblhuiyijy", str) > 0 Then  '假如下一步中有自己 则操作改颜色  "xiab='" & Username & "'"
      For Each ctl In Me.sfrList.Form     '找到子窗体      frmxmlzd_List
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
            ctl.FormatConditions.Add acExpression, acEqual, 1
            ctl.FormatConditions(0).Modify acExpression, , str
            ctl.FormatConditions(0).BackColor = vbYellow
        End If
     Next
    End If