So there are controls that have the format property set to "Currency".
Then you select "EURO" from the combo box. The text boxes now have the Format property set to "€#,##0.00;(€#,##0.00)".
Next, you select "GBP" from the combo box. There is a line of code
Code:
If ctl.Format = "currency" Then
This line is checking to see if the text box format property is "Currency"; it is not because the format had been changed to the Euro format.
So nothing is changed for that text box.
For each of the text boxes that you want to be able to change the currency format, enter "Currency" in the TAG property.
Then change the code to
Code:
Private Sub VENDORPAYCURRENCY_AfterUpdate()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Tag = "Currency" Then
Select Case Me.VENDORPAYCURRENCY
Case "DOLLAR"
ctl.Format = "$#,##0.00;($#,##0.00)"
Case "INR"
ctl.Format = "CURRENCY" '<<< -- is this correct for "INR"???
Case "GBP"
ctl.Format = "£#,##0.00;(£#,##0.00)"
Case "EURO"
ctl.Format = "€#,##0.00;(€#,##0.00)"
End Select
End If
Next ctl
End Sub