Currency Property
Returns or sets an FpCurrencyFieldFormat enumerated constant that determines the type of currency to be used in the currency field. Read/write.
FpCurrencyFieldFormat can be one of these FpCurrencyFieldFormat constants. |
fpCurrencyFieldArgentina |
fpCurrencyFieldAustralia |
fpCurrencyFieldAustria |
fpCurrencyFieldBelgiumBF |
fpCurrencyFieldBelgiumFB |
fpCurrencyFieldBolivia |
fpCurrencyFieldBrazil |
fpCurrencyFieldCanada |
fpCurrencyFieldCanadaF |
fpCurrencyFieldChile |
fpCurrencyFieldColombia |
fpCurrencyFieldCostaRica |
fpCurrencyFieldCzech |
fpCurrencyFieldDenmark |
fpCurrencyFieldDominicanRepublic |
fpCurrencyFieldEcuador |
fpCurrencyFieldElSalvador |
fpCurrencyFieldEuro |
fpCurrencyFieldEuroPostfix |
fpCurrencyFieldFinland |
fpCurrencyFieldFrance |
fpCurrencyFieldGermany |
fpCurrencyFieldGreece |
fpCurrencyFieldGuatemala |
fpCurrencyFieldHonduras |
fpCurrencyFieldHongKong |
fpCurrencyFieldHungary |
fpCurrencyFieldIreland |
fpCurrencyFieldItaly |
fpCurrencyFieldJapan |
fpCurrencyFieldKorea |
fpCurrencyFieldMexico |
fpCurrencyFieldNetherlands |
fpCurrencyFieldNewZealand |
fpCurrencyFieldNicaragua |
fpCurrencyFieldNorway |
fpCurrencyFieldPanama |
fpCurrencyFieldParaguay |
fpCurrencyFieldPeru |
fpCurrencyFieldPoland |
fpCurrencyFieldPortugal |
fpCurrencyFieldPRChina |
fpCurrencyFieldRussia |
fpCurrencyFieldSingapore |
fpCurrencyFieldSlovakia |
fpCurrencyFieldSlovenia |
fpCurrencyFieldSouthAfrica |
fpCurrencyFieldSpain |
fpCurrencyFieldSweden |
fpCurrencyFieldSwitzerland |
fpCurrencyFieldTaiwan |
fpCurrencyFieldTurkey |
fpCurrencyFieldUnitedKingdom |
fpCurrencyFieldUnitedStates |
fpCurrencyFieldUruguay |
fpCurrencyFieldVenezuela |
expression.Currency
expression Required. An expression that returns a ListFieldCurrency object.
Remarks
The default value for this field is determined by the user's system settings.
Example
The following example creates a new field of type fpFieldCurrency and changes the default currency setting to display Canadian.
Sub CreateCurrencyField()
'Add new Currency field
Dim objApp As FrontPage.Application
Dim objLstFlds As ListFields
Dim objFldChoice As ListFieldCurrency
Dim strName As String
Set objApp = FrontPage.Application
Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
strName = "NewCurrencyField"
'Add new Field of type fpFieldCurrency to list
objLstFlds.Add Name:=strName, Description:="New Choice value Field", _
Fieldtype:=fpFieldCurrency, Required:=True
Set objFldChoice = objLstFlds.Item("NewCurrencyField")
'Change currency type to Canadian
objFldChoice.Currency = fpCurrencyFieldCanada
MsgBox "A new field named " & strName & " was added to the list " & _
objApp.ActiveWeb.Lists.Item(0).Name & "."
End Sub