How to Pass an COLLECTION as an Argument to a Procedure (PART 2)

**MGFoster** · Nov 12 '05, 02:41 PM

Re: How to Pass an COLLECTION as an Argument to a Procedure (PART2)

How to pass collection to sub/function:

dim col as collection
set col = new collection

' ... load the collection - or not ...

' Call a function that returns a string
strSomething = MyFunction(col)

------
The function declaration line:

Public Function MyFunction(col as Collection) As String
' etc. .......
End Function

HTH,

MGFoster:::mgf
Oakland, CA (USA)

Mark Dicken wrote:
[color=blue]
> Hi All
>
> I have found the following Microsoft Technet 'Q'
> Article :-
>
> Q210368 -ACC2000: How to Pass an Array as an Argument to a Procedure
>
> (I've also copied and pasted the whole contents into the bottom of
> this email)
>
> (Hopefully I will not upset Microsoft REF the Copyright '© 2003
> Microsoft Corporation. All rights reserved.')
>
> BASICALLY I'm after the same as this but instead of sending an ARRAY I
> really want to send a COLLECTION (sort of by value), the reason for
> this is to work in a more OO way and pump some values into a Function
> (or Class Method) and have the function 'abstract' the work and send
> me back results which may or may not be a COLLECTION
>
> I'm also very surprised that I have not seen anyone else asking this
> type of question.
>
> Any Ideas...???
>
> Many Thanks In Advance ...
>
> Regards
>
> Mark Dicken
>
>
>
>
> *****START*****
>
> Knowledge Base
>
> ACC2000: How to Pass an Array as an Argument to a Procedure
>
> PSS ID Number: 210368
>
> Article Last Modified on 5/16/2002
>
>
> --------------------------------------------------------------------------------
> The information in this article applies to:
>
>
> Microsoft Access 2000
> Microsoft Visual Basic for Applications
>
> --------------------------------------------------------------------------------
>
> This article was previously published under Q210368
> Moderate: Requires basic macro, coding, and interoperabilit y skills.
>
> This article applies to a Microsoft Access database (.mdb) and to a
> Microsoft Access project (.adp).
>
>
> SUMMARY
> In order for a procedure to accept an array as an argument, the
> procedure must declare the array argument with opening and closing
> parentheses after the argument name. Additionally, when passing the
> array to the procedure, you must include parentheses after the array
> name, unless you are using Visual Basic. Otherwise, you may receive
> the error message "Parameter type mismatch" or "Duplicate definition."
>
> Microsoft provides programming examples for illustration only, without
> warranty either expressed or implied, including, but not limited to,
> the implied warranties of merchantability and/or fitness for a
> particular purpose. This article assumes that you are familiar with
> the programming language being demonstrated and the tools used to
> create and debug procedures. Microsoft support professionals can help
> explain the functionality of a particular procedure, but they will not
> modify these examples to provide added functionality or construct
> procedures to meet your specific needs. If you have limited
> programming experience, you may want to contact a Microsoft Certified
> Partner or the Microsoft fee-based consulting line at (800) 936-5200.
> For more information about Microsoft Certified Partners, please visit
> the following Microsoft Web site:
> http://www.microsoft.com/partner/referral/
>
> For more information about the support options that are available and
> about how to contact Microsoft, visit the following Microsoft Web
> site:
> http://support.microsoft.com/default...EN-US;CNTACTMS
>
> MORE INFORMATION
> The following example demonstrates the correct syntax for procedure
> declarations with an array:
> Function YourFunctionNam e (InArray() As String) As Integer
>
> Sub YourSubName (InArray() As String)
>
> The following example demonstrates the correct syntax for procedure
> calls with an array:
> Result = YourFunctionNam e(YourArrayName ())
>
> YourSubName YourArrayName()
>
> NOTE: When calling procedures in Visual Basic for Applications, you do
> not have to include the opening and closing parentheses after
> "YourArrayN ame" in the above example.
> Example
> The following example demonstrates a sample user-defined function that
> loads an array with string values:
> Create a module and type the following line in the Declarations
> section if it is not already there:
> Option Explicit
>
> Type the following procedures:
> '---------------------------------------------------------------
> 'The function LoadArray() loads an array called MyArray
> 'with string values. After loading the array, the function
> 'calls a procedure that outputs each array element
> 'to the Immediate window.
> '---------------------------------------------------------------
>
> Function LoadArray()
> Dim i as Integer
> ReDim MyArray(10) As String
> For i = 1 to 10
> MyArray(i) = "Test Value: " & i
> Next i
> DisplayArray MyArray()
> End Function
>
> '---------------------------------------------------------------
> 'LoadArray() Sub Procedure
> '---------------------------------------------------------------
>
> Sub DisplayArray (InArray() As String)
> Dim i as Integer
> For i = 1 to UBound(InArray)
> Debug.Print InArray(i)
> Next i
> End Sub
>
> To test this function, type the following line in the Immediate
> window, and then press ENTER:
> ? LoadArray()
>
> Note that the following list appears the Immediate window:
> Test Value: 1
> Test Value: 2
> Test Value: 3
> Test Value: 4
> Test Value: 5
> Test Value: 6
> Test Value: 7
> Test Value: 8
> Test Value: 9
> Test Value: 10
>
> REFERENCES
> For more information about arrays, in the Visual Basic Editor, click
> Microsoft Visual Basic Help on the Help menu, type using arrays in the
> Office Assistant or the Answer Wizard, and then click Search to view
> the topic.
>
> Keywords: kbinfo kbProgramming KB210368
> Technology: kbAccess2000 kbAccess2000Sea rch kbAccessSearch kbVBASearch
> kbZNotKeyword3 kbZNotKeyword6
>
>
>
> --------------------------------------------------------------------------------
>
> Send feedback to Microsoft
>
> © 2003 Microsoft Corporation. All rights reserved.
> *****FINISH**** *[/color]

How to Pass an COLLECTION as an Argument to a Procedure (PART 2)

How to Pass an COLLECTION as an Argument to a Procedure (PART 2)

Comment