passing array to function to pick up values

Hi all,
I am trying to sort out the fijner points of passing arrays between
functions. I simply do not understand how this works. Of course I get it all
to work with a global array, which I can modify anytime, but I'd rather
learn to do it by passing arguments. I have already found to use ByRef while
digging in the archive.

If I run the function UseArray I get as result:
, bla

instead of
<some character> , bla

what's wrong?

code follows
-------
Function MakeArray(ByRef myArray As Variant)
Dim teller As Long

For teller = 1 To 10
'assign some random alphanumeric stuff to array
myArray(teller) = Chr(teller * 10)
Next teller
End Function

Function UseArray()
Dim varArr As Variant
Dim i As Long

'give a large dimension here because can't redim preserve inside other
function
'can be shrunk afterwards if I ever get this to work
'this code is just a tryout for other stuff I'm doing in a project where
I don't know
'how many items I pick up along the way.
ReDim varArr(100)
MakeArray (varArr)
For i = 1 To 10
Debug.Print varArr(i) & " , bla"
Next i
End Function

Dave
Wed Aug 25 07:14:07 CDT 2004

Hi Birgit,

I've used the Join statement to pass a string (a joined array) and then
break it apart again using Split statement in the receiving
routine/function.
You might find the article "How to Create and Use a Global Array in VBA
Procedures" at
http://support.microsoft.com/default.aspx?scid=kb;en-us;170721&Product=wrd
interesting/useful.

good luck and HTH
Dave

"Birgit" <albiwa.deletethis@moretodelete.xs4all.nl> wrote in message
news:%2343KwspiEHA.1356@TK2MSFTNGP09.phx.gbl...
> Hi all,
> I am trying to sort out the fijner points of passing arrays between
> functions. I simply do not understand how this works. Of course I get it
all
> to work with a global array, which I can modify anytime, but I'd rather
> learn to do it by passing arguments. I have already found to use ByRef
while
> digging in the archive.
>
> If I run the function UseArray I get as result:
> , bla
>
> instead of
> <some character> , bla
>
> what's wrong?
>
> code follows
> -------
> Function MakeArray(ByRef myArray As Variant)
> Dim teller As Long
>
> For teller = 1 To 10
> 'assign some random alphanumeric stuff to array
> myArray(teller) = Chr(teller * 10)
> Next teller
> End Function
>
> Function UseArray()
> Dim varArr As Variant
> Dim i As Long
>
> 'give a large dimension here because can't redim preserve inside other
> function
> 'can be shrunk afterwards if I ever get this to work
> 'this code is just a tryout for other stuff I'm doing in a project
where
> I don't know
> 'how many items I pick up along the way.
> ReDim varArr(100)
> MakeArray (varArr)
> For i = 1 To 10
> Debug.Print varArr(i) & " , bla"
> Next i
> End Function
>
>

Steve
Wed Aug 25 09:38:19 CDT 2004

Hi Birgit,

Here's some code that passes a string array to a function:

Dim strStuff(1 to 5) As String

dim intAnswer As Integer

intAnswer = GetAnswer (strPassed:=StrStuff)

-------------

Public Function GetAnswer (strPassed() As String) As Integer

'blah blah blah

End Function



HTH and have a great day!



Steve



"Birgit" <albiwa.deletethis@moretodelete.xs4all.nl> wrote in message
news:%2343KwspiEHA.1356@TK2MSFTNGP09.phx.gbl...
> Hi all,
> I am trying to sort out the fijner points of passing arrays between
> functions. I simply do not understand how this works. Of course I get it
all
> to work with a global array, which I can modify anytime, but I'd rather
> learn to do it by passing arguments. I have already found to use ByRef
while
> digging in the archive.
>
> If I run the function UseArray I get as result:
> , bla
>
> instead of
> <some character> , bla
>
> what's wrong?
>
> code follows
> -------
> Function MakeArray(ByRef myArray As Variant)
> Dim teller As Long
>
> For teller = 1 To 10
> 'assign some random alphanumeric stuff to array
> myArray(teller) = Chr(teller * 10)
> Next teller
> End Function
>
> Function UseArray()
> Dim varArr As Variant
> Dim i As Long
>
> 'give a large dimension here because can't redim preserve inside other
> function
> 'can be shrunk afterwards if I ever get this to work
> 'this code is just a tryout for other stuff I'm doing in a project
where
> I don't know
> 'how many items I pick up along the way.
> ReDim varArr(100)
> MakeArray (varArr)
> For i = 1 To 10
> Debug.Print varArr(i) & " , bla"
> Next i
> End Function
>
>

Jay
Wed Aug 25 15:50:22 CDT 2004

Hi Birgit,

This is a little strange: The array comes back empty because you're calling
a function but not assigning it to anything. If you do this

Dim bRes As Boolean
bRes = MakeArray(varArr)

then it all works. Likewise, if you change the declaration of MakeArray to a
Sub and call it with

MakeArray varArr

then it works. (There's a stupid rule in VBA that you must use parentheses
in a function call but you cannot use them in a subroutine call, as if the
interpreter can't tell the difference.)

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Birgit wrote:
> Hi all,
> I am trying to sort out the fijner points of passing arrays between
> functions. I simply do not understand how this works. Of course I get
> it all to work with a global array, which I can modify anytime, but
> I'd rather learn to do it by passing arguments. I have already found
> to use ByRef while digging in the archive.
>
> If I run the function UseArray I get as result:
> , bla
>
> instead of
> <some character> , bla
>
> what's wrong?
>
> code follows
> -------
> Function MakeArray(ByRef myArray As Variant)
> Dim teller As Long
>
> For teller = 1 To 10
> 'assign some random alphanumeric stuff to array
> myArray(teller) = Chr(teller * 10)
> Next teller
> End Function
>
> Function UseArray()
> Dim varArr As Variant
> Dim i As Long
>
> 'give a large dimension here because can't redim preserve inside
> other function
> 'can be shrunk afterwards if I ever get this to work
> 'this code is just a tryout for other stuff I'm doing in a
> project where I don't know
> 'how many items I pick up along the way.
> ReDim varArr(100)
> MakeArray (varArr)
> For i = 1 To 10
> Debug.Print varArr(i) & " , bla"
> Next i
> End Function

Birgit
Thu Aug 26 02:16:25 CDT 2004

Hi Jay,
Thank you so much! I believe I will have to look at all my projects very
carefully because I have this situation a lot (functions being called like
subs). However, I never ran into problems before. But then I was also not
passing around arrays. I'll avoid it in the future in order to make the code
more stable.

I also thank the other contributors to my question. I will keep those tips
for future projects.

Birgit

"Jay Freedman" <jay.freedman@verizon.net> schreef in bericht
news:uE7NlUuiEHA.1336@TK2MSFTNGP15.phx.gbl...
> Hi Birgit,
>
> This is a little strange: The array comes back empty because you're
calling
> a function but not assigning it to anything. If you do this
>
> Dim bRes As Boolean
> bRes = MakeArray(varArr)
>
> then it all works. Likewise, if you change the declaration of MakeArray to
a
> Sub and call it with
>
> MakeArray varArr
>
> then it works. (There's a stupid rule in VBA that you must use parentheses
> in a function call but you cannot use them in a subroutine call, as if the
> interpreter can't tell the difference.)
>
> --
> Regards,
> Jay Freedman
> Microsoft Word MVP FAQ: http://word.mvps.org
>
> Birgit wrote:
> > Hi all,
> > I am trying to sort out the fijner points of passing arrays between
> > functions. I simply do not understand how this works. Of course I get
> > it all to work with a global array, which I can modify anytime, but
> > I'd rather learn to do it by passing arguments. I have already found
> > to use ByRef while digging in the archive.
> >
> > If I run the function UseArray I get as result:
> > , bla
> >
> > instead of
> > <some character> , bla
> >
> > what's wrong?
> >
> > code follows
> > -------
> > Function MakeArray(ByRef myArray As Variant)
> > Dim teller As Long
> >
> > For teller = 1 To 10
> > 'assign some random alphanumeric stuff to array
> > myArray(teller) = Chr(teller * 10)
> > Next teller
> > End Function
> >
> > Function UseArray()
> > Dim varArr As Variant
> > Dim i As Long
> >
> > 'give a large dimension here because can't redim preserve inside
> > other function
> > 'can be shrunk afterwards if I ever get this to work
> > 'this code is just a tryout for other stuff I'm doing in a
> > project where I don't know
> > 'how many items I pick up along the way.
> > ReDim varArr(100)
> > MakeArray (varArr)
> > For i = 1 To 10
> > Debug.Print varArr(i) & " , bla"
> > Next i
> > End Function
>
>