Objekteigenschaft - Beschreibung auslesen f. Formulare, Berichte und Module

27/12/2009 - 16:53 von Stefan Paesch | Report spam
Moin zusammen,

wünsche frohe Weihnachten gehabt zu haben.

Ich möchte die Beschreibung der Objekteigenschaften von Formularen,
Berichten und Modulen auslesen.
Für Tabellen und Abfragen hatte ich mir vor làngerer Zeit etwas
zusammen gegürgelt:

Dim obj As Object
Dim prop As Object

For Each obj In CurrentDb.TableDefs

For Each prop In obj.Properties

If prop.Name = "Description" Then
Debug.Print obj.Name & ": " & obj.Properties
("Description")
End If
Next prop
Next obj

Für Tabellen und Abfragen hat es gereicht. Nun möchte ich auch die
Beschreibungen von Formularen; Berichten und Module auswerten.
So habe ich es versucht: For Each obj In Application.Forms

Funktioniert nicht. Kann mir jemand sagen (schreiben) wie der Code für
Berichte, Formlare und Module aufgebaut sein muss?

Vielen Dank Stefan.
 

Lesen sie die antworten

#1 Ekkehard Böhme
27/12/2009 - 17:11 | Warnen spam
Hallo Stefan,

Stefan Paesch schrieb:
Moin zusammen,

wünsche frohe Weihnachten gehabt zu haben.

Ich möchte die Beschreibung der Objekteigenschaften von Formularen,
Berichten und Modulen auslesen.
Für Tabellen und Abfragen hatte ich mir vor làngerer Zeit etwas
zusammen gegürgelt:

Dim obj As Object
Dim prop As Object

For Each obj In CurrentDb.TableDefs

For Each prop In obj.Properties

If prop.Name = "Description" Then
Debug.Print obj.Name & ": " & obj.Properties
("Description")
End If
Next prop
Next obj

Für Tabellen und Abfragen hat es gereicht. Nun möchte ich auch die
Beschreibungen von Formularen; Berichten und Module auswerten.
So habe ich es versucht: For Each obj In Application.Forms

Funktioniert nicht. Kann mir jemand sagen (schreiben) wie der Code für
Berichte, Formlare und Module aufgebaut sein muss?



Versuch's Mal mit der Containers-Auflistung:
CurrentDb.Containers!Forms


Vielen Dank Stefan.




hth ekkehard böhme

Ähnliche fragen