如何根据条件改变窗体中文本框内数值颜色.

木行之　发表于：2009-07-16 17:51:47 　

窗体中有三个文本框:都直接引用的是数据表中的数据.绑定了数据源.谢谢

姓名(xm),性别(xb),出生日期(csrq)

我想实现当性别 =男且到退休年龄人员的姓名为红色退休人员我是按月算的.

或者当性别 =女且到退休年龄人员的姓名为红色

自己做了一个,无法实现.如下:

Private Sub xm_BeforeUpdate(Cancel As Integer)
If Me.xb = "男" And DateDiff("m", Me.csrq, Date) >= 60 * 12 Then
Me.xm.forecolour = 255
If Me!xb = "女" And DateDiff("m", Me.csrq, Date) = 55 * 12 Then
Me.xm.forecolour = 255
End Sub

Top

wyh-感谢各位老师。发表于：2009-07-16 18:12:47

老师：可直接在窗体文本框中的条件设置不行号?

Top

曹光耀发表于：2009-07-16 20:45:13

点击下载此附件

请查看窗体2

Private Sub Form_Current()
If Me.分类 = "办公类" And Me.名称 = "笔" Then
    Me.分类.ForeColor = 255
    Me.名称.ForeColor = 255
ElseIf Me.分类 = "书类" And Me.名称 = "书" Then
    Me.分类.ForeColor = vbBlue
    Me.名称.ForeColor = vbBlue
ElseIf Me.分类 = "办公类" And Me.名称 = "纸" Then
    Me.分类.ForeColor = vbGreen
    Me.名称.ForeColor = vbGreen
Else
    Me.分类.ForeColor = 0
    Me.名称.ForeColor = 0
End If
End Sub

Top

木行之发表于：2009-07-17 07:35:47

谢谢caoguangyao　版主相助.

问题已经解决了.

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]如何根据条件改变窗体中文本框内数值颜色.