Solved: Conditional Format of textbox on form

[lifeson]

I am trying to get the colour of a text box on a form change colour if the value is less than todays date
Obviously this doesn't work:

[vba]Private Sub txtActiveto_Change()
If txtActiveTo.Value = "< Now()" Then
txtActiveTo.BackColor = &HFF&
Else
txtActiveTo.BackColor = &HFFFFFF
End If
End Sub[/vba]

Anyone point me in the right direction please

[Bob Phillips]

[vba]

Private Sub txtActiveto_Change()
If txtActiveTo.Value = Format(Now,"hh:mm") Then
txtActiveTo.BackColor = &HFF&
Else
txtActiveTo.BackColor = &HFFFFFF
End If
End Sub
[/vba]

[feathers212]

Try this. It formats the textbox after information is inputted. It requires that you have another control (textbox, combobox, etc.) on your form:

[vba]
Private Sub txtActiveto_AfterUpdate()
Dim CurrDate As Date
CurrDate = Now - 1
If txtActiveto < CurrDate Then
txtActiveto.BackColor = vbRed
Else: txtActiveto.BackColor = vbWhite
End If
End Sub
[/vba]

As for colors, check out this site:
http://www.mvps.org/dmcritchie/excel/colors.htm

[vba]txtActiveto.BackColor = RGB(255, 0, 0)[/vba]
gives you the same as
[vba]
txtActiveto.BackColor = vbRed [/vba]

[lifeson]

Thanks chaps that works
Feathers, good link about colours

[feathers212]

Thanks chaps that works
Feathers, good link about colours

Glad to help.....I've bookmarked that link for my own future projects