Looping Query Defs

[Karl Irvin]

Can you loop through Query Defs and get the name of the tables/queries used
in each query?

[pietlinden]

with a bit of parsing you can. you'd basically do something like this:
1. grab all the text between FROM and WHERE. Use Split to break that
into separate words that you can deal with one at a time. loop through
them, and eliminate all SQL reserved words. Then you should be left
with what you want.

[pietlinden]

something along the lines of

dim qdf as querydef
for each qdf in db.querydefs
varWords = Split(qdf.SQL," ")
for intCounter = 0 to Ubound(varWords)
If Not IsObjectName(varWords(intCounter)
' write it somewhere?
rs.AddNew
rs.FIelds("SomeField")=varWords(intCounter)
rs.Fields('objectname")=qdf.Name
rs.update
End if
next intCounter
next qdf

[Karl Irvin]

Thanks
<pi********@hotmail.com> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

something along the lines of

dim qdf as querydef
for each qdf in db.querydefs
varWords = Split(qdf.SQL," ")
for intCounter = 0 to Ubound(varWords)
If Not IsObjectName(varWords(intCounter)
' write it somewhere?
rs.AddNew
rs.FIelds("SomeField")=varWords(intCounter)
rs.Fields('objectname")=qdf.Name
rs.update
End if
next intCounter
next qdf