---

Guten Abend,

schon wieder ich ;-)

ich möchte eine Listbox mit allen in der Datenbank verfügbaren Berichten erstellen. Über die CurrentProject.AllReports-Auflistung ja an sich kein Problem.

Was mich stört ist, dass ich so nur an die Eigenschaft NAME der Berichte komme, nicht aber an die Eigenschaft CAPTION, die ich aufgrund meiner Namenskonventionen bevorzuge.
Dies liegt daran, dass die AllReports-Auflistung keine Report-Objekt mit all seinen Eigenschaften zurückgibt, sondern Access-Objekte. Die Frage ist, ob ich vom Access-Objekt über den Namen des Reports irgendwie zum Report-Objekt komme.
Wie schaffe ich es also, nachdem ich alle NAMEn der Reports habe, die zugehörigen CAPTIONs zu ermitteln?

Dabei möchte ich aber nicht zuerst alle Berichte öffnen müssen.

Weiß jemand ob und wie das geht? Über google finde ich leider nur die NAME-Varianten für die Listbox...

Besten Dank und schönen Abend, WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

[Diese Nachricht wurde von WolfgangE am 25. Aug. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wolfgang,

in der AllReports Auflistung sind nur die Namen und nicht die Caption enthalten.

Code:

---

Dabei möchte ich aber nicht zuerst alle Berichte öffnen müssen.

---

IMHO musst du das schon, da du ohne Reportdefinition keinen Zugriff auf die Caption hast.
Vielleicht mit docmd den Report im Entwurfsmodus öffnen, Caption lesen und wieder zu.
Du könnest das während einer Sitzung vielleicht auf einen Durchlauf beschränken und den Reportnamen mit Caption in einer Tabelle speichern. Dann hast du den direkten Zugriff.
Du könnest den Recordcount dieser Hilfstabelle mit der Anzahl der Reports vergleichen. Stimmt sie nicht, liest du die Namen ein, passt sie kannst du direkt aus der Tabelle lesen.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Wilfried,

danke erst mal für deinen Beitrag.

Zitat:

---

Original erstellt von Stelli1:
IMHO musst du das schon, da du ohne Reportdefinition keinen Zugriff auf die Caption hast.

---

So was in der Richtung dachte ich mir schon.

Zitat:

---

... und den Reportnamen mit Caption in einer Tabelle speichern....

---

Gute Idee, daran dachte ich noch gar nicht.

Ich denke ich werde beim Öffnen der Reports diese jeweils mit dem Attribut HIDDEN öffnen, dann dürfte der Anwender das gar nicht mitbekommen.

Danke und ciao, WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab's jetzt mal genau so versucht, funktioniert bestens

For Each obj In CurrentProject.AllReports
  DoCmd.OpenReport ReportName:=obj.Name, View:=acViewPreview, WindowMode:=acHidden
  Me.cboReports.AddItem obj.Name & ";" & Application.Reports.Item(obj.Name).Caption & ";"
  DoCmd.Close acReport, obj.Name, acSaveNo
Next obj

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP