Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

Prüfen ob Array initialisiert ist

Aus Access Code Library
Version vom 14:49, 21. Jan. 2011 bei Josef Pötzl (Diskussion | Beiträge)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Wechseln zu: Navigation, Suche


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)
 
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
 
If (0 / 1) + (Not Not TestArray) = 0 Then
   Debug.Print "Array ist nicht initialisiert"
Else
   Debug.Print "Array ist initialisiert"
End If