Handling empty arrays

[biw]

How can I handle a dynamic array that contains no records at all.
(i.e has not been redimensioned)

That is, an array defined as

Dim str_Array() as String

is supposed to get populated with data from a database. Sometimes there are no data.. and thus.. no redimensioning of the array will take place.

The problem is that

Ubound(str_Array)

returns a subscript-out-of-range-message. I could rewrite the code so that this situation does not occur, but that means more work for me.

Suggestions?

[honeybee]

There are two ways to do this. Maintain a counter that keeps track of how many elements have been added to the array. It will start with zero, and will be incremented or decremented with each addition to or removal from the array.

Or modify your code to trap the error 'Subscript Out Of Range' as it will indicate that the array is empty.

There was quite a fierce discussion on this topic a few weeks ago. You can search for that thread, you will find some interesting info.

.

[GlenW]

Try using something like this.
If it returns 0 the array is empty.

Public Function getArraySize(inArray())
    
    getArraySize = 0
    On Error Resume Next
    getArraySize = UBound(inArray) + 1
    
End Function

[biw]

Oh well.. better go with the error-trap then
Thanks anyway

[biw]

Oh.. didn't see that last reply.

Since it solves my problem it is more than good enough. Thanks.

[GlenW]

This is better, make one for each data type you want size arrays in.

Public Function getIntegerArraySize(inArray() As Integer) As Integer
    
    getArraySize = 0
    On Error Resume Next
    getArraySize = UBound(inArray) + 1
    
End Function