Class x Property as Collection?

[EB08]

In generic terms, i have a class named 'Client' with read/write properties of 'ID', 'Alias', and 'Plan'. The main issue i'm running into right now is how to handle the 'Plan' property; each client can have no less than 1, but up to a maximum of 15 plans. Ideally, i would like to treat the property 'Plan' like a collection in which i could add, remove, and count items.

I'm currently using a collection (Clients) to manage each instance of the class 'Client', but need a way to give each 'Client' a dynamic number of plans...any help or direction would be greatly appreciated.

 

[ZVI]

Hi,
Put the code below into Client class module:

' Code of the Client class module
Option Explicit
Dim MyCol As New Collection

Public Property Get Plan() As Collection
  Set Plan = MyCol
End Property

Private Sub Class_Terminate()
  Set MyCol = Nothing
End Sub

And call it via Module1 code like this:

' Code of Module1
Sub Test()
  Dim x As New Client
  With x.Plan
    .Add 1, "one"
    .Add 2, "two"
    Debug.Print "Count=" & .Count, "one=" & .Item("one"), "two" & .Item("two")
  End With
End Sub

 

[EB08]

Perfect...exactly what i was looking for, thanks.

Is it necessary to have the Class_Terminate, or, is that just a result of best-practices?

 

[ZVI]

Perfect...exactly what i was looking for, thanks.

Glad it helped!

Is it necessary to have the Class_Terminate, or, is that just a result of best-practices?

It’s just the the habit to help VBA
Setting to nothing is required for object variables for avoiding of Excel memory leakage.
But this is not the rule for Collections embedded into VBA.

Regards,
Vlad