list criteria fields of query

[christianlott1]

I used the code here:

http://groups.google.com/group/comp....18febe2ab9eda5

to list in all my queries their tables and fields.

Now I'd like to view their criteria for each field as well. Where is
this information located? How do I access it?

Thanks in advance,

Christian

[fredg]

On Thu, 13 Sep 2007 10:00:07 -0700, ch************@ yahoo.com wrote:

I used the code here:

http://groups.google.com/group/comp....18febe2ab9eda5

to list in all my queries their tables and fields.

Now I'd like to view their criteria for each field as well. Where is
this information located? How do I access it?

Thanks in advance,

Christian

You could cycle through the queries, then examine it's SQL.
The criteria (if there is any) is the text that follows the word
Where.
Public Sub ShowCriteria()

' Show each Query's SQL
Dim Db As Database
Dim qry As QueryDef
Set Db = CurrentDb

For Each qry In Db.QueryDefs
Debug.Print "Query Name = " & qry.Name
Debug.Print "SQL = " & qry.SQL
Debug.Print "*****"
Next qry
Set Db = Nothing
End Sub
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail