满足条件,改变记录的显示特征
时 间:2015-01-03 21:48:47
作 者:吴俊锋 ID:36923 城市:无锡
摘 要:遇到一个问题,不知道大家是否遇到过。
实现如下的目标,部门为某值时,记录背景显示黄色。功能是实现了,但是出来之后屏幕一直在闪烁。
正 文:
遇到一个问题,不知道大家是否遇到过。
实现如下的目标,部门为某值时,记录背景显示黄色。功能是实现了,但是出来之后屏幕一直在闪烁。
Private Sub Form_Open(Cancel As Integer)
setbackcolor Me.Form, "bm='设计一所' "
End Sub
Private Function setbackcolor(frm As Form, tj As String) As Boolean ‘该函数设置记录特性,从网络中获取,非常感谢!
Dim intCount As Integer
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 = vbYellow '背景黄色 65535
.ForeColor = vbBlack '前景色黑色
' .FontUnderline = True '加下划线
.FontBold = True '加黑
' .FontItalic = True '斜体
End With
End If
Next ctl
setbackcolor = True
Set ctl = Nothing
Set fcd = Nothing
End Function
实现如下的目标,部门为某值时,记录背景显示黄色。功能是实现了,但是出来之后屏幕一直在闪烁。
Private Sub Form_Open(Cancel As Integer)
setbackcolor Me.Form, "bm='设计一所' "
End Sub
Private Function setbackcolor(frm As Form, tj As String) As Boolean ‘该函数设置记录特性,从网络中获取,非常感谢!
Dim intCount As Integer
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 = vbYellow '背景黄色 65535
.ForeColor = vbBlack '前景色黑色
' .FontUnderline = True '加下划线
.FontBold = True '加黑
' .FontItalic = True '斜体
End With
End If
Next ctl
setbackcolor = True
Set ctl = Nothing
Set fcd = Nothing
End Function
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
学习心得
最新文章
- 精美简单实用的系统面板_完善版(改...(05.18)
- Access提示方法成员未找到的解...(05.17)
- Access运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)