Office中国论坛/Access中国论坛

标题: 【求助】数据表窗体设置控件背景颜色，有附件 [打印本页]

作者: huanghyd 时间: 2012-11-3 18:38
标题: 【求助】数据表窗体设置控件背景颜色，有附件
各位高手，我的库用单一窗体时控件名Color会按照VBA代码返回对应颜色值的颜色，见附件窗体frm_ColorShow2。但如果窗体时数据表显示时控件名Color不会按照VBA代码返回对应颜色值的颜色，全部显示第一条记录颜色值的颜色见附件窗体frm_ColorShow1。请教数据表窗体要如何做呢？谢谢！

图片：

作者: huanghyd 时间: 2012-11-3 18:40
再传附件

作者: wufeng980114 时间: 2012-11-4 10:30
是这个意思吧？
见附件。

作者: huanghyd 时间: 2012-11-4 11:53
wufeng980114,,您好。。就是要这个效果。但你上传的附件没有达到，也没有找到那里改动过。请帮忙看看，再上传一次附件。谢谢！

作者: huanghyd 时间: 2012-11-4 19:11
请各位高手，帮忙看看，，指点下，，谢谢！

作者: huanghyd 时间: 2012-11-4 19:28
我检查发现wufeng980114同志把我在窗体当前事件的代码改在主体，但我的电脑显示没有效果，每条记录中Color不会按照VBA代码返回对应颜色值的颜色，请各位高手，帮忙看看，，指点下，，谢谢！

Private Sub 主体_Paint()
If IsNull(Me.Color) Then
Me.Color.BackColor = 16777215

ElseIf Me.Color <> "" Then
Me.Color.BackColor = Me.Color.Value
End If

End Sub

作者: lazybird 时间: 2012-11-4 20:11
这个只能通过设置控件的条件格式来实现，否则只能显示一种颜色

作者: huanghyd 时间: 2012-11-5 17:43
今天在win7系统下测试却是正常，可以显示对应颜色值的颜色。谢谢大家！

作者: wufeng980114 时间: 2012-11-8 08:21
对不住，这几天没有上网，我忘了说了，我是用ACCESS2010版本改的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)