Class Collections - How do I set the key?

[MrKowz]

Wracking my brain on this one.

I have a class module which is populating various attributes of a list and is storing them in a collection. The collection is being built just fine, but I'm unable to figure out why the heck the collection key isn't working, despite me explicitly defining it. Have even tried defining "oldColl.Add NewProduct, key:=NewProduct.PDCN", but to no avail.

Example:

This snippet of code builds the NewProduct class object. The Contains() function returns FALSE here, despite me explicitly defining the key in the line before it. I'm expecting it to return TRUE.

                Set NewProduct = New cNewProducts
                NewProduct.Product = tmpProdName
                NewProduct.Package = .Range("B" & i).value
                NewProduct.PDCN = .Range("C" & i).value
                oldColl.Add NewProduct, NewProduct.PDCN
                MsgBox Contains(oldColl, NewProduct.PDCN)

Contains() Function:

Public Function Contains(col As Collection, key As Variant) As Boolean
Dim obj As Variant
On Error GoTo err
obj = col(key)
Contains = True
On Error GoTo 0
Exit Function
    
err:
    Contains = False
End Function

I'd appreciate any help here. Thanks!

 

[shg]

The data type of a key for a collection is String. If the PDCN property is a number, then that number is converted to a string; "42", not 42.

If you pass a number as the key to Contains, then it it trying to find the item by index (42), not key ("42").

 

[MrKowz]

The data type of a key for a collection is String. If the PDCN property is a number, then that number is converted to a string; "42", not 42.

If you pass a number as the key to Contains, then it it trying to find the item by index (42), not key ("42").

PDCN is a string (example value: "1NM7G") and is defined as such in the class code:

Private pPDCN           As String
Public Property Get PDCN() As String
    PDCN = pPDCN
End Property

Public Property Let PDCN(value As String)
    pPDCN = value
End Property

 

[shg]

That would have been helpful to know earlier, since I hate typing, MrK.

In that case, how about ...

[COLOR="#FF0000"]Set[/COLOR] obj = col(key)

 

[MrKowz]

That would have been helpful to know earlier, since I hate typing, MrK.

In that case, how about ...

[COLOR="#FF0000"]Set[/COLOR] obj = col(key)

Thanks - that actually ended up being the problem! Appreciate you!

 

[shg]

You're welcome.