Ruturning an Array

Function GetTableSize(tableRec As String) As Variant

Reguards
SteWi

Just realised that wasn't what was causing the problem. The problem was I want to call that function and store what it returns (an array sizeArray(1)) in an array.
The error I get is


Function GetTableData(tableRec as String) As Integer
    Dim tableSize(1) as Integer
   
    tableSize = getTableSize(tableRec)
   
End Function

The error I get for this is:

    Missing or incorrect subscripts for array tableSize

What am I doing wrong? Thanks.

-Sam

Use Variant!!


Private Function GetTableSize(tableRec As String) As Variant
  'Define array
  Dim sizeArray(1) As Integer

  'Enter size into an array
  sizeArray(0) = 123
  sizeArray(1) = 456

  'Return the array
  GetTableSize = sizeArray()
End Function


Private Sub Form_Load()
Dim arr As Variant

arr = GetTableSize("string")
MsgBox arr(0) & ", " & arr(1)

End Sub


Hope you get what I mean.
SteWi

Function GetTableData(tableRec as String) As Integer()
   Dim tableSize(1) as Integer
   
   tableSize = getTableSize(tableRec)
   
End Function

"tableSize" is an array of 2 elements. Index of an array is called subscript. The value returned by "getTableSize(tableRec)" function call can be stored in one of the element of an array. When you write "tableSize = getTableSize(tableRec)", System will not come to know in which element (subscript) you want to store the value returned by your function and hence will give you the error "Missing or incorrect subscripts for array tableSize". In your case, you've not provided the subscript value of the array element.

Use:
      tableSize(0) = getTableSize(tableRec)
      tableSize(1) = getTableSize(tableRec)

BTW From Micro$oft help on advanced features of arrays:

Returning an Array from a Function
It's possible for a function to return an array of values. For example, you might want to return an array of bytes from a function without having to perform conversions to and from a string.

Here’s a simple example of a function that returns an array of bytes:

Private Sub Form_Load()
   Dim b As Byte
   Dim i As Integer
   Dim ReturnArray() As Byte

   b = Cbyte(54)
   ReturnArray() = ArrayFunction(b)
   For i = 0 To Ubound(ReturnArray)
      Debug.Print ReturnArray(i)
   Next
End Sub

Public Function ArrayFunction(b As Byte) As Byte()
   Dim x(2) As Byte

   x(0) = b
   x(1) = b + CByte(200)
   x(2) = b + b
   

   ArrayFunction = x  
End Function

If only one value is to be stored then don't use array.

Duh!

* bonks his head on the edge of the table *

Either more coffee or get some sleep and wake-up in wonderland...

Shoot me, and put me out of my misery.

;-}

Think it was mentioned to use ByRef so here's a more direct example:

Private Function GetTableSize(ByVal tableRec As String, ByRef sizeArray() As Integer) As Integer
    sizeArray(0) = 100
    sizeArray(1) = 100
End Function
Private Sub Form_Load()
    Dim MyArray(1) As Integer
    GetTableSize "Test", MyArray()
    MsgBox MyArray(0)
    MsgBox MyArray(1)
End Sub

It took me a while to understand what you meant but when I got it it was obviouse and I don't know why it took me so long. I think it's now official - VB sucks.

-Sam