Trying to understand the example code in A97 For Each HELP

[MLH]

Dim Found, MyObject, MyCollection
Found = False ' Initialize variable.
For Each MyObject In MyCollection ' Iterate through each element.
If MyObject.Text = "Hello" Then ' If Text equals "Hello".
Found = True ' Set Found to True.
Exit For ' Exit loop.
End If
Next

Is it possible for MyCollecion to be the set of records in
tblChkImageFile Names and how would I modify the above code
to do something For Each [CIFNID] field value in MyCollection?

If I'm way off-base here, I'll just use DAO.

[Allen Browne]

A set of records (i.e. a recordset) is not the same thing as a collection.
Use a DAO.Recordset.

It sounds like you know how to do that, but here's an example just in case:
http://allenbrowne.com/func-DAO.html...cordsetExample

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"MLH" <CR**@NorthStat e.netwrote in message
news:je******** *************** *********@4ax.c om...

Dim Found, MyObject, MyCollection
Found = False ' Initialize variable.
For Each MyObject In MyCollection ' Iterate through each element.
If MyObject.Text = "Hello" Then ' If Text equals "Hello".
Found = True ' Set Found to True.
Exit For ' Exit loop.
End If
Next

Is it possible for MyCollecion to be the set of records in
tblChkImageFile Names and how would I modify the above code
to do something For Each [CIFNID] field value in MyCollection?

If I'm way off-base here, I'll just use DAO.

[lyle fairfield]

MLH <CR**@NorthStat e.netwrote in news:jepdd39jeu b25srjq4bm0hnuj od7hmodak@
4ax.com:

If I'm way off-base here, I'll just use DAO.

Good idea! That's what most people who are way off-base use.

he! he! he!

--
lyle fairfield

Ceterum censeo Redmond esse delendam

[Larry Linson]

If you would describe what you have and what you are trying to accomplish,
it's more likely that someone could make a useful suggestion. It does not
seem useful to create a Collection to house a Recordset. And, for example,
I think the probability rather high that you don't want to Dim those three
variables all as variants, which is what the first line of your code does.

Larry Linson
Microsoft Access MVP
"MLH" <CR**@NorthStat e.netwrote in message
news:je******** *************** *********@4ax.c om...

Dim Found, MyObject, MyCollection
Found = False ' Initialize variable.
For Each MyObject In MyCollection ' Iterate through each element.
If MyObject.Text = "Hello" Then ' If Text equals "Hello".
Found = True ' Set Found to True.
Exit For ' Exit loop.
End If
Next

Is it possible for MyCollecion to be the set of records in
tblChkImageFile Names and how would I modify the above code
to do something For Each [CIFNID] field value in MyCollection?

If I'm way off-base here, I'll just use DAO.

[MLH]

You're right, Larry. I was just phishing for thoughts. I think Allen's
response the most helpful, indicating that a Collection is not useful
for manipulating or referring to a Recordset. I've never had a use
for Collections and was wondering if anyone used them in that way.

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx
On Sat, 01 Sep 2007 06:52:50 GMT, "Larry Linson"
<bo*****@localh ost.notwrote:

>If you would describe what you have and what you are trying to accomplish,
it's more likely that someone could make a useful suggestion. It does not
seem useful to create a Collection to house a Recordset. And, for example,
I think the probability rather high that you don't want to Dim those three
variables all as variants, which is what the first line of your code does.

Larry Linson
Microsoft Access MVP

[Larry Linson]

"MLH" <CR**@NorthStat e.netwrote in message
news:dc******** *************** *********@4ax.c om...

You're right, Larry. I was just phishing for thoughts. I think Allen's
response the most helpful, indicating that a Collection is not useful
for manipulating or referring to a Recordset. I've never had a use
for Collections and was wondering if anyone used them in that way.

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx

The only time I created my own collection was when I was exploring the
subject... and, like you, I never quite found a use.

I didn't do comparative timings, but there might be some population where
using a collection and retrieving the members by name, then using some other
property, would be more efficient than arrays, searching and sorting to
retrieve the item, etc.

This approach works, but whether it's "better" or "faster," I couldn't say.
And, the requirement does not arise frequently enough, for me, to warrant
in-depth testing.

Larry

[Allen Browne]

Good to explore.

You probably do use some of the built-in collections, such as Forms (the
collection of open forms.) If you need to open multiple instances of a form,
you might need your own collection to manage them. Demo:
Managing Multiple Instances of a Form
at:
http://allenbrowne.com/ser-35.html

Here's another example where we use collections to manage recursive file
listing (i.e. including subfolders):
List files recursively
at:
http://allenbrowne.com/ser-59.html

Another example of built-in collections: the controls attached to another
control. Most controls have only one control in their collection: the
attached label. For example, if you have a field called Text0, and you want
to change the color of its attached label:
Me.Text0.Contro ls(0).BackColor = vbRed

An option group can have more than one control in its collection, e.g.:
Function HowManyOptionBu ttons(grp As OptionGroup) As Integer
Dim ctl As Control
Dim i As Integer
For Each ctl In grp.Controls
If ctl.ControlType = acOptionButton Then
i = i + 1
End If
Next
HowManyOptionBu ttons = i
End Function

Other common collections include:
- controls on a form/report
- controls in a section of a form/report
- controls on a tab control
- reports

HTH.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"MLH" <CR**@NorthStat e.netwrote in message
news:dc******** *************** *********@4ax.c om...

You're right, Larry. I was just phishing for thoughts. I think Allen's
response the most helpful, indicating that a Collection is not useful
for manipulating or referring to a Recordset. I've never had a use
for Collections and was wondering if anyone used them in that way.

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx

[lyle]

On Sep 2, 10:26 pm, "Allen Browne" <AllenBro...@Se eSig.Invalidwro te:

Good to explore.

I used my first collection in 1994, iterating through it. I plan to
report to the group all about its usefulness, just as soon as the
procedure finishes.

[Larry Linson]

"lyle" <ly************ @gmail.comwrote in message
news:11******** **************@ d55g2000hsg.goo glegroups.com.. .

On Sep 2, 10:26 pm, "Allen Browne" <AllenBro...@Se eSig.Invalidwro te:

>Good to explore.

I used my first collection in 1994, iterating through it. I plan to
report to the group all about its usefulness, just as soon as the
procedure finishes.

I think Lyle is doing my performance testing for me, and I very much look
forward to the result, should the test finish before the computer burns out.

:-)

Larry