Arrays

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

VB Code:

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?

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

Code:

---

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

---

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

VB Code:

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

rameshk, you need to type faster. :D

... OR ...

VB Code:

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

Thanks for all the help, works perfect.

Quote:

---

Originally Posted by RhinoBull

... OR ...

VB Code:

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.

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