472,347 Members | 2,383 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 472,347 software developers and data experts.

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

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...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*****
Nov 12 '05 #1
1 7505
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 (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 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*****


Nov 12 '05 #2

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

46
by: J.R. | last post by:
Hi folks, The python can only support passing value in function call (right?), I'm wondering how to effectively pass a large parameter, such as a...
2
by: Jeff Thur | last post by:
I am running a SQL Stored Procedure that will give the user a count of how many records are in the database as per certain criteria. I'm using the...
110
by: Mr A | last post by:
Hi! I've been thinking about passing parameteras using references instead of pointers in order to emphasize that the parameter must be an object....
5
by: Mark Dicken | last post by:
Hi All, I am trying to Pass A Collection To A FUNCTION ??? (Access 2000) I have a Class called BO (for Business Objects) Within BO I have a...
1
by: Peter Mullen | last post by:
Whew, it's been a while since I posted. Fogive me all for I have... anyway. I would like to be able to write a method of an object that could...
5
by: Tee | last post by:
Hi, When I have a function like: private string xyz(string Text) I can call it without passing in a string with xyz("") or xyz(string.Empty) ...
10
by: tshad | last post by:
I want to access multiple arguments based on name passed. For example I have the following asp:textboxes: BillingAddress1 BillingAddress2...
10
by: Robert Dailey | last post by:
Hi, I noticed in Python all function parameters seem to be passed by reference. This means that when I modify the value of a variable of a...
3
by: hydroxide8 | last post by:
hey im using cx_Oracle to connect my python code to Oracle database, and i wanted to know how can i pass PL/SQL-BOOLEAN argument to procedure ? my...
0
by: concettolabs | last post by:
In today's business world, businesses are increasingly turning to PowerApps to develop custom business applications. PowerApps is a powerful tool...
0
better678
by: better678 | last post by:
Question: Discuss your understanding of the Java platform. Is the statement "Java is interpreted" correct? Answer: Java is an object-oriented...
0
by: teenabhardwaj | last post by:
How would one discover a valid source for learning news, comfort, and help for engineering designs? Covering through piles of books takes a lot of...
0
by: Naresh1 | last post by:
What is WebLogic Admin Training? WebLogic Admin Training is a specialized program designed to equip individuals with the skills and knowledge...
0
by: antdb | last post by:
Ⅰ. Advantage of AntDB: hyper-convergence + streaming processing engine In the overall architecture, a new "hyper-convergence" concept was...
0
by: Matthew3360 | last post by:
Hi there. I have been struggling to find out how to use a variable as my location in my header redirect function. Here is my code. ...
0
by: AndyPSV | last post by:
HOW CAN I CREATE AN AI with an .executable file that would suck all files in the folder and on my computerHOW CAN I CREATE AN AI with an .executable...
0
hi
by: WisdomUfot | last post by:
It's an interesting question you've got about how Gmail hides the HTTP referrer when a link in an email is clicked. While I don't have the specific...
0
Oralloy
by: Oralloy | last post by:
Hello Folks, I am trying to hook up a CPU which I designed using SystemC to I/O pins on an FPGA. My problem (spelled failure) is with the...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.