Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

Prüfen ob Array initialisiert ist

Aus Access Code Library
Wechseln zu: Navigation, Suche


Mit IsArray(..) kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert ist.

Dim TestArray() As Long
 
Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),
If (0 / 1) + (Not Not TestArray) = 0 Then
   Debug.Print "Array ist nicht initialisiert"
Else
   Debug.Print "Array ist initialisiert"
End If
Dim TestArray() As Long
 
ReDim TestArray(0)
 
Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),
 
If (0 / 1) + (Not Not TestArray) = 0 Then
   Debug.Print "Array ist nicht initialisiert"
Else
   Debug.Print "Array ist initialisiert"
End If
Dim TestArray(5) As Long
 
Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),
 
If (0 / 1) + (Not Not TestArray) = 0 Then
   Debug.Print "Array ist nicht initialisiert"
Else
   Debug.Print "Array ist initialisiert"
End If