Office: (Office 2007) Fehlzeiten-Übersicht in Formular darstellen

Hallo,

ich möchte eine Übersicht der Fehlzeiten, in Abhängigkeit des gewählten Kunden und Monats in einem Endlosformular darstellen.

Die Fehlercodes ('U', 'K', usw.) sollen aus qryFehlzeiten gelesen werden und in den Textfeldern ('Fehl1' bis 'Fehl31'), des jeweiligen Mitarbeiters erscheinen.

Leider komme ich nicht weiter *upps

Eine Beispiel-DB habe ich angehangen. Bin für jede Anregung dankbar!

Grüsse aus Köln, Mike

:)

 

Moin Mike,

ich halte Deine Konstruktion, die Fehlzeiten in 31 Felder einzulesen bzw. zu verwalten als zumindest überdenkenswert. Komme aber erst morgen dazu , mir das gründlicher anzuschauen.

 

Hallo Hans-Christian,

danke für Deine Antwort!

Natürlich freue ich mich auch über andere Lösungsansätze :-)

Grüsse, Mike

 

Hallo Mike,

Du könntest Dein Konzept etwas ändern. Dazu benötigst Du eine Tabelle, in der für alle Tage ein Datensatz enthalten ist. Diese Tabelle joinst Du in einer Abfrage mit den Werten aus Deiner Fehlzeitenabfrage. Dabei stellst Du die Verknüpfung so ein, dass alle DS aus der Tabelle mit den Tage und nur die DS aus der Abfrage mit den Fehlzeiten angezeigt werden. Die Abfrage musst Du noch überentsprechende Kriterien einschränken.
Diese Abfrage nimmst Du jetzt als Basis für eine Kreuztabellenabfrage. Diese wiederum wird die Datenbasis für Dein Formular.

HTH

 

Hallo Thomas,

ich bin Deinem Vorschlag gefolgt und habe wieder dazu gelernt :-)

Nun habe ich jedoch noch Formatierungs & Darstellungsfehler (s.Screenshot) bei den Einträgen, die keinen Fehlcode je Mitarbeiter+Tag enthalten.

Desweiteren wird die Hintergrundfarbe bei diesen Einträgen (nur Wochenenden) nicht wie gewünscht grau eingefärbt.

Bitte um Hilfe!

Vielen Dank, Mike

 

Hallo Mike,

da sollte es helfen, wenn Du in den zu Grunde liegenden Abfragen mit der NZ-Funktion arbeitest.

CU

 

Hallo Thomas,

ich habe versucht, mit NZ das Problem zu lösen, doch leider ohne Erfolg!
Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht mehr :-(

Vielleicht kannst Du nochmal helfen...

Vielen Dank. Grüsse, Mike

 

Hallo Thomas,

ich habe das Problem gelöst, in dem ich eine 3.Abfrage qryTemp3 erstellt habe,
die alle Tage anzeigt.

Nun bleibt nur noch das Problem mit der Umrandung der Textfelder für jeden Tag (beim ersten und letzten Detaildatensatz), die nicht immer korrekt angezeigt wird.

Simulieren kann man das in dem man zwischen Aug2010 und Mrz2010 wechselt!

Desweiteren werden die einzelnen Tage eines Monats nicht auf einmal dargestellt, sondern erst bei der Anzeige 'gezeichnet'.

Mit Me.Painting = True / False konnte ich es nicht beheben...

Grüsse, Mike

 

Hallo Mike,

das Problem liegt darin, dass Du aus dem Ereignis After-Update für das cboMonat den Code für das Ereignis After-Update des cboKunden aufgerufen hast. Dort wird als letzte Zeile mit Me.Painting = True die Bildschirmatktualisierung wieder eingeschaltet. Danach werden die weiteren Schritte im Code des After-Update Ereignisses des cboMonat abgearbeitet.

BTW: Wenn Du eine RecordSource neu zuweist löst das von selbst ein Requery aus. Die entsprechende Zeile in Deinem Code ist also überflüssig.

Mit diesem Code hat es für mich funktioniert:

Code:

Noch ein BTW: Wenn Du die Bildschirmaktualisierung auf False setzt solltest Du in Deinen Prozeduren unbedingt eine Fehlerbehandlung einfügen und dafür sorgen, dass die Bildschirmaktualisierung auf jeden Fall wieder aktiviert wird. Sonst friert Dir die Anwendung nach einem Fehler in dieser Routine ein.

HTH

 

Hallo Thomas,

jetzt funktioniert es! Danke nochmals für den genialen Tipp mit der Kreuztabellenabfrage, den ich auch für einige andere Projekte einsetzen kann.

Viele Grüsse aus Köln, Mike