ACC: How to Create a Collection of Collections

MORE INFORMATION

1. Create a module and type the following procedure:

         Function CollectionCollection()
            Dim element
            Dim insideCollection As New Collection
            Dim outsideCollection As New Collection
   
            ' Populate the first element of the collection and add
            ' it to the parent collection.
            insideCollection.Add KEY:="fname", Item:="joe"
            insideCollection.Add KEY:="lname", Item:="smith"
            insideCollection.Add KEY:="age", Item:=12
            outsideCollection.Add insideCollection
   
            ' Clear the collection - prevents duplication of elements.
            Set insideCollection = Nothing
   
            ' Populate the second element of the collection and add
            ' it to the parent collection.
            insideCollection.Add KEY:="fname", Item:="fred"
            insideCollection.Add KEY:="lname", Item:="smith"
            insideCollection.Add KEY:="age", Item:=14
            outsideCollection.Add insideCollection
   
            ' Print the contents of the parent collection to the Debug window.
            For Each element In outsideCollection
               Debug.Print element("fname"), element("lname"), element("age")
            Next
         End Function
   						

2. To test the function, type the following in the Debug window, and then press ENTER:

   CollectionCollection

   Note that the contents of the collection appears in the Debug window.