Object Variable Not Set - Class Module inside Class Module

[ShelleyBelly]

I'm trying to assign a Class Module known as Port to part of another Class Module , here's the code so far:

The port class module is as follows

Private pName As String


' Properties
Public Property Let Name(Value As String)
    pName = Value
End Property
Public Property Get Name() As String
    Name = pName
End Property

The "route" class module has the following in it

Private pDepPort As Port

'Properties
Public Property Let DepPort(Value As Port)
    pDepPort = Value
End Property
Public Property Get DepPort() As Port
    DepPort = pDepPort
End Property

when i run a basic test is get Runtime Error 91 - Object Variable not set.

Sub checkthis()    
    Dim Rte As Route:   Set Rte = New Route
    Dim Prt As Port:    Set Prt = New Port
    
    Prt.Name = "bonjour"
   
    Rte.DepPort = Prt
    
End Sub

I'm sure it's an easy fix, but i'm on the limit of my knowldege, any help would be appreactied.

Thanks in advance,

Tom

 

[RoryA]

Your Property Let is missing a Set statement. It should be:

Public Property Let DepPort(Value As Port)
    Set pDepPort = Value
End Property

since you are assigning an object variable. For good order, I'd add a Property Set statement too, but that's optional.

 

[ShelleyBelly]

Hi Rory,

Thanks for that, works like a treat.

Cheers.

Tom

 

[RoryA]

Glad to help.