[gelöst] Menü basteln mit Listenfeld?

[Noebian]

Moin, moin
ich habe diverse Berichte, die von einem Formular aus aufgerufen werden - jeder Bericht hat eine Schaltfläche, über die er geöffnet wird. Allmählich wird das ein bißchen unübersichtlich.
Nun überlegte ich folgendes: ein Listenfeld, das als Menü dient. Es enthälte eine Werteliste "Bericht1, Bericht2,..", und ist verknüpft mit einem Makro, das auf "Feld modifiziert" anspringt, dahinter dann der Code, der je nach Feldinhalt den entsprechenden Bericht aufruft. Klappt aber noch nicht, denn ich bekomme den aktuell ausgewählten Inhalte nicht zu fassen.
Problem wohl: Listenfeld ist mit keinem Datenfeld verknüpft.
Kann man trotzdem irgendwie den aktuellen Wert per Makro greifen? Oder gibt es einen besseren Weg?

[Noebian]

Sorry, jetzt habe ich es gefunden.
Es geht natürlich mit ".CurrentValue"

[PerSHN]

Sorry, jetzt habe ich es gefunden.
Es geht natürlich mit ".CurrentValue"

Hallo!

Sowas würde ich gerne auch erstellen. Meine Suche bei google ergab leider nicht viel, bzw. zu Kompliziertes, da ich noch ein Laie bin. Wie ist denn die exakte Vorgehensweise?

[RobertG]

Sowas würde ich gerne auch erstellen.

Geht natürlich nur per Makro. Also zuerst einmal ein Modul für Makros anlegen, wenn nicht schon vorhanden. Dort dann das folgende Makro hineinkopieren:

Code: Alles auswählen

SUB Drucken
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oFeld AS OBJECT
	DIM stTag AS STRING
	oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	REM Lage des Feldes in dem entsprechenden Formular aufsuchen
	oForm=oDrawpage.Forms.getByName("MainForm")	'Name des Formulars einsetzen - zu sehen im Formularnavigator
	oFeld=oForm.getByName("Listenfeld")	'Name des Listenfeldes einsetzen
	stTag=oFeld.getCurrentValue()	
	ThisDatabaseDocument.ReportDocuments.getByName( stTag ).open
END SUB

Ich habe das Makro einfach einmal "Drucken" genannt, da Berichte ja in der Hauptsache dafür erstellt werden.
Jetzt das Makro an das Listenfeld binden. Hier die Eigenschaft entsprechend wählen, z.B. "Modifiziert". Sobald jetzt die Einstellung im Listenfeld geändert wird, wird der Bericht mit dem entsprechenden Namen geöffnet.

Gruß

Robert