Currency Property
FpCurrencyFieldFormat
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
Applies to | ListFieldCurrency Object
See Also | List Object | ListFieldCurrency Object | MaximumValue Property | MinimumValue Property