Elite Veteran
Beiträge: 876
  
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-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
