ACC2000: How to Pass an Array as an Argument to a Procedure

Function YourFunctionName (InArray() As String) As Integer
				

Sub YourSubName (InArray() As String)
				

Result = YourFunctionName(YourArrayName())
				

YourSubName YourArrayName()
				

Example

1. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

2. 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
   					

3. 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