Array Help

[DanSc0tt]

Dim varItm As Variant
Hi,

Not had much experience of arrays, but am trying to capture the data selected in a multi-select list in a number of array variables.

However the following piece of code is giving me a 'subscript out of range' error

Any help much appreciated - Dan

--CODE--


Dim i As Integer
Dim strArray() As String
i = 1

For Each varItm In Me.lstMonth.ItemsSelected

MsgBox Me.lstMonth.ItemData(varItm)
strArray(i) = Me.lstMonth.ItemData(varItm)


i = i + 1


Next varItm

 

[PHV]

Have a look at the ReDim instruction.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[RoyVidar]

Probably because you don't dimension it

Put in for instance

[tt]redim strArray(me!lstMonth.ItemsSelected.Count-1)[/tt]

(and usually arrays are zerobased, so start with i=0)

Roy-Vidar

 

[DanSc0tt]

Thanks guys - where would I put the redim? (sorry my array knowledge is vvv minimal!!)

Thanks

Dan

 

[PHV]

Dim i As Integer, varItm
Dim strArray() As String
i = 0
With Me.lstMonth
ReDim strArray(.ItemsSelected.Count - 1)
For Each varItm In .ItemsSelected
' MsgBox .ItemData(varItm)
strArray(i) = .ItemData(varItm)
i = i + 1
Next varItm
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[TheAceMan1]

How are ya DanSc0tt . . . . .

Without have to worry about [blue]Redim[/blue] and the additional copies it makes in memory, try this:

[blue]   Dim strArray, Pack As String
    
   For Each varItm In Me.lstMonth.ItemsSelected
      If Pack <> "" Then
         Pack = Pack & ";" & Me.lstMonth.ItemData(varItm)
      Else
         Pack = Me.lstMonth.ItemData(varItm)
      End If
   Next varItm

   strArray = Split(Pack, ";")
   
   [green]'Note strArray index starts at zero.[/green][/blue]

See Ya! . . . . . .

 

[DanSc0tt]

Thanks guys - both worked as needed and my brain has grown a little largr to!