problem with setting variables for currency data types

[jlawson258]

working in a function and trying to declare currency variables. I have ten variables declared. I then set each variable to 0 and then use FormatCurrency(1000000#, -1) for each variable.
when I run the code the first 9 variables are set to $1,000,000.00. the tenth variable is set to 100000000. this is the section of the code:

Dim filePath As String
Dim s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11 As String
Dim p, recreq, cpl, dona, c1, c2, civ, totbucks, lic, oth As Currency
Dim chks, recs As Integer
p = 0
recreq = 0
cpl = 0
dona = 0
c1 = 0
c2 = 0
civ = 0
totbucks = 0
lic = 0
oth = 0


p = FormatCurrency(1000000#, -1)
recreq = FormatCurrency(1000000#, -1)
cpl = FormatCurrency(1000000#, -1)


dona = FormatCurrency(1000000#, -1)
c1 = FormatCurrency(1000000#, -1)
c2 = FormatCurrency(1000000#, -1)
civ = FormatCurrency(1000000#, -1)
totbucks = FormatCurrency(1000000#, -1)
lic = FormatCurrency(1000000#, -1)
oth = FormatCurrency(1000000#, -1)

[pbaldy]

What's the purpose of formatting a variable? I'd format in the destination, but I guess that's me. In your declarations:

Dim p, recreq, cpl, dona, c1, c2, civ, totbucks, lic, oth As Currency

You've declared 9 variables as Variant and 1 as Currency. In VBA you have to declare each:

Dim p As Currency, recreq As Currency, ...

[jlawson258]

I am trying to set variables for currency. I have declared 10 different variables. I also use the formatcurrency. When I run the code the first 9 variables are set to $1,000.000.00 and the tenth variable is set to 100000000. this is a copy of the code.

Dim filePath As String
Dim s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11 As String
Dim p, recreq, cpl, dona, c1, c2, civ, totbucks, lic, oth As Currency
Dim chks, recs As Integer
p = 0
recreq = 0
cpl = 0
dona = 0
c1 = 0
c2 = 0
civ = 0
totbucks = 0
lic = 0
oth = 0


p = FormatCurrency(1000000#, -1)
recreq = FormatCurrency(1000000#, -1)
cpl = FormatCurrency(1000000#, -1)
dona = FormatCurrency(1000000#, -1)
c1 = FormatCurrency(1000000#, -1)
c2 = FormatCurrency(1000000#, -1)
civ = FormatCurrency(1000000#, -1)
totbucks = FormatCurrency(1000000#, -1)
lic = FormatCurrency(1000000#, -1)
oth = FormatCurrency(1000000#, -1)


thanks for any help you may have for me.

[ranman256]

you set them all to VARIANT exept the last: oth .

you must define the type for every variable:

Dim p As Currency, recreq As Currency, cpl As Currency, dona As Currency , c1 As Currency, c2 As Currency, civ As Currency , totbucks As Currency, lic As urrency, oth As Currency

(just because its on the same line, does not give it a defined type.)

[CJ_London]

post appears to be repeated here
https://www.accessforums.net/showthread.php?t=82099

[pbaldy]

Duplicate threads merged since both had replies.