Query Query

[applebyd]

I have a Db with about 50 queries appearing in the Query window.

Each of them has a comment about which Rpt they feed.

Is there AnY way of printing the whole query list with the comments?

I've tried the help but to no avail.

Any suggestions welcome.

DaveA

 

[smozgur]

Does "comment" mean description of Query in properties for that query ?

If so then this may help.

Sub Q_Desc()
Dim i As Integer
Dim qDesc As String, qname As String
For i = 0 To CurrentDb.QueryDefs.Count - 1
qDesc = "No Description"
On Error GoTo noDesc
qname = CurrentDb.QueryDefs(i).Name
qDesc = CurrentDb.QueryDefs(i).Properties("Description").Value
GoTo doLoop
noDesc:
Resume doLoop
doLoop:
Debug.Print qname, qDesc
Next i
End Sub

Regards
Suat

Edited : for variable declaration.
This message was edited by smozgur on 2003-01-23 06:22

 

[smozgur]

Forgot to say.

You can see the result in Immediate window (Ctrl + G in VBE)

 

[applebyd]

The comment is inthe description field.

I have

Name Description Modified Created Type

qry1 Rep Weekstat 01/05/02

etc...

What I want is for these 50 queries the query name and Description.

Thanks

DaveA

 

[smozgur]

Dave,

We are talking about same thing, what I can get by right click on the query and Properties.

Did you try the code what I wrote above ? Because it exactly retrieve the name and description (if Exists) of the query and print into Immediate window.

Suat

 

[smozgur]

Sorry, I didn't realize that you may not know what to do with that code.

Please goto VBA and Insert_Module. You will see a new module will be inserted and have a blank code window in screen now. Then Paste that code into that module in code window. Press Ctrl + G to show immediate window and then run this code by pressing F5 when cursor is located in this code.

You will see all you need would be listed in Immediate window.

Suat

 

[applebyd]

Works fine thanks.

I was hoping (in vain)that Micro**** might
hace an easy way of printing this but....

Thanks Again.

 

[smozgur]

It's my pleasure, Dave.

And maybe Micro**** has a way to do that, but I don't know (and also don't think so).

Suat

 

[Bariloche]

Dave,

See if Tools>Analyze>Documenter gives you what you want. Once into the Documenter dialog just check those things that you want "documented." It will probably give you more than you want, but its worth a look.

enjoy