devxlogo

Erase a Variant Array

Erase a Variant Array

You’ll find the IsArray() function helpful when you use Variant arrays that you can set or unset through your code and need to test often. However, once you declare the array, IsArray() returns True, even if the array has been erased using the Erase keyword. To solve this, reset a Variant array by assigning zero or null, so the IsArray() function returns the proper value:

 Dim myVar As VariantDebug.Print IsArray(myVar)	'Returns FalseReDim myVar(0 To 5)Debug.Print IsArray(myVar)	'Returns TrueErase myVarDebug.Print IsArray(myVar)	'Returns TruemyVar = 0Debug.Print IsArray(myVar)	'Returns False

To avoid this kind of tricky problem, use an Erase subroutine like this one:

 Public Sub vErase(ByRef pArray As Variant)	Erase pArray	pArray = 0End Sub

devx-admin

Share the Post: