PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
ICollectionClass ------------------- Private mcol As Collection Private mParent As Object Private Sub Class_Initialize() Set mcol = New Collection End Sub Public Function NewEnum() As IUnknown ' Enumeration function for the collection Set NewEnum = mcol.[_NewEnum] End Function Public Function Add(obj As Object, varID As Variant) As Boolean ' Add new member to collection mcol.Add Item:=obj, Key:=varID End Function etc. Example Derived Class ---------------------------- Implements ICollectionClass Private mcol As ICollectionClass Private Sub Class_Initialize() Set mcol = New ICollectionClass End Sub Private Function ICollectionClass_Add(obj As Object, varID As Variant) As Boolean mcol.Add obj, varID End Function etc.
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|qry that pulls up counts and $ totals by certain interval per sales rep for quote & sale activity, part II||16||55|
|MS Access How can I create a query to produce the latest document revision?||2||29|
|ms/link form - subform field not recognised||3||16|
|How to develop custom ribbon bars for each form in an app in Access 2016?||8||23|