Problems with font color index

[Skip Bisconer]

I am trying to make the font color red in a form text box when the value is less than 0. I thought I knew how to do it but it's not working. This is just a look up form based on a selection from a combo box. I have removed the conditional formating from the spread sheet cells involved to see if that makes a difference but it doesn't seem to. Here is my code for one of several textboxes. I appreciate any help you can give me.

With frmEarnings

.txtDividends = Range("EarningCompany").Cells(cmbCompany.ListIndex + 1, 2)
.txtDividends.Value = Format(Val(txtDividends), "$#,##0.00")
If .txtDividends < 0 Then
.txtDividends.Font.ColorIndex = 3
Else
'No change
End If
End With

 

[Norie]

Skip

Since you are using a text box and formatting it as currency the if statement won't work.

Also it's the ForeColor property I think you want to change.

Try this.

 txtDividends = Range("EarningCompany").Cells(cmbCompany.ListIndex + 1, 2)
    If Val(txtDividends) < 0 Then
        txtDividends.ForeColor = &HFF&
    Else
        'No change
    End If
    txtDividends.Value = Format(Val(txtDividends), "$#,##0.00")

 

[Skip Bisconer]

Sorry to bother anyone. I found my own answer. I should have used fore color instead of font.colorindex

It's kind of like losing your wallet. You look for a couple of days then go down to the DMV stand in line for a half hour and pay your money to get a new license and whamo that night you will find the wallet.