How to remove an element from an array

[jamesnkk]

Hi, I have created an array using Lbound like below -


Function StoreForm(strtext)

If blDimensioned = True Then
ReDim Preserve strFrmNames(0 To UBound(strFrmNames) + 1) As String
Else

ReDim strFrmNames(0 To 0) As String
blDimensioned = True
End If
strFrmNames(UBound(strFrmNames)) = strtext
------------------------------------------------------------------------------------------------------
I can go thru the element one by one of an array and fire out the form

For lngPosition = LBound(strFrmNames) To UBound(strFrmNames)
frmName = strFrmNames(lngPosition)
Call Displayform(frmName)

Next lngPosition
End If

The Question is after I process each of the item, how should I delete the item from an array ? and do I have to redim ?

Please assist

[kadghar]

The Question is after I process each of the item, how should I delete the item from an array ? and do I have to redim ?

Please assist

Yes, if you want to remove the nth element, then you should move one place form the (n+1)th element to the last one.

and yes, you should redim.

Anyway, i'll keep subscribed in case someone knows a better solution.

[jamesnkk]

Yes, if you want to remove the nth element, then you should move one place form the (n+1)th element to the last one.

and yes, you should redim.

Anyway, i'll keep subscribed in case someone knows a better solution.

Thanks you so much, I take note on that