[AccessD] [EXTERNAL] Re: Parameter (argument) order
John Colby
jwcolby at gmail.com
Fri Feb 17 08:51:41 CST 2023
LOL, how cool is that.
On Fri, Feb 17, 2023 at 8:46 AM jack drawbridge <jackandpat.d at gmail.com>
wrote:
> Arthur,
> I submitted your question to chatgpt and received a response as follows.
> ------------------------------------------------------------------
> Ms access how to pass 2 arrays to a function that compares the arrays
> element by element and returns false if they are not equivalent?
>
> To pass two arrays to a function in MS Access VBA and compare them element
> by element, you can follow these steps:
>
> Declare a function that accepts two arrays as arguments. For example:
>
> vbnet
>
> Function CompareArrays(arr1() As Variant, arr2() As Variant) As Boolean
> ' Your code here
> End Function
>
> In this example, we're declaring a function called CompareArrays that
> accepts two arrays of Variant type as arguments.
>
> In the function body, loop through the elements of the arrays and
> compare them element by element. If any of the elements are not equal,
> return False. If all of the elements are equal, return True. For example:
>
> vbnet
>
> Function CompareArrays(arr1() As Variant, arr2() As Variant) As Boolean
> Dim i As Integer
>
> If UBound(arr1) <> UBound(arr2) Then
> CompareArrays = False
> Exit Function
> End If
>
> For i = 0 To UBound(arr1)
> If arr1(i) <> arr2(i) Then
> CompareArrays = False
> Exit Function
> End If
> Next i
>
> CompareArrays = True
> End Function
>
> In this example, we're first checking if the length of the two arrays is
> equal. If they are not, we return False. Then, we loop through the elements
> of the arrays using the For loop and compare them element by element. If
> any of the elements are not equal, we return False. If all of the elements
> are equal, we return True.
>
> To call the function, create two arrays and pass them to the function
> as arguments. For example:
>
> scss
>
> Dim arr1(2) As Variant
> Dim arr2(2) As Variant
>
> arr1(0) = 1
> arr1(1) = 2
> arr1(2) = 3
>
> arr2(0) = 1
> arr2(1) = 2
> arr2(2) = 4
>
> Debug.Print CompareArrays(arr1, arr2) ' Returns False
>
> In this example, we're creating two arrays arr1 and arr2, filling them with
> elements and passing them to the CompareArrays function. The function
> returns False because the last element of arr1 and arr2 are different.
>
> Note that when passing arrays to a function, you need to make sure that the
> arrays are of the same data type and have the same number of elements.
>
> On Fri, Feb 17, 2023 at 1:30 AM Shane Groff via AccessD <
> accessd at databaseadvisors.com> wrote:
>
> > Hi Arthur, Stuart gave you an example of how to declare a function that
> > takes arrays as arguments:
> >
> > Function ArrayCompare(ar1() As String, ar2() As String) As Boolean
> >
> > The parentheses () after ar1 and ar2 indicate that these are arrays of
> > Strings, not just strings.
> >
> > As Stuart also pointed out, since a Variant can hold an Array, you could
> > use:
> >
> > Function ArrayCompare(ar1 As Variant, ar2 As Variant) As Boolean
> >
> > And pass in Arrays as arguments (but this would be less clear, unless you
> > had some case where you wanted to pass in something other than an array).
> >
> > My point was simply that the documentation for ParamArray is correct, it
> > just isn't designed for the problem you are trying to solve.
> >
> > Shane
> >
> > -----Original Message-----
> > From: AccessD <accessd-bounces+shaneg=microsoft.com at databaseadvisors.com
> >
> > On Behalf Of Arthur Fuller
> > Sent: Thursday, February 16, 2023 10:24 PM
> > To: Access Developers discussion and problem solving <
> > accessd at databaseadvisors.com>
> > Subject: Re: [AccessD] [EXTERNAL] Re: Parameter (argument) order
> >
> > Thanks for trying, Stuart. You know that I love your mind and intellect.
> > But apparently I am still failing to pose my question properly. Let me
> try
> > once more. I want to pass two arrays to a function, and then do whatever
> I
> > want with them. One simple possibility is to compare them. Another is to
> > concatenate them and return the result. A third is to "subtract" them and
> > return the difference as a tiny array. Another is to perform a
> > matrix-multiplication on them, and return that result.
> >
> > the template is simple:
> > Function arrManipulate(a1,a2) as <whatever> 'not sure how to declare
> the
> > args; as Variant?
> > Do Somestuff with a1 and a2 ' they are both arrays
> > Return SomeResult
> > End Function
> >
> > Maybe I'm missing something in VBA, but so far I can't seem to get from
> > here to there. It's easy in C and C++, but I have not yet arrived at the
> > equivalent method in VBA.
> >
> > On Fri, Feb 17, 2023 at 1:08 AM Stuart McLachlan <stuart at lexacorp.com.pg
> >
> > wrote:
> >
> > > On 17 Feb 2023 at 5:07, Shane Groff via AccessD wrote:
> > >
> > > > https://nam06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fle
> > > > arn.microsoft.com%2Fen-us%2Foffice%2Fvba%2Flanguage%2Fconcepts%2Fget
> > > > ting&data=05%7C01%7Cshaneg%40microsoft.com%7Cfe4f20e8635c4d5f041508d
> > > > b10afa42f%7C72f988bf86f141af91ab2d7cd011db47%7C1%7C0%7C6381221188605
> > > > 78677%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLC
> > > > JBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=19kB%2FD0FQCP9Y21
> > > > YHyrpeF1ZulVrm%2BecPu%2Bkpln%2BHBo%3D&reserved=0
> > > > -started/understanding-parameter-arrays
> > > >
> > > > A ParamArray is not for passing an array as an argument, it is for
> > > > allowing you to pass a dynamic number of arguments as an array:
> > > >
> > > > If you declare:
> > > > Function CalcSum(ParamArray args() as Variant) As Double
> > > >
> > > > You can call it like so:
> > > >
> > > > x = CalcSum(34, 47, 99, 12)
> > > > or
> > > > x = CalcSum(1, 1)
> > > >
> > > > and it can add all the arguments together (it receives all the
> > > > arguments as a single array).
> > > >
> > > > It must be the last argument in the declaration, since all the
> > > > arguments at the end of the caller will be 'consumed' to create the
> > > > array, so there can't be any additional arguments.
> > > >
> > >
> > > Another way to pass a series of arguments as an array :) Function
> > > PassArray() As Long Dim v As Variant v = Array("Some text", 2, 3)
> > > UseArray v End Function
> > >
> > > Function UseArray(v As Variant) As Long Debug.Print Mid$(v(0), v(1),
> > > v(2)) End Function
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > https://nam06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fdata
> > > baseadvisors.com%2Fmailman%2Flistinfo%2Faccessd&data=05%7C01%7Cshaneg%
> > > 40microsoft.com%7Cfe4f20e8635c4d5f041508db10afa42f%7C72f988bf86f141af9
> > > 1ab2d7cd011db47%7C1%7C0%7C638122118860578677%7CUnknown%7CTWFpbGZsb3d8e
> > > yJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C30
> > > 00%7C%7C%7C&sdata=pvd9iE12M85Lc7zq0Tif0Jwu8%2FLjg2i2a6Qd%2Fq158Ws%3D&r
> > > eserved=0
> > > Website:
> > > https://nam06.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.d
> > > atabaseadvisors.com%2F&data=05%7C01%7Cshaneg%40microsoft.com%7Cfe4f20e
> > > 8635c4d5f041508db10afa42f%7C72f988bf86f141af91ab2d7cd011db47%7C1%7C0%7
> > > C638122118860578677%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIj
> > > oiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=4W8m9rL
> > > ettQh6Zvfz%2FjFcrU1QBeetXyxAynYgoUs%2B1A%3D&reserved=0
> > >
> >
> >
> > --
> > Arthur
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> >
> >
> https://nam06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fdatabaseadvisors.com%2Fmailman%2Flistinfo%2Faccessd&data=05%7C01%7Cshaneg%40microsoft.com%7Cfe4f20e8635c4d5f041508db10afa42f%7C72f988bf86f141af91ab2d7cd011db47%7C1%7C0%7C638122118860578677%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=pvd9iE12M85Lc7zq0Tif0Jwu8%2FLjg2i2a6Qd%2Fq158Ws%3D&reserved=0
> > Website:
> >
> https://nam06.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.databaseadvisors.com%2F&data=05%7C01%7Cshaneg%40microsoft.com%7Cfe4f20e8635c4d5f041508db10afa42f%7C72f988bf86f141af91ab2d7cd011db47%7C1%7C0%7C638122118860578677%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=4W8m9rLettQh6Zvfz%2FjFcrU1QBeetXyxAynYgoUs%2B1A%3D&reserved=0
> > --
> > 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
>
--
John W. Colby
Colby Consulting
More information about the AccessD
mailing list