Foreign Currency on Reports

[AccessReportWriter]

I write reports for accounting software that is an access database, 2007
version. A field in the database, [Currency] allows users to enter the
currency that a particular client uses such as Pounds or Euros.

This field is placed into the Detail Section of a Report and VBA Code in the
Detail, On Format Section looks something like this:

If TextCurrency="Euros" Then
SellingCost.Format = "Euro"
Else
SellingCost.Format = "Currency"
End If

This method works for our U.S. Clients that purchase from European vendors;
however, I now have a Client in the UK - with standard reporting (Currency)
in British Pounds that wants to purchase from U.S. Vendors. Therefore, they
want purchase orders to use US Dollars as the Currency.

I have tried placing Dollars in our text field and using:

If TextCurrency="Dollars" Then
SellingCost.Format = "Dollar"
Else
SellingCost.Format = "Currency"
End If

.... and I end up with something like 0Dollar or similar in the field on the
report. I also tried using SellingCost.Format = "Dollars" but obtained a
similar result.

Any ideas?

 

[fredg]

I write reports for accounting software that is an access database, 2007
version. A field in the database, [Currency] allows users to enter the
currency that a particular client uses such as Pounds or Euros.

This field is placed into the Detail Section of a Report and VBA Code in the
Detail, On Format Section looks something like this:

If TextCurrency="Euros" Then
SellingCost.Format = "Euro"
Else
SellingCost.Format = "Currency"
End If

This method works for our U.S. Clients that purchase from European vendors;
however, I now have a Client in the UK - with standard reporting (Currency)
in British Pounds that wants to purchase from U.S. Vendors. Therefore, they
want purchase orders to use US Dollars as the Currency.

I have tried placing Dollars in our text field and using:

If TextCurrency="Dollars" Then
SellingCost.Format = "Dollar"
Else
SellingCost.Format = "Currency"
End If

... and I end up with something like 0Dollar or similar in the field on the
report. I also tried using SellingCost.Format = "Dollars" but obtained a
similar result.

Any ideas?

If [TextCurrency] ="Euros" Then
[SellingCost].Format ="¤#,###.00"
Elseif [TextCurrency] = "Dollars" Then
[SellingCost].Format = "$#,###.00"
Elseif [TextCurrency] = "Pounds" Then
[SellingCost].Format = "£#,###.00"
Else
SellingCost.Format = "Your default format here"
End If