ReDim Array Qusetion "EASY"

[Alakazam]

I have a series of buttons and an array"array()"
Each button has a corrisponding "Name" associated with it.
When each Button is clicked I need it to add one row to my array and Fill that row with the corrisponding Name, yet keep all previouse names in the array.

I Know this code will cause some kind of out of bound error due to trying to add to an array that is full but I dont know how to get arround it.

Dim array( ) As String

Dim i As Integer

cmdAddSteve_Click( )
i = UBOUND(array( )) + 1
array(i ) = “Steve”
End Sub

cmdAddJohn_Click( )
i = UBOUND(array()) + 1
array(i ) = “John”
End Sub

cmdAddSusan_Click( )
i = UBOUND(array()) + 1
array(i ) = “John”
End Sub

[Static]

Redim Preserve array(i+1)

[Alakazam]

You mean like this?

Dim IC( ) As String
Dim i As Integer

cmdAddSteve_Click( )
i = UBOUND(IC( )) + 1
Redim Preserve array(i+1)
IC(i ) = “Steve”
End Sub

[Static]

i = UBOUND(IC( )) + 1
Redim Preserve array(i+1)
IC(i ) = “Steve”

array was just a "fake" name....your array name is IC()
so use IC

do it like this...


I = Ubound(IC) + 1
Redim Preserve IC(i)
IC(i) = "Steve"

ok?

[Alakazam]

Dim IC() As String
Dim i As Integer, ii As Integer
Private Sub Command1_Click(Index As Integer)
i = UBound(IC) + 1 'Subscript out of range
ReDim Preserve IC(i)
IC(i) = "Steve"

End Sub

Private Sub Command2_Click()
i = UBound(IC) + 1
ReDim Preserve IC(i)
IC(i) = "Jane"
End Sub

Private Sub Command3_Click()
'Check to see values of IC() array
For ii = 0 To UBound(IC)
Print IC(ii)
Next ii
End Sub

[Mc Brain]

Try adding this code:

Private Sub Form_Load()
   ReDim IC(0)
End Sub