Urgent! Colour or bolding control problem

[Blackwidow]

I have a rather complex report, the report is based on number calculation... I want the report to either shade the field or colour it.. if the number in the field is negative... is this possible? If not I am going to have to scrap 6mths work!!

Please help!!

 

[IMO]

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

   If Me.YourField < "0" Then
          Me.YourField.FontBold = True
          Me.YourField.ForeColor = vbRed
    Else
          Me.YourField.FontBold = False
          Me.YourField.ForeColor = vbBlack
    End If

End Sub

Change "YourField" to the Name of the text box.

HTH
IMO

 

[IMO]

Sorry, my mistake, get rid of the " " from around the 0.

IMO

 

[Blackwidow]

Put all my fields in but... it doesnt appear to have done anything?

 

[IMO]

To add another field do something like...

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

   If Me.YourField < 0 and Me.YourSecondField < 0 Then
          Me.YourField.FontBold = True
          Me.YourField.ForeColor = vbRed
          Me.YourSecondField.FontBold = True
          Me.YourSecondField.ForeColor = vbRed
    Else
          Me.YourField.FontBold = False
          Me.YourField.ForeColor = vbBlack
          Me.YourSecondField.FontBold = False
          Me.YourSecondField.ForeColor = vbBlack
    End If

End Sub

IMO

 

[Blackwidow]

Wonderful!

That works fantastically!!!! Some times you lot are so clever it must suprise yourselves!

 

[Rich]

Or you could just set the Format of the control to
#,##0.00[Black];#,##0.00[Red]