[AccessD] Iterator, take 2

John W Colby jwcolby at gmail.com
Wed Oct 2 11:37:23 CDT 2013


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
'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
'
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



More information about the AccessD mailing list