Arrays

[Narfy]

I get an error "Cant assign to array" with the following code, ive never used arrays before, and this is one of my first attempts to

Dim strArr(1 To 10) As Integer
 
Public Sub Form_Load()
strArr() = Array("404933", "165425", "907356", "992437", "665768", "541879", "509990", "203261", "255631", "108982")
End Sub

But it get that one error as mentioned above, what is the problem?

[RobDog888]

Array: Returns a Variant containing an array.
Declare a variant and then assign the elements.

Option Explicit

Dim strArr As Variant

Public Sub Form_Load()
    strArr = Array("404933", "165425", "907356", "992437", "665768", "541879", "509990", "203261", "255631", "108982")
    MsgBox strArr(3)
End Sub

[rameshk]

Hi ,
Declare the strArr as variant datatype.
Refer the below code

Dim strArr()
strArr() = Array("404933", "165425", "907356", "992437", "665768", "541879", "509990", "203261", "255631", "108982")
MsgBox strArr(0)

[RobDog888]

rameshk, you need to type faster.

[RhinoBull]

... OR ...

Private Sub Command1_Click()
Dim strValues$
Dim arNumbers() As String
 
    strValues = "404933,165425,907356,992437,665768,541879,509990,203261,255631,108982"
    arNumbers = Split(strValues, ",")
    Debug.Print arNumbers(1)
 
End Sub

[Narfy]

Thanks for all the help, works perfect.

[bobbynad]

... OR ...

Private Sub Command1_Click()
Dim strValues$
Dim arNumbers() As String
 
    strValues = "404933,165425,907356,992437,665768,541879,509990,203261,255631,108982"
    arNumbers = Split(strValues, ",")
    Debug.Print arNumbers(1)
 
End Sub

The above example works perfect for single dimensional array , How is it possible to do the same example for array (2,12) etc.

[RhinoBull]

Sorry for late reply.
See my sample in this thread .