VB Forum / General 2 / April 2005

Using an Excel Spreadsheet.

I am trying to add an orders information via a class object into a
collection but I am getting the error message below.
-----------------------------------------------
Object variable or With block variable not set
-----------------------------------------------

The error is occuring in the collection module in its Add function.
Snippent of error location is below.

On Error GoTo AddError
   *****OrdersP.Add aorder, aorder.IDOrderP***** Error occurs here
   Add = True
   Exit Function

More Code is Below.

Worksheet Variables
--------------------------------
Dim stList As Class2
Dim aorder As Class1
--------------------------------
End

Command Button Event Procedure
--------------------------------
Private Sub Cmd2_Click()

Set aorder = New Class1
Set stList = New Class2

aorder.IDOrderP = 10
aorder.IDOrderItemP = "hhjk"
aorder.ItemQuantityP = 1
aorder.ItemP = "fdfd"
aorder.ItemDetailsP = "fdj"
aorder.FoodTypeP = "fdjk"
stList.Add aorder

Set aorder = Nothing

End Sub
--------------------------------
End

Orders Collection
--------------------------------
Option Explicit

Private OrdersP As Collection
--------------------------------
Public Property Get Count() As Integer
Count = OrdersP.Count
End Property
--------------------------------

Public Property Get Orders() As Collection
Set Orders = OrdersP
End Property
--------------------------------

Public Function Add(aorder As Class1) As Boolean
   On Error GoTo AddError
   OrdersP.Add aorder, aorder.IDOrderP
   Add = True
   Exit Function

AddError:
MsgBox Error$, vbInformation, "Class2.add"
Add = False

End Function
--------------------------------