Office中国论坛/Access中国论坛

标题: 报表底色 [打印本页]

作者: liumporite 时间: 2016-10-28 15:07
标题: 报表底色
本帖最后由 liumporite 于 2016-11-17 17:40 编辑

如何根据车型，决定整个标签的底色，加了以下代码，想通过改 BOX 的底色，但不成功Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
If Me.车型 = H60A Then '若文字为 H60A
Me.Box111.BackColor = RGB(255, 204, 153) '改为茶色
ElseIf Me.车型 = "280B" Then '若文字为 280B
Me.Box111.BackColor = RGB(128, 128, 128) '改为灰色
End If
End Sub

已经上传附件，无法实现按照机型的不同生成的标签底色不同

作者: 站到终点站 时间: 2016-10-28 16:11
使用条件格式

作者: tmtony 时间: 2016-10-28 16:29
报表还是窗体？
可
if 控件.value=1 then
控件.backcolor=rgb(255,0,0)
end if

作者: liumporite 时间: 2016-10-28 18:53
本帖最后由 liumporite 于 2016-10-28 18:55 编辑

tmtony 发表于 2016-10-28 16:29
报表还是窗体？
可
if 控件.value=1 then

就是报表以上的也已经试了，没有用吗。是整个标签底色，不是单个的控件

作者: roych 时间: 2016-11-1 13:51
把代码放在主体的格式化事件（detail_format）中试试。

作者: liumporite 时间: 2016-11-17 17:43

roych 发表于 2016-11-1 13:51
把代码放在主体的格式化事件（detail_format）中试试。

已经把代码放到 format 事件中，但是无法实现标签底色的自动变化

作者: Henry D. Sy 时间: 2016-11-17 18:34

liumporite 发表于 2016-11-17 17:43
已经把代码放到 format 事件中，但是无法实现标签底色的自动变化

[attach]60311[/attach]是这样吗

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