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 [phone].
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 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*****

[MGFoster]

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:

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 [phone].
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 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*****