Ungebundenes Feld in einem Bericht ändern
Karl Donaubauer
Gesendet: 04.01.21 17:28
Betreff: RE: Ungebundenes Feld in einem Bericht ändern



Elite Veteran

Beiträge: 789
500100100252525
Ort: Wien
Hallo, Paula!

Paula
...
Ja, es sind viele Datensätze in der eine Zeit (im Feld [BD_Ende] als Date-Format gespeichert wird
Der Bericht wird zuerst nach Datum (eigenes Feld) und dann nach Namen von Mitarbeitern gruppiert
Im Bericht, der in der Berichtansicht geöffnet wird, habe ich das ungebundene Textfeld edPlus11 eingefügt, in dem mit der Funktion DatAdd("h";11;[BD_Ende]) 11 Stunden dazugerechnet werden - das funktioniert auch tadellos
Jeder Datensatz in dem Bericht hat nun neben dem [BD_Ende] das ungebundene Feld stehen.
Nun sollen nur die Felder rote Textfarbe erhalten, die eben in dem angegebenen Zeitraum fallen.

Ich habe es mit Deinem Vorschlag probiert und es wird der Text aller edPluss11 schwarz dargestellt, wenn ich auf eines der dieser Felder klicke

Mir kommt vor als ob in der If-Zeile der Zeitraum nicht erkannt wird.
...

Wie geschrieben, findet die Prüfung im von dir verwendeten Current-Ereignis nur für den Datensatz statt, der gerade den Fokus hat. Daher musst du es auch in einem Datensatz testen, der die Bedingung erfüllt und rot bringen sollte. Nur falls dabei nicht alle Datensätze rot werden, klappt etwas mit der Bedingung nicht.

Wegen der individuellen Prüfung+Formatierung aller Datensätze hatte ich das Formatieren-Ereignis des Bereiches vorgeschlagen. Dieses Ereignis findet aber wieder in der Berichtsansicht nicht statt. Hilft dir also auch nicht.

Da du die Berichtsansicht öffnest und mehrere Datensätze prüfen willst, müsstest du wohl die Bedingte Formatierung verwenden. Also:

1. den eh nicht funktionierenden VBA-Code zum Formatieren auskommentieren oder löschen
2. in der Entwurfsansicht des Berichtes Rechtsklick auf das Textfeld "edPlus11" und aus dem Kontextmenü "Bedingte Formatierung" (BF) wählen
3. im BF-Dialog wählst du "Neue Regel" und als Regel:

Ausdruck ist TimeValue([edPlus11])>"07:00" Und TimeValue([edPlus11])<="15:00"

4. unten im Dialog wählst du rote Schrift


-----
Servus
Karl
*********
Access News auf Youtube: https://youtu.be/hvbzxJL8Qh8
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page