Code to delete all queries not working right

[manning_news]

Using A2003. I'm attempting to delete all queries in an mdb. I was
experimenting with the following coding and discovered that it deletes
exactly half the queries each time it's run. If I have 100 queries,
then it deletes 50 the first time it's run. The next time, it deletes
25, and so on. What modifications do I need to make it delete all
queries in one execution? Thanks for any help or advice.

dbs.QueryDefs.Refresh
For Each qdf In dbs.QueryDefs
dbs.QueryDefs.Delete qdf.name
Next

[Lyle Fairfield]

Go backwards
air code
For z= dbs.QueryDefs.Count-1 to 0 Step - 1
dbs.QueryDefs.Delete dbs.QueryDefs(z).Name
Next z

[manning_news]

Yep, that did it. Thanks!

[Lyle Fairfield]

I recommend that you spend a few minutes thinking about why backwards
works as you wish and forward does not, for your own edification and
because there are several Access collections that behave in this
fashion, and also because if you don't, sometime when you are
demonstrating to a client, the Gods of Access will punish you by
arranging for an error connected with this behaviour to occur.

[Lyle Fairfield]

I recommend that you spend a few minutes thinking about why backwards
works as you wish and forward does not, for your own edification and
because there are several Access collections that behave in this
fashion, and also because if you don't, sometime when you are
demonstrating to a client, the Gods of Access will punish you by
arranging for an error connected with this behaviour to occur.

[Thelma Lubkin]

Lyle Fairfield <ly***********@aim.com> wrote:
: I recommend that you spend a few minutes thinking about why backwards
: works as you wish and forward does not, for your own edification and
: because there are several Access collections that behave in this
: fashion, and also because if you don't, sometime when you are
: demonstrating to a client, the Gods of Access will punish you by
: arranging for an error connected with this behaviour to occur.

A backward solution:

Go backwards
air code
For z= dbs.QueryDefs.Count-1 to 0 Step - 1
dbs.QueryDefs.Delete dbs.QueryDefs(z).Name
Next z

I thought about it.
This code is even airier because I haven't looked up the syntax for
a VBA while statement

A 'static' solution:
While dbs.QueryDefs.Count > 0
dbs.QueryDefs.Delete dbs.QueryDefs(0).Name
Loop

--thelma

[Lyle Fairfield]

You could Wend your way through the collection that way, I think.