Hi, I have created an array using Lbound like below -
Function StoreForm(strte xt)
If blDimensioned = True Then
ReDim Preserve strFrmNames(0 To UBound(strFrmNa mes) + 1) As String
Else
ReDim strFrmNames(0 To 0) As String
blDimensioned = True
End If
strFrmNames(UBo und(strFrmNames )) = strtext
------------------------------------------------------------------------------------------------------
I can go thru the element one by one of an array and fire out the form
For lngPosition = LBound(strFrmNa mes) To UBound(strFrmNa mes)
frmName = strFrmNames(lng Position)
Call Displayform(frm Name)
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
Function StoreForm(strte xt)
If blDimensioned = True Then
ReDim Preserve strFrmNames(0 To UBound(strFrmNa mes) + 1) As String
Else
ReDim strFrmNames(0 To 0) As String
blDimensioned = True
End If
strFrmNames(UBo und(strFrmNames )) = strtext
------------------------------------------------------------------------------------------------------
I can go thru the element one by one of an array and fire out the form
For lngPosition = LBound(strFrmNa mes) To UBound(strFrmNa mes)
frmName = strFrmNames(lng Position)
Call Displayform(frm Name)
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
Comment