[AccessD] Feeding an paramarray to a paramarray

Ok, one method would be to hand off the actual work to another function,
(a recursive function) that knows it's getting an array:

Dim tmpSum As Long
Dim strTemp As String
Function RunningSum(ParamArray tmpValues() As Variant)
Dim tmpCurrentValue As Long
strTemp = ""
tmpSum = 0
DoTheWorkForRunningSum tmpValues
strTemp = Left(strTemp, Len(strTemp) - 3)
If Val(strTemp) <> tmpSum Then Debug.Print strTemp & " = " & tmpSum
tmpCurrentValue = tmpSum
If tmpSum < 10000 Then RunningSum tmpCurrentValue, tmpValues
End Function
Function DoTheWorkForRunningSum(ByVal tmpPossibleArray As Variant)
Dim tmpElement
For Each tmpElement In tmpPossibleArray
    If IsArray(tmpElement) Then
        DoTheWorkForRunningSum tmpElement
    Else
        tmpSum = tmpSum + Val(tmpElement)
        strTemp = strTemp & tmpElement & " + "
    End If
Next
End Function

?RunningSum(1)
1 + 1 = 2
2 + 1 + 1 = 4
4 + 2 + 1 + 1 = 8
8 + 4 + 2 + 1 + 1 = 16
16 + 8 + 4 + 2 + 1 + 1 = 32
32 + 16 + 8 + 4 + 2 + 1 + 1 = 64
64 + 32 + 16 + 8 + 4 + 2 + 1 + 1 = 128
128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 1 = 256
256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 1 = 512
512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 1 = 1024
1024 + 512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 1 = 2048
2048 + 1024 + 512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 1 = 4096
4096 + 2048 + 1024 + 512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 1
= 8192
8192 + 4096 + 2048 + 1024 + 512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 +
1 + 1 = 16384

To be continued.....

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Wednesday, March 12, 2008 10:49 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Feeding an paramarray to a paramarray

Drew,

LOL.

>Ya learn something new everyday.

Would you speak into the microphone please...

The "solution" did the trick, but at the expense of eliminating the
ability
to pass in multiple arguments to SecondParamfunction.  It is the keyword
ParamArray that allows the passing in of multiple arguments.  It is
often
useful to have two functions, BOTH of which have param arrays, and be
able
to call either one directly, but also call one from the other.  It is
the
"call one from the other" that is not possible if both have paramarrays.

ParamArrays are indeed a neat trick and one I use all of the time.  What
would be REALLY cool would be to be able to pass into TWO paramarrays
but
that is syntactically impossible - there is no way to denote where
parameters aimed at one array ends and where the parameters aimed at the
next array begins.  The language could be expanded to allow a semicolon
to
denote the end of one list and the beginning of the next but that
doesn't
currently exist.

John W. Colby
Colby Consulting
www.ColbyConsulting.com 
The information contained in this transmission is intended only for the person or entity to which it is addressed and may contain II-VI Proprietary and/or II-VI Business Sensitive material. If you are not the intended recipient, please contact the sender immediately and destroy the material in its entirety, whether electronic or hard copy. You are notified that any review, retransmission, copying, disclosure, dissemination, or other use of, or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited.