Office中国论坛/Access中国论坛

标题: datediff和elesif的应用问题 [打印本页]

作者: jackysu78 时间: 2011-6-25 21:44
标题: datediff和elesif的应用问题
本帖最后由 jackysu78 于 2011-6-25 23:04 编辑

[attach]45948[/attach]
If DateDiff("d", Date, Me.仔猪黄痢) < 0 Then
Me.仔猪黄痢.BackColor = 65280 '绿已过
ElseIf DateDiff("d", Date, Me.仔猪黄痢) <= "& Me.设置提前天数 &" Then
Me.仔猪黄痢.BackColor = 65535 '黄马上要执行
ElseIf DateDiff("d", Date, Me.仔猪黄痢) <= Me.设置提前天数 And DateDiff("d", Date, Me.仔猪黄痢) >= 0 Then
Me.仔猪黄痢.BackColor = 255 '红没打且有时间
End If

复制代码

请问如上代码要如何修改才能有效，目前‘绿色’的判断肯定没有问题，另外两个颜色有重复的区域，可表面上看来已经区分了，但不起作用，只能显示一个‘红色’，盼速帮忙！谢谢！

作者: jackysu78 时间: 2011-6-25 23:46
不知道有没有哪位老师指点一下，主要是想通过“非条件格式方式”达成如下条件格式下的效果。也求更好的实现思想和案例。

[attach]45949[/attach]

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