format textbox to display Currency and Percentage

[flemmo]

Hi,

I have a query with 3 fields - PaymentAmount and PaymentTotal. The third field is a percentage of the two e.g:

PaymentAmount = 10000
PaymentTotal = 12000
PaymentPercentage = 83.333333333333

In my form I would like a text box to display the two combined i.e. £10.000.00 (83.33%).
At the moment it displays 10000 83.3333333333333. I can use £#,##0.00 to format the current half, but how can I then format the percentage to display 83.33%?

Thanks

 

[flemmo]

Managed to do it using the following:

TotalsString = Format(CCur(PaymentAmount), "£#,##0.00") & " (" & Format(Val(PaymentPercentage), "Percent") & ")"