[AccessD] Problems with Arrays

[Arthur Fuller]

Jack,
Aha. ParamArray is a keyword, hitherto unknown to me. That may be the
winning lottery ticket
I will play with this when I get home.

On Tue, Jan 17, 2023 at 2:44 PM jack drawbridge <jackandpat.d at gmail.com>
wrote:

>  From Google search:
>
> Review this reference on Parameter Array
>
> https://learn.microsoft.com/en-us/office/vba/language/concepts/getting-started/understanding-parameter-arrays
>
> On Tue, Jan 17, 2023 at 2:34 PM Arthur Fuller <fuller.artful at gmail.com>
> wrote:
>
> > Thanks, Jack, that works but doesn't answer my question. You are just
> > making a local copy, rather than referencing an array declared at the top
> > of the module. I don't want to have to repeat your strategy in a dozen
> > functions. That defeats the purpose.
> >
> > The arrays are declared outside of the subs and functions. They are
> > declared Private, which in this context means local to this module. This
> > certainly works with normal variables (ints, strings, bools).  But I seem
> > unable to make it work.
> >
> > One question, before I load my revolver and do something stupid... Can a
> > function return an array? If so, I can work with that and get where I
> need
> > to go.
> >
> > On Tue, Jan 17, 2023 at 2:12 PM jack drawbridge <jackandpat.d at gmail.com>
> > wrote:
> >
> > > Arthur, based on Stuart's posts:
> > > Sub arthur1()
> > > Dim arrLetters() As Variant
> > > arrLetters = Array("", "A", "B", "C", "D", "E", "F", "G", "H", "I",
> "J",
> > > "K", "L", "M", _
> > >                  "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X",
> > > "Y", "Z")
> > >
> > > Dim ALetters() As String
> > > Dim s As String
> > > s = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
> > > ALetters = Split(s, ",")
> > > End Sub
> > >
> > > On Tue, Jan 17, 2023 at 1:32 PM Arthur Fuller <fuller.artful at gmail.com
> >
> > > wrote:
> > >
> > > > I am having problems with arrays, and specifically with passing
> arrays
> > > to a
> > > > function.
> > > > I have tried a couple of methods, and so far cannot determine what's
> > > wrong.
> > > >
> > > > At the top of a module is an array declaration:
> > > >
> > > > Dim arrLetters() as String
> > > > 'Public arrLetters() as String 'doesn't work either
> > > > I even tried declaring it as a Constant, embedding the population bit
> > > right
> > > > in the Declare. That didn't work.
> > > >
> > > > In a sub called Setup I try to populate arrLetters:
> > > > ' arrLetters is not visible here! I don't know why.
> > > > arrLetters = Array("", "A", "B", "C", "D", "E", "F", "G", "H", "I",
> > "J",
> > > > "K", "L", "M", _
> > > >                  "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W",
> "X",
> > > > "Y", "Z")
> > > > This generates an immediate Type Mismatch error.
> > > > If I declare the array within the Setup sub, it works fine:
> > > >
> > > > Dim arrLetters() as String
> > > > arrLetters = Array("", "A", "B", "C", "D", "E", "F", "G", "H", "I",
> > "J",
> > > > "K", "L", "M", _
> > > >                  "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W",
> "X",
> > > > "Y", "Z")
> > > >
> > > > i also have a function:
> > > >
> > > > Function arrFind( arrSearchIn as Variant, vTarget as Variant) As Long
> > > > Dim i as Integer
> > > > Dim intStart as Integer, intStop as Integer, intPos
> > > > iStart = LBound(arrSearchIn)
> > > > intStop = UBound(arrSearchIn)
> > > > For i = intStart to intStop
> > > > If arrSearchin(i) = vTarget) Then
> > > > intPos = i
> > > > End If
> > > > Next
> > > > etc.
> > > >
> > > > Busted again! If I try to pass in arrLetters, it still fails. I tried
> > > > changing the call to:
> > > >
> > > > Function arrFind(arr() As Variant, target As Variant) As Integer
> > > >
> > > > No luck either.
> > > >
> > > > I am flummoxed. What am I doing wrong?
> > > >
> > > > --
> > > > Arthur
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> >
> > --
> > Arthur
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
Arthur