Referencing an object description in VB

[Jozef]

Hello,

I'd like to reference the description of a form object, but I'm not sure
how to do it without cycling through all the form properties. When I look
in the "help" all I get is references to Err.description. The other
references I get are very vague. Any ideas? It's not help, but I've cut
and paste what I'm using to get at the property currently.

Thanks!

Set db = CurrentDb

With db.Containers!Forms

For Each docloop In .Documents

Debug.Print " " & docloop.name
For Each prpLoop In docloop.Properties
Debug.Print prpLoop.name & " - " & prpLoop.Value
Next prpLoop
Next docloop
End with
set db = nothing

[Allen Browne]

Refer to the document's
.Properties("Description")
e.g.:
dbEngine(0)(0).Containers("Forms").Documents("Form 1").Properties("Description")

If the document has no Description, you will get error 3270, so use 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.

"Jozef" <[e-mail]> wrote in message
news:_hHZe.556261$s54.26374@pd7tw2no...

Hello,

I'd like to reference the description of a form object, but I'm not sure
how to do it without cycling through all the form properties. When I look
in the "help" all I get is references to Err.description. The other
references I get are very vague. Any ideas? It's not help, but I've cut
and paste what I'm using to get at the property currently.

Thanks!

Set db = CurrentDb

With db.Containers!Forms

For Each docloop In .Documents

Debug.Print " " & docloop.name
For Each prpLoop In docloop.Properties
Debug.Print prpLoop.name & " - " & prpLoop.Value
Next prpLoop
Next docloop
End with
set db = nothing