Report Description

[Phil Stanton]

I am trying to show the description of all the reports in my DB in a query,
whether the report is open or closed.
The following prints the names OK, but when it dets to the line Debug.Print
obj.Properties(1) I get, not unsurprisingly, a message that the report is
not open.

Grateful for any ideas

Thanks
Function GetDesc(RptName As String) As String

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
If obj.Name = RptName Then ' Correct report
' Print name of obj.
Debug.Print obj.Name
Debug.Print obj.Properties(1) ' ***** Fails
GetDesc = Obj.Properties(1)
End If
Next obj

End Function

[Allen Browne]

You can get the report's Description like this:
Currentdb.Containers!Reports.Documents("Report1"). Properties("Description")

But if the report has no description, that will fail, so you need error
handling.

--
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.

"Phil Stanton" <ph**@stantonfamily.co.ukwrote in message
news:46**********************@ptn-nntp-reader02.plus.net...

>I am trying to show the description of all the reports in my DB in a
query, whether the report is open or closed.
The following prints the names OK, but when it dets to the line
Debug.Print obj.Properties(1) I get, not unsurprisingly, a message that
the report is not open.

Grateful for any ideas

Thanks
Function GetDesc(RptName As String) As String

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
If obj.Name = RptName Then ' Correct report
' Print name of obj.
Debug.Print obj.Name
Debug.Print obj.Properties(1) ' ***** Fails
GetDesc = Obj.Properties(1)
End If
Next obj

End Function

[Phil Stanton]

Brilliant Allen, works a treat

Thanks

Phil
"Allen Browne" <Al*********@SeeSig.Invalidwrote in message
news:46***********************@per-qv1-newsreader-01.iinet.net.au...

You can get the report's Description like this:

Currentdb.Containers!Reports.Documents("Report1"). Properties("Description")

But if the report has no description, that will fail, so you need error
handling.

--
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.

"Phil Stanton" <ph**@stantonfamily.co.ukwrote in message
news:46**********************@ptn-nntp-reader02.plus.net...

>>I am trying to show the description of all the reports in my DB in a
query, whether the report is open or closed.
The following prints the names OK, but when it dets to the line
Debug.Print obj.Properties(1) I get, not unsurprisingly, a message that
the report is not open.

Grateful for any ideas

Thanks
Function GetDesc(RptName As String) As String

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
If obj.Name = RptName Then ' Correct report
' Print name of obj.
Debug.Print obj.Name
Debug.Print obj.Properties(1) ' ***** Fails
GetDesc = Obj.Properties(1)
End If
Next obj

End Function