Resolved_how can i tell if adynamic array is empty???

[Janeen228]

ubound(myArray) - gives error
isEmpty doesn't work

Please Help me! I'm stuck

[adzzzz]

You need the help of an API:

Option Explicit
 
Private Declare Function SafeArrayGetDim Lib "oleaut32" (ByRef saArray() As Any) As Long
 
Private Sub Form_Load()
  Dim testarray() As String
  
  Debug.Print SafeArrayGetDim(testarray)
End Sub

If the return value is greater than 0 then the array is dimensioned, otherwise it's not.

[Janeen228]

Thank you sooooo much!!!!

[longwolf]

You can also do it without an API like this.

Public Function IsDimmed(byRef vArray As Variant) As Boolean
  On Error goto Erro:
  'This causes an Handled error if the array isn't dimmed
  'and returns False
  IsDimmed = IsNumeric(UBound(vArray))
Erro:
End Function