Object variable or With block variable not set

[tiredofit]

Standard module:

Dim MyVar(1 To 10, 1 To 10) As MyClass

Set MyVar(1 To 10, 1 To 10) = New MyClass

MyVar(1, 1).Category = "Some category"
MyVar(2, 1).Fruit = "Some fruit"

MyClass:

Private pCategory As Variant
Private pFruit As Variant​
Public Property Get Category() As Variant
    
    Category = pCategory
    
End Property


Public Property Let Category(ByVal Cat As Variant)
    
    pCategory = Cat
    
End Property

Public Property Get Fruit() As Variant
    
    Fruit = pFruit
    
End Property


Public Property Let Fruit(ByVal F As Variant)
    
    pFruit = F
    
End Property​

This line brings up a compile and syntax error message:

Set MyVar(1 To 10, 1 To 10) = New MyClass​

so I changed it to:

Set MyVar(10, 10) = New MyClass​

then this line returns a Object variable or With block variable not set:

MyVar(1, 1).Category = "Some category"​

Can someone tell me what is wrong?

Thanks

 

[shg]

You initialized one element of the array (MyVar(10, 10)) as a class instance, but then tried to assign a property to an element of the array that hasn't been initialized.

You need to initialize them all.

 

[tiredofit]

You initialized one element of the array (MyVar(10, 10)) as a class instance, but then tried to assign a property to an element of the array that hasn't been initialized.

You need to initialize them all.

Can you show me how to initialize them all?

 

[Marcelo Branco]

See if this does what you need

Sub aTest()
    Dim MyVar(1 To 10) As MyClass
    Dim i As Long, v As Variant
    
    For i = 1 To 10
        Set MyVar(i) = New MyClass
    Next i
    
    MyVar(1).Category = "Category1"
    MyVar(1).Fruit = "Fruit1"
    MyVar(2).Category = "Category2"
    MyVar(2).Fruit = "Fruit2"
    'Just to check...
    For Each v In MyVar
        If v.Category <> "" Then
            MsgBox v.Category
            MsgBox v.Fruit
        End If
    Next v
End Sub

M.

 

[tiredofit]

See if this does what you need

Sub aTest()
    Dim MyVar(1 To 10) As MyClass
    Dim i As Long, v As Variant
    
    For i = 1 To 10
        Set MyVar(i) = New MyClass
    Next i
    
    MyVar(1).Category = "Category1"
    MyVar(1).Fruit = "Fruit1"
    MyVar(2).Category = "Category2"
    MyVar(2).Fruit = "Fruit2"
    'Just to check...
    For Each v In MyVar
        If v.Category <> "" Then
            MsgBox v.Category
            MsgBox v.Fruit
        End If
    Next v
End Sub

M.

Thanks, will check it and get back to you shortly.

BTW, can you explain why this errors (as I initially mentioned)?

Set MyVar(1 To 10, 1 To 10) = New MyClass

​

​

 

[Marcelo Branco]

You cannot set all array elements at once. Loop does the job by setting one at each step.

M.

 

[Marcelo Branco]

By the way, this worked for me

Sub aTest()
    [COLOR=#ff0000]Dim MyVar(1 To 10) As New MyClass
[/COLOR]    Dim i As Long, v As Variant
        
    MyVar(1).Category = "Category1"
    MyVar(1).Fruit = "Fruit1"
    MyVar(2).Category = "Category2"
    MyVar(2).Fruit = "Fruit2"
    MyVar(10).Category = "Category10"
    MyVar(10).Fruit = "Fruit10"
    
    'Just to check..
    For Each v In MyVar
        If Not v Is Nothing Then
            MsgBox v.Category
            MsgBox v.Fruit
        End If
    Next v
End Sub

M.

 

[tiredofit]

You cannot set all array elements at once. Loop does the job by setting one at each step.

M.

​

I see but why does this compile?

Set MyVar(10, 10) = New MyClass

By the way, this worked for me

Sub aTest()
    [COLOR=#ff0000]Dim MyVar(1 To 10) As New MyClass
[/COLOR]    Dim i As Long, v As Variant
        
    MyVar(1).Category = "Category1"
    MyVar(1).Fruit = "Fruit1"
    MyVar(2).Category = "Category2"
    MyVar(2).Fruit = "Fruit2"
    MyVar(10).Category = "Category10"
    MyVar(10).Fruit = "Fruit10"
    
    'Just to check..
    For Each v In MyVar
        If Not v Is Nothing Then
            MsgBox v.Category
            MsgBox v.Fruit
        End If
    Next v
End Sub

M.

Thanks, I checked and it worked.