Office: (Office 2010) Feld im Bericht per VBA Wert zuweisen

Hallo,

ich habe ein Problem, wo ich schon stundenlang keine Lösung finde:

Mein Bericht hat im Detailbereich 2 Felder (Textfeld1, Textfeld2). Diese beiden Felder habe ich als normale (ungebundene) Textfelder platziert.
Dem Bericht liegt als Datensatzquelle eine Abfrage mit 4 Feldern zugrunde: (Abfragefeld1, Abfragefeld2, Abfragefeld3, Abfragefeld4). Diese Abfragefelder enthalten die Namen von Feldern einer weiteren Tabelle (welche ebenfalls in der Berichtsabfrage enthalten ist).

Den beiden ungebundenen Berichts-Textfeldern will ich nun per VBA jeweils einen Feldwert aus der zugrundeliegenden Abfrage zuweisen. Dies sollte im Detailbereich in der Eigenschaft "Beim Formatieren" geschehen.

Versucht habe ich es unter anderem mit:

me.Textfeld1.ControlSource = me.Abfragefeld1

oder

me.Textfeld1.ControlSource = "[Abfragefeld1]"

Das Textfeld sollte also den Inhalt des Abfragefeldes wiedergeben, wobei eben die Felder variabel zugewiesen werden sollten.

Ideal wäre es also, per VBA im Textfeld als Steuerelementinhalt einen Feldnamen zuzuweisen.

Als eventuelle "Ausweichmöglichkeit" wäre noch eine Möglichkeit, die Textfelder zu Beginn des Öffnens vom Bericht per VBA zuzuweisen.

Ich hoffe, ich konnte mit halbwegs verständlich ausdrücken...
Hat jemand eine Idee, wie dies zu Verwirklichen ist?
Besten Dank im voraus!

:)

 

Hallo,

ist nicht wirklich verständlich.

Warum schreibst Du als Steuerelementinhalt von Textfeld1 nicht einfach = Abfragefeld1?

 

Ich versuche ja, per VBA eben diesen Wert (z.B. den Feldnamen von Abfragefeld1 zuzuweisen) - nur das funktioniert nicht. Wenn ich den Feldnamen im Berichtsentwurf direkt im Feld als Steuerelementinhalt angebe, funktioniert es natürlich. Nur nicht per VBA (und das wäre meine Idee dahinter).

Irgendwie habe ich etwas gelesen, dass man per VBA den Steuerelementinhalt beim Formatieren und drucken nicht mehr zuweisen kann. Ist dies so?

 

Hi,

was ist denn das Ansinnen dahinter? Vermutlich doch nicht, den Bericht auf möglichst bizarre Weise zu bestücken... Vielleicht gibt es andere Wege zum Ziel, wenn du das Ziel nennst. Wenn der Weg das Ziel ist: probiers aus, und du wirst es wissen....

 

Die Idee dahinter ist, dass der Bericht relativ "kompliziert" ist und ich diesen für vielerlei Auswertungen brauche. Durch den Einsatz der "neutralen" Textfelder (Text1, Text2 etc.) im Bericht will ich diesen als Grundlage für die weiteren Auswertungen nehmen, welche aber andere Felder (aber mit der selben Datenbasis) enthalten. Daher will ich diesen neutralen Textfeldern die wirklichen Feldnamen per VBA beim Formatieren zuweisen. Es macht für mich wirklich Sinn, auch wenn es vielleicht nicht richtig rüberkommt...

Ich versuche eben, sozusagen einer "Berichtsvorlage" beim Öffnen/Formatieren die gewünschten Feldinhalte zuzuweisen.

 

Also das klappt z. B.:
Code:

x und y sind Felder der zugrunde liegenden Tabelle.

 

Hallo Maxel,

dein Vorschlag hat mich etwas weitergebracht. Wenn ich es so mache, dann funktioniert es - aber Bedingung ist, dass ich das Abfragefeld im Bericht eingefügt habe (ich habe es halt als unsichtbares Feld im Seitenfuß eingefügt). Ansonsten kommt die Meldung, dass das im Ausdruck angesprochene Feld nicht gefunden wird.

Genügt es also nicht, dass das Feld in der Abfrage enthalten ist? So müßte ich halt alle Felder der Abfrage als nicht sichtbare Felder im Fußbereich "deponieren".

 

Hi,

du könntest die "Dummyfelder" in der Abfrage bestücken und im Bericht auf diese Felder zugreifen. Die Ausfüllearbeit verschiebt sich damit vom Bericht, wo sie etwas hakelig und ereignisbeeinflusst ist,auf die Abfrage, die du vor Aufruf des Berichts parametrisieren oder notfalls per VBA neuschreiben kannst:

Etwa so:
Code:

 

Hallo,

so ist es, per VBA kannst du nur auf Steuerelemente zugreifen, nicht auf die Datenfelder der Datenherkunft des Berichts.
Ob der Seitenfuß tatsächlich geeignet ist, hängt von den Daten ab, sicherer ist hier sicherlich der Detailbereich,
wo jeweils die Daten eines (zusammenhängenden) Datensatzes verfügbar sind.