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

[Mark Dicken]

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 interoperability 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.aspx?scid=fh;EN-US;CNTACTMS

MORE INFORMATION
The following example demonstrates the correct syntax for procedure
declarations with an array:
Function YourFunctionName (InArray() As String) As Integer

Sub YourSubName (InArray() As String)

The following example demonstrates the correct syntax for procedure
calls with an array:
Result = YourFunctionName(YourArrayName())

YourSubName YourArrayName()

NOTE: When calling procedures in Visual Basic for Applications, you do
not have to include the opening and closing parentheses after
"YourArrayName" 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 kbAccess2000Search kbAccessSearch kbVBASearch
kbZNotKeyword3 kbZNotKeyword6



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

Send feedback to Microsoft

© 2003 Microsoft Corporation. All rights reserved.
*****FINISH*****

 

[Albert D. Kallal]

I am not sure what your problem is here?

Why not continue this thread on your previous post?


Dim oCollection As New Collection
Dim oBO As New BO

oCollection.Add "aaa"
oCollection.Add "BBB"
oCollection.Add "CCC"

oBO.ShowColleciton oCollection

The above should work just fine. Why are you posting some huge document
about passing arrays? You are not trying pass an array to a procedure, you
are trying to pass a collection to a class object (a rather different
thing). I see no reason to post all that stuff on arrays for your problem.
Quit being such a bone head here. At the very lest, why not just post the
link. (however, that post served NOTHING in any way to help with your
problem. Regardless, your whole posting helps no one to solve your
particular problem anyway.

The above example code should work just fine. Perhaps you are using
collections incorrectly, or your BO object function is not defined
correctly. For the above, the function showcollecion in the class object BO
would be:

Public Function ShowCollection(col As Collection)

MsgBox "Item count in collecton = " & col.Count

End Function