Any idea what is causing this error?

[chupacabra]

i have a class, that when I try to assign a value to its properties, i get an "object not initialized or with block not set" error (whatever it is).

Usually get this on connection objects or whatever when they arent set= new ___

anyway.

here's is code for assignment:

Public Sub testsub()

Dim IDs() As OldNewID

Dim i As Integer

For i = 0 To 100 Step 1
  ReDim Preserve IDs(i + 1)
  IDs(i).New_ID = i
  IDs(i).Old_ID = i - 1
Next i


End Sub

here is the class:

Option Explicit

Private m_Old_id As Long
Private m_New_ID As Long


Public Property Get New_ID() As Long
  New_ID = m_New_ID
End Property

Public Property Let New_ID(ByVal vNewValue As Long)
  m_New_ID = vNewValue
End Property

Public Property Get Old_ID() As Long
  New_ID = m_Old_id
End Property

Public Property Let Old_ID(ByVal vNewValue As Long)
  m_Old_id = vNewValue
End Property

ideas?

[Phil Weber]

You must create an instance of the object (using New) for each element of the array:

For i = 0 To 100 Step 1
    ReDim Preserve IDs(i + 1)
    Set IDs(i) = New OldNewID
    IDs(i).New_ID = i
    IDs(i).Old_ID = i - 1
Next i

[chupacabra]

You must create an instance of the object (using New) for each element of the array:

For i = 0 To 100 Step 1
    ReDim Preserve IDs(i + 1)
    Set IDs(i) = New OldNewID
    IDs(i).New_ID = i
    IDs(i).Old_ID = i - 1
Next i

I can't believe that slipped by me.

haha

Thanks phil!

[Ron Weller]

Noticed a small bug in your properties

Public Property Get Old_ID() As Long

  New_ID = m_Old_id
  ^^^^^ this is the wrong name it should be:
  Old_ID = m_Old_id

End Property

[chupacabra]

Noticed a small bug in your properties

Public Property Get Old_ID() As Long

  New_ID = m_Old_id
  ^^^^^ this is the wrong name it should be:
  Old_ID = m_Old_id

End Property

****!

nice catch

Thanks! (again)