Array - How to check if array has no elements in it? 1

[lollyjar]

How do I check if an array has any elements in it. If I hover over an array with no elements, the pop-up box says that the value is 'nothing', but if I try to use ubound(array()), then I get a 'Subscipt out of range' error. There must be some way?

Cheers,

Lollyjar

 

[KarMac21]

I use the following function to determine if an array is empty or not:

Public Function IsEmptyArray(tArray As Variant) As Boolean
Dim lngElements As Long
    
    On Error Resume Next
    lngElements = UBound(tArray)
    
    IsEmptyArray = IIf(Err.Number = 0, False, True)
    
    Err.Clear
End Function

Just put this in a module and call within your code and you should be good to go.

 

[lollyjar]

Perfect KarMac21, thanks.

Lollyjar