[AccessD] Replace negative sign with ( )

Mark

How about ...

Hide your actual field. Overlay a text field on top of it.

Either <1> place the following in CBF:

*************************************
If Me.lngField1 < 0 Then
	txtField1 = "(" & Format(Abs(Me.lngField1),'#,##0.00') & ")"
Else
	txtField1 = Format(Me.lngField1,'#,##0.00')
End If
*************************************

Or <2> place the following in ControlSource:

*************************************
=IIf(Me.lngField1 < 0,"(" & Format(Me.lngField1, '#,##0.00') & ")", _
	Format(Me.lngField1,'#,##0.00'))
*************************************

Regards,
Bob Gajewski


On Friday, January 31, 2003 12:43 PM, Mark Boyd [SMTP:MarkBoyd at mcbeeassociates.com] wrote:
> I have a report that displays monetary fields with a 'Standard' format,
> 2 decimal places
> 
> Currently it is showing negative numbers as -1,234.00
> 
> How can I make this display (1,234.00)?
> 
> I know this can be done if the field is formatted as Currency, but the
> client doesn't want to see the dollar sign
> 
>  
> 
> Any ideas?
> 
>  
> 
> Thanks,
> 
> Mark Boyd
> 
> Sr. Systems Analyst
> 
> McBee Associates, Inc
> 
>  << File: ATT00019.htm >>