Solved: Conditional Format of textbox on form

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:

Code:

---

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

---

Anyone point me in the right direction please :doh:

Code:

---

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

---

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]

Thanks chaps that works :clap:
Feathers, good link about colours :thumb

Quote:

---

Originally Posted by lifeson

Thanks chaps that works :clap:
Feathers, good link about colours :thumb

---

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