DanG
Registered User.
- Local time
- Yesterday, 19:41
- Joined
- Nov 4, 2004
- Messages
- 477
I am trying to change the font color in a cell using A97 using VBA (I suck at VBA but am gonna learn if it kills me).
Code:
Private Sub Text3_Change()
If Me.Text3 < 0 Then
Me.Text3.ForeColor = vbRed
Else
Me.Text3.ForeColor = vbBlack
End If
End Sub
Form fields:
1stNum
2ndNum
Text3 (1stnum - 2ndnum)
When text3 is a Neg value I would like it in red.
Also, I am not sure which event to tie this to.."change" seemed cool.
Code:
Private Sub Text3_Change()
If Me.Text3 < 0 Then
Me.Text3.ForeColor = vbRed
Else
Me.Text3.ForeColor = vbBlack
End If
End Sub
Form fields:
1stNum
2ndNum
Text3 (1stnum - 2ndnum)
When text3 is a Neg value I would like it in red.
Also, I am not sure which event to tie this to.."change" seemed cool.