[AccessD] Iterator, take 2

So where did you find the IUnknown object type?

Charlotte


On Wed, Oct 2, 2013 at 9:37 AM, John W Colby <jwcolby at gmail.com> wrote:

> Boy did I hose that last one up.  Sorry about that.  This is what the
> iterator code would look like for my clsOpenArg.
>
> '
> '***************************************************************
> ********************
> 'Code for collection iterator
> 'Export to a text file and examine for special properties
> '**vvvvvvvvvvvvvvvvvvvvvvvvvvvvvv**vvvvvvvvvvvvvvvvvvvvvvvvvvvvvv**
> vvvvvvvvvvvvvvvvvvv
> '
> Public Sub Add(ByVal cOpenArg As clsOpenArg, Optional ByVal key As Variant)
>     If IsMissing(key) Then
>         mcolOpenArg.Add cTDFConn
>     Else
>         mcolOpenArg.Add cTDFConn, key
>     End If
> End Sub
> Public Function Count() As Long
>     Count = mcolOpenArg.Count
> End Function
> Public Function Item(ByVal Index As Variant) As clsOpenArg
>     Set Item = mcolOpenArg(Index)
> End Function
> Public Sub Remove(ByVal Index As Variant)
>     mcolOpenArg.Remove Index
> End Sub
> Public Function NewEnum() As IUnknown
>     Set NewEnum = mcolOpenArg.[_NewEnum]
> End Function
> '
> '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^**^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^**
> ^^^^^^^^^^^^^^^^^^^^
> 'Code for collection iterator
> 'Export to a text file and examine for special properties
> '***************************************************************
> ********************
>
> --
> John W. Colby
>
> Reality is what refuses to go away
> when you do not believe in it
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/**mailman/listinfo/accessd<http://databaseadvisors.com/mailman/listinfo/accessd>
> Website: http://www.databaseadvisors.**com<http://www.databaseadvisors.com>
>