<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b>!<\/p>\n
Das Management von Projekten ist eine recht komplexe Aufgabe – so komplex, dass Sie in der vorliegenden Ausgabe von Access im Unternehmen den zweiten Teil zu der Projektverwaltung aus Ausgabe 2\/2002 finden. Die Projektverwaltung erhält eine neue Funktion zur Eingabe und Auswertung der für die einzelnen Projekte aufgewendeten menschlichen Ressourcen – sprich: Welche Mitarbeiter haben eigentlich wie viel Zeit mit welchen Projekten verbracht Diese und weitere Informationen können Sie mit der hier vorgestellten Erweiterung der bestehenden Projektverwaltung übersichtlich in Form geeigneter Berichte ausgeben.<\/b><\/p>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Datenmodell der Projektverwaltung<\/span><\/b><\/p>\n Der zweite Teil der Projektverwaltung bringt zwei neue Features sowie damit in Zusammenhang stehende änderungen des Datenmodells mit sich.<\/p>\n Den ersten Teil dieser Beitragsreihe finden Sie auf der Heft-CD. Die Beispieldatenbanken mit den neuen Versionen der Projektverwaltung finden Sie ebenfalls auf der Heft-CD unter den Dateinamen Projektverwaltung97.mdb sowie Projektverwaltung2000.mdb. <\/p>\n Bei den zwei neuen Features handelt es sich um die Möglichkeit zur Eingabe von Arbeitszeiten der einzelnen Mitarbeiter sowie die Auswertung der eingegebenen Arbeitszeiten. <\/p>\n Die Eingabe der Arbeitszeiten erfolgt in halbstündigen Intervallen und ist streng projektbezogen. Das ermöglicht die Auswertung der Arbeitszeiten bezogen auf Mitarbeiter und Projekte.<\/p>\n Neben der Ausgabe der Arbeitszeiten je Mitarbeiter und Projekt in Form von Berichten ermöglicht ein spezielles Formular einen Tagesüberblick über die Arbeitszeiten von Mitarbeitern – entweder bezogen auf alle oder nur die an einem ausgewählten Projekt beteiligten Mitarbeiter.<\/p>\n Das Datenmodell besteht im Wesentlichen aus den Tabellen tblProjekte, tblProjektphasen und tblTaetigkeiten. Die Tabellen sind jeweils durch 1:n-Beziehungen miteinander verknüpft (siehe Bild 1).<\/p>\n Die Tabelle tblProjekte beinhaltet die einzelnen Projekte als oberste Ebene der Hierarchie des Datenmodells. Die Tabelle enthält ein Feld zur Angabe einer Projektbezeichnung sowie zwei Felder mit dem Start- und dem Enddatum des Projektes.<\/p>\n Jedes Projekt ist mit je einem Eintrag der Tabellen tblMitarbeiter und tblKunden verknüpft. Die Verknüpfung zur Tabelle tblMitarbeiter dient der Festlegung des Projektleiters. Mit dem Verweis auf die Tabelle tblKunden legen Sie den Kunden fest, für den Sie das Projekt durchführen.<\/p>\n Die nächste Ebene unter einem Projekt sind die einzelnen Projektphasen. Die Tabelle tblProjektphasen beinhaltet Informationen zu den Phasen wie die Bezeichnung und den Start- und den Endtermin.<\/p>\n Genau wie die Tabelle tblProjekte enthält auch die Tabelle tblProjektphasen einen Verweis auf die Tabelle tblMitarbeiter, um den für die Projektphase verantwortlichen Mitarbeiter festzulegen. Das Feld ProjektID dient zur Auswahl eines Projektes aus der Tabelle tblProjekte, zu dem die Projektphase gehört.<\/p>\n Bei den Projekten finden Sie eine der änderungen im Datenmodell gegenüber der Projektverwaltung des ersten Teils: Es ist nunmehr nicht mehr möglich, zu den einzelnen Projektphasen Unterphasen anzulegen. Die Anzeige der Projekte wurde entsprechend angepasst. <\/p>\n Die nächste Ebene des Datenmodells bilden die einzelnen Tätigkeiten. Die Informationen zu den Tätigkeiten befinden sich in der Tabelle tblTaetigkeiten. Genau wie die Tabellen tblProjekte und tblProjektphasen hat auch diese Tabelle einen Verweis auf die Tabelle tblMitarbeiter. Er dient allerdings nicht zur Auswahl des Verantwortlichen, sondern des Ausführenden der Tätigkeit.<\/p>\n Weitere Felder dienen zur Angabe der ausgeführten Tätigkeit, des Datums der Tätigkeit sowie des Zeitraums. Die Angabe des Zeitraums erfolgt durch die Auswahl der Start- und der Endzeit aus einer separaten Tabelle namens tblUhrzeiten. Die Tabelle enthält alle Tageszeiten in halbstündigen Abständen.<\/p>\n Die einzelnen Tätigkeiten können Sie über eine Verknüpfung zur Tabelle tblTaetigkeitsarten grob kategorisieren. Die Tabelle enthält neben dem Namen der Tätigkeitsart noch einen Farb-code. Das Formular zur Anzeige der Tätigkeiten eines Tages verwendet die Farbangaben zu deren übersichtlicheren Darstellung.<\/p>\n Die Tabelle tblMitarbeiter ist um zwei Felder erweitert worden: ArbeitszeitVon und ArbeitszeitBis. Diese Informationen benötigen Sie, um im Formular der Tätigkeiten eines Mitarbeiters direkt die Zeiten zu markieren, in denen der Mitarbeiter nicht verfügbar ist.<\/p>\n Da es im Vergleich zu der im ersten Teil des vorliegenden Beitrages beschriebenen Musterlösung nun nicht mehr nur die Projekte und deren Phasen, sondern auch noch die Tätigkeiten der Mitarbeiter eines Tages und einige Berichte zur Anzeige von Informationen gibt, benötigen Sie ein Hauptformular zur Auswahl der gewünschten Darstellungsart (siehe Bild 2).<\/p>\n <\/b><\/p>\n Bild 2: Hauptmenü der Projektverwaltung<\/span><\/b><\/p>\n Das Hauptmenü bietet vier Optionen. Die unterschiedlichen Optionen führen zu folgenden Ansichten:<\/p>\n <\/b><\/p>\n Bild 3: Anzeige der Tätigkeiten eines Tages<\/span><\/b><\/p>\n Da die Aufrufe teilweise eng mit den Funktionen verknüpft sind, folgt deren Beschreibung mit den jeweiligen Funktionen.<\/p>\n Die Verwaltung von Projekten ist nicht zuletzt die Kunst, mit minimaler Mitarbeiteranzahl eine große Menge Projekte in möglichst kurzer Zeit abzuarbeiten – und dabei nicht den überblick zu verlieren. Daher ist es nicht nur sinnvoll, nach der Durchführung eines Projektes einen Rückblick auf die eingesetzten Ressourcen zu werfen, sondern auch während der Projekte genau zu wissen, welcher Mitarbeiter wann an welchem Projekt arbeitet.<\/p>\n Formular zur Anzeige vonTätigkeiten<\/b><\/p>\n Zu diesem Zweck erstellen Sie nun ein Formular, mit dem Sie für jeweils einen Kalendertag alle Mitarbeiter und deren Tätigkeiten anzeigen können.<\/p>\n Das Formular hat einen ähnlichen Aufbau wie das Formular zur Anzeige von Projekten aus dem ersten Teil der Beitragsserie.<\/p>\n Im Kopf des Formular legen Sie vier Steuerelemente an – zwei Textfelder und zwei Schaltflächen.<\/p>\n Das erste Textfeld namens txtDatum zeigt das Datum des Tages an, für den die Tätigkeiten aufgelistet werden sollen.<\/p>\n Das zweite Textfeld namens txtProjekt zeigt an, ob die Mitarbeiter zu einem bestimmten Projekt oder alle Mitarbeiter angezeigt werden. <\/p>\n Die beiden Schaltflächen cmdTagZurueck und cmdTagVor dienen zum Vor- und Zurückblättern des angezeigten Datums.<\/p>\n Das Formular enthält jeweils eine Zeile in Form eines Unterformulars für jeden Mitarbeiter. Jede Zeile enthält den Namen des Mitarbeiters, je ein Kästchen für jede halbe Stunde des Kalendertages sowie eine Schaltfläche zum öffnen des Formulars zur Anzeige der Tätigkeiten des Mitarbeiters (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 4: Aufruf der Tagesansicht über das Formular frmUebersicht<\/span><\/b><\/p>\n Die dunklen Felder zeigen Zeiten an, dass der Mitarbeiter nicht zur Verfügung steht – entweder weil sie nicht in seiner Arbeitszeit liegen oder weil er einen als außer Dienst bezeichneten Tätigkeitszeitraum festgelegt hat.<\/p>\n Die weißen Felder zeigen Zeiten ohne Zuordnung irgendeiner Tätigkeit an. Sämtliche anders eingefärbten Felder entsprechen den in der Legende angegebenen Tätigkeitsarten.<\/p>\n Aufbau des Formulars<\/b><\/p>\n ähnlich wie das Formular zur Anzeige ganzer Projekte verwendet auch dieses Formular eine Reihe von Unterformularen, um die Daten für die einzelnen Mitarbeiter anzuzeigen.<\/p>\n Zur Erinnerung: Unter Access 97 ist es gar nicht und unter Access 2000 nur eingeschränkt möglich, Daten in Endlosformularen unterschiedlich zu formatieren. Daher verwenden Sie Unterformulare zur Anzeige der mit unterschiedlichen Farben markierten Zeiträume. <\/p>\n Im ersten Teil der Beitragsreihe verwendeten Sie eine feste Anzahl von Unterformularen, um die unterschiedlichen Projektphasen anzuzeigen. Das hatte zwei Nachteile: Wenn die tatsächliche Anzahl von Datensätzen kleiner als die Anzahl der angezeigten Unterformulare war, verschenkten Sie unnötig Platz. War die tatsächliche Anzahl größer, konnten nur die ersten n Phasen angezeigt werden.<\/p>\n Das Formular zur Anzeige der Tätigkeiten der einzelnen Mitarbeiter soll dieses Problem umgehen. Dazu wird die benötigte Anzahl von Unterformularen vor dem öffnen des Formulars ermittelt. Anschließend erstellt eine Prozedur dynamisch die benötigte Anzahl Unterformulare – also für jeden beteiligten Mitarbeiter eines.<\/p>\n Aufruf des Formulars<\/b><\/p>\n Das Hinzufügen von Steuerelementen zur Laufzeit erfordert das öffnen des gewünschten Objektes – in diesem Fall eines Formulars – in der Entwurfsansicht. In der Formularansicht ist kein Hinzufügen oder Entfernen von Elementen des Formulars möglich.<\/p>\n Da die Ereignisse eines Formulars nur zur Laufzeit des Formulars ausgelöst werden können, kann die Erstellung der benötigten Steuerelemente nicht durch die Ereignisse des Formulars selbst erfolgen.<\/p>\n Die Erstellung der benötigten Unterformulare erfolgt im aufrufenden Formular frmUebersicht.<\/p>\n Bild 4 zeigt den Bereich des Formulars frmUebersicht in der Entwurfsansicht, mit dem Sie nach der Auswahl der gewünschten Parameter die Tagesübersicht aufrufen können.<\/p>\n Mit der Optionsgruppe optgrpMitarbeiter legen Sie fest, ob alle Mitarbeiter oder nur die an einem bestimmten Projekt beteiligten Mitarbeiter angezeigt werden sollen. Dabei legen Sie mit dem Kombinationsfeld cboProjekt das gewünschte Projekt fest. <\/p>\n Mit der Schaltfläche cmdTagesansicht starten Sie das Ereignis zum Anpassen des Formulars zur Anzeige der Tätigkeiten. Dazu legen Sie die Prozedur aus Quellcode 1 für die Ereigniseigenschaft Beim Klicken der Schaltfläche an.<\/p>\n Die Prozedur ermittelt, ob Sie die Tätigkeiten aller oder nur die der an dem ausgewählten Projekt beteiligten Mitarbeiter ausgeben möchten. Wenn Sie alle Mitarbeiter in die Anzeige einbeziehen möchten, setzt die Prozedur die globale Variable AlleMitarbeiter auf den Wert True. Falls nicht, erhält die Variable den Wert False. Außerdem erhält die Variable AktuellesProjekt die ID des ausgewählten Projektes.<\/p>\n Die globalen Variablen legen Sie bitte in einen neuen Klassenmodul namens mdlGlobal an.<\/p>\n Die Prozedur TagesansichtAktualisieren (s. Quellcode 2) legen Sie in einem neuen Standardmodul namens mdlTagesansicht an. Der Grund liegt darin, dass Sie die Prozedur zur Anzeige der Tagesübersichten später noch von weiteren Formularen aus aufrufen.<\/p>\n Die Prozedur fragt nach dem Deklarationsteil zunächst die soeben gesetzten globalen Variablen ab. Wenn der Anwender die Anzeige der Tätigkeiten aller Mitarbeiter gewählt hat, dient die komplette Tabelle tblMitarbeiter als Grundlage für die zu erstellenden Unterformulare.<\/p>\n <\/p>\n <\/b><\/p>\n Bild 5: Entwurfsansicht der Abfrage zur Ermittlung von Mitarbeitern und deren Projekten<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Falls das Formular nur die Tätigkeiten von Mitarbeitern anzeigen soll, die an einem bestimmten Projekt beteiligt sind, muss es diese zunächst ermitteln.<\/p>\n Quellcode 2<\/b><\/p>\n Dazu dient eine Abfrage, die alle Mitarbeiter und deren Projekte ermittelt. Aus dem Ergebnis diese Abfrage wiederum filtert die Prozedur alle Datensätze heraus, die zu dem angegebenen Projekt gehören.<\/p>\n Das Aussehen der Abfrage können Sie Bild 5 entnehmen. Sie enthält vier Tabellen, von denen allerdings nur zwei die Informationen für das Ergebnis liefern.<\/p>\n Anlegen derUnterformular-Steuerelemente<\/b><\/p>\n Im Anschluss an die Ermittlung der betroffenen Mitarbeiter wird es interessant: Die Prozedur öffnet das Formular frmTagesplan in der Entwurfsansicht.<\/p>\n In der anschließenden For Next-Schleife entfernt die Prozedur zunächst alle zuvor verwendeten Unterformular-Steuerelemente. Dabei durchläuft die Prozedur alle Steuerelemente dem Index nach. Dieser Durchlauf muss rückwärts erfolgen, da ein Entfernen von Steuerelementen immer eine neue Indexierung der anderen Steuerelemente zur Folge hat. Die Anweisungen innerhalb der Schleife überprüfen, ob der Name des Steuerelementes mit sfm beginnt, und entfernen es dann gegebenenfalls.<\/p>\n Nachdem alle Unterformulare entfernt sind, können die neuen Unterformulare erstellt werden. Dabei durchläuft die Prozedur in einer Do While-Schleife alle Datensätze der ermittelten Datensatzgruppe der Mitarbeiter.<\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4 (erster Teil)<\/b><\/p>\n Mit der CreateControl-Funktion erstellt die Prozedur die neuen Unterformulare und vergrößert den Wert der vertikalen Position der Formulare jeweils so, dass alle Unterformulare genau untereinander positioniert werden.<\/p>\n <\/b><\/p>\n Bild 6: Entwurfsansicht der Abfrage qryTaetigkeiten<\/span><\/b><\/p>\n Anschließend werden einige Eigenschaften festgelegt: Das Formular sfmTagesplan wird zum Herkunftsobjekt des neuen Unterformular-Steuerelements, die Eigenschaft Spezialeffekt wird auf Flach und die Eigenschaft Rahmenart auf den Wert Keine eingestellt. Außerdem erhält das Unterformular-Steuerelement einen Namen, der sich aus der Zeichenfolge frm und der Mit-arbeiterID zusammensetzt. Schließlich wird das Formular in der Formularansicht geöffnet.<\/p>\n Anlegen desUnterformularssfmTagesplan<\/b><\/p>\n Die frisch angelegten Unterformular-Steuerelemente warten nun auf die anzuzeigenden Daten. Das Anzeigen der Daten ist jedoch nicht ohne ein entsprechendes Unterformular möglich.<\/p>\n Quellcode 4 (Fortsetzung)<\/b><\/p>\n Legen Sie daher ein neues Formular an und speichern es unter dem Namen sfmTagesplan. Das Formular enthält zwei Textfelder zur Anzeige von MitarbeiterID und Mitarbeitername namens txtMitarbeiterID und txtMitarbeiter sowie 48 Textfelder für die Anzeige des Tagesverlaufs.<\/p>\n Die Namen der Textfelder setzen sich aus den Buchstaben lbl sowie der laufenden Nummer von 1 bis 48 zusammen. Schließlich fehlt noch eine Schaltfläche zum Aufrufen eines Formulars, mit dem der Anwender die Daten bearbeiten kann – sie heißt cmdBearbeiten. <\/p>\n <\/b><\/p>\n Bild 7: Entwurfsansicht des Unterformulars sfmTagesplan<\/span><\/b><\/p>\n Nachdem Sie das Unterformular erstellt haben, können Sie das Formular frmTagesplan bereits öffnen und die entsprechende Anzahl Unterformularsteuerelemente automatisch erstellen lassen.<\/p>\n Wenn Ihnen davor graut, 48 Textfelder exakt gleicher Größe und mit akkurater Positionierung anzulegen und diese auch noch zu benennen, können Sie sich den Beitrag Steuerelemente vom Fließband zu Gemüte führen. Sie finden ihn auf der Heft-CD <\/p>\n Aktivieren desFormularsfrmTagesplan<\/b><\/p>\n <\/b><\/p>\n Bild 8: Anzeige der Tätigkeit per ControlTipText<\/span><\/b><\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Nun ist der Moment gekommen, das Formular frmTagesplan mit Leben zu füllen.<\/p>\n Dazu dient die Prozedur aus Quellcode 3, die Sie für die Ereigniseigenschaft Beim öffnen des Formulars hinterlegen.<\/p>\n Die Prozedur überprüft, ob im Kombinationsfeld cboProjekte des aufrufenden Formulars frmUebersicht ein Projekt ausgewählt ist. Falls nicht, erscheint im Textfeld txtProjekt der Text Alle Projekte, anderenfalls erscheint dort der Name des ausgewählten Projekts. Das Textfeld txtDatum zeigt das aktuelle Datum an. <\/p>\n Anschließend ruft die Ereignisprozedur die Prozedur TagesplanAktualisieren auf (s. Quellcode 4). <\/p>\n Nach dem Deklarationsteil ermittelt die Prozedur wie in der bereits zuvor beschriebenen Prozedur die Mitarbeiter, deren Daten angezeigt werden sollen.<\/p>\n <\/b><\/p>\n Bild 9: Entwurfsansicht des Formulars frmTaetigkeitenBearbeiten<\/span><\/b><\/p>\n Quellcode 9<\/b><\/p>\n Anschließend durchläuft die Prozedur zwei ineinander geschachtelte Schleifen. Die äußere Schleife durchläuft alle betroffenen Datensätze der Tabelle tblMitarbeiter. Sie schreibt die Inhalt der Felder MitarbeiterID und Nachname in die entsprechenden Textfelder txtMitarbeiterID und txtMitarbeiter der Unterformulare.<\/p>\n Ein wichtiger Punkt ist die Zuweisung des Namen einer Funktion an die Eigenschaft OnClick der Schaltfläche cmdBearbeiten des Unterformulars. Diese Funktion soll ein Formular aufrufen, dass die Tätigkeiten des Mitarbeiters anzeigt, zu dessen Unterformular die Schaltfläche gehört. Normalerweise würden Sie diese Funktion direkt beim Erstellen des Unterformulars für die Ereigniseigenschaft eintragen. Die Funktion benötigt aber z. B. die MitarbeiterID des entsprechenden Mitarbeiters, um nur dessen Tätigkeiten anzeigen zu können. Daher kann der Funktionsaufruf erst zur Laufzeit zugewiesen werden.<\/p>\n Die beiden Felder ArbeitszeitVon und ArbeitszeitBis werden so in die Unterformulare eingearbeitet, dass all diejenigen der 48 Textfelder weiß gefärbt werden, die zwischen den beiden Zeitpunkten liegen.<\/p>\n Anschließend durchläuft die innere Schleife alle Datensätze der Tabelle tblTaetigkeiten, die zu dem aktuellen Mitarbeiter, dem gewünschten Tag und ggf. dem aktuellen Projekt gehören. Zur Ermittlung dieser Datensätze benötigen Sie eine Abfrage namens qryTaetigkeiten mit den entsprechenden Datensätzen (siehe Bild 6).<\/p>\n Dabei passiert mit jedem Datensatz das gleiche wie mit den Arbeitszeiten: Die Textfelder, die dem Zeitraum einer Tätigkeit entsprechen, werden in der Farbe der entsprechenden Tätigkeitsart eingefärbt.<\/p>\n Zusätzlich erhalten alle Textfelder den Inhalt des Feldes Taetigkeit des aktuellen Datensatzes der Tabelle tblTaetigkeiten als Wert der Eigenschaft ControlTipText eingesetzt. Auf diese Weise kann durch Positionieren des Mauszeigers direkt der Inhalt der Tätigkeit ermittelt werden (siehe Bild 8).<\/p>\n ändern des Datums<\/b><\/p>\n Das Formular soll drei Möglichkeiten bieten, um ein anderes als das aktuell angezeigte Datum auszuwählen.<\/p>\n Die erste Möglichkeit ist die direkte Eingabe des Datums von Hand. Damit die angezeigten Daten nach der Eingabe des Datums aktualisiert werden, legen Sie für die Ereigniseigenschaft Nach Aktualisierung die Prozedur aus Quellcode 5 an. Die Prozedur ruft lediglich die bereits erwähnte Prozedur TagesplanAktualisieren auf.<\/p>\n Die zweite Möglichkeit ist das Vor- und Zurückblättern um jeweils einen Tag mit den beiden Schaltflächen cmdTagVor und cmdTagZurueck. Dazu legen Sie zwei Prozeduren für die Ereigniseigenschaften Beim Klicken der beiden Schaltflächen an (Quellcode 6 und Quellcode 7).<\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 11<\/b><\/p>\n Genauere Informationen zum Umgang mit dem Kalendersteuerelement finden Sie im Beitrag Datumeingabe mit dem Kalendersteuerelement auf der Heft-CD. <\/p>\n Die dritte und letzte Möglichkeit ist die Auswahl des gewünschten Datums mit dem Kalendersteuerelement. Die Prozedur aus Quellcode 8 öffnet ein Formular, in dem sich das Kalendersteuerelement befindet.<\/p>\n Anlegen und Bearbeiten neuerTätigkeiten<\/b><\/p>\n Leider entstehen durch das Betrachten des nun fast fertigen Formulars zur Anzeige von Tätigkeiten nicht automatisch auch die entsprechenden Einträge. <\/p>\n Dazu benötigen Sie noch ein Formular, das über die Schaltfläche cmdBearbeiten geöffnet wird. Die Schaltfläche selbst enthält – wie weiter oben beschrieben – den Namen der aufzurufenden Funktion TaetigkeitenBearbeiten als Wert der Ereigniseigenschaft Beim Klicken.<\/p>\n Die Prozedur setzt aus der MitarbeiterID und dem Datum ein Kriterium zusammen, das im anschließenden Aufruf des Formulars frmTaetigkeitenBearbeiten für den Parameter WhereCondition übermittelt wird (s. Quellcode 9).<\/p>\n <\/b><\/p>\n Bild 10: Auswahl einer Projektphase<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 11: Das Formular frmUebersicht in der Entwurfsansicht<\/span><\/b><\/p>\n Bild 9 zeigt die Entwurfsansicht des Formulars. Die Datenherkunft des Formulars ist wiederum eine Abfrage und enthält nahezu alle Felder der drei Tabellen tblProjekte, tblProjektphasen und tblTaetigkeiten. Dem entsprechen auch die zum größten Teil an diese Datenherkunft gebundenen Steuerelemente. Damit Sie nach der Bearbeitung der Daten wieder zum aufrufenden Formular zurückkehren können und direkt die aktualisierten Daten vorfinden, legen Sie für die Ereigniseigenschaft Beim Klicken der Schaltfläche cmdSpeichern die Prozedur aus Quellcode 10 an. Die Prozedur speichert den Datensatz, aktualisiert die Anzeige des Formulars frmTagesplan und schließt das Formular frmTaetigkeitenBearbeiten.<\/p>\n Falls der Benutzer den neuen oder den zuletzt bearbeiteten Datensatz nicht übernehmen möchte, stellen Sie ihm eine Schaltfläche zum Abbrechen der Bearbeitung zur Verfügung. Die Schaltfläche löst beim Klicken die Prozedur aus Quellcode 11 aus.<\/p>\n Das Kombinationsfeld zur Anzeige der Projektphasen soll nur diejenigen Projektphasen anzeigen, die zu dem im darüber liegenden Kombinationsfeld ausgewählten Datensatz gehören. Dazu wird bei jeder Auswahl eines Projektes die globale Variable AktuellesProjekt auf den entsprechenden Wert gesetzt.<\/p>\n Die beiden Hauptformulare der Projektverwaltung zur Anzeige der Detaildaten eines Projektes sowie der Tagesübersicht über die Tätigkeiten aller Mitarbeiter sind vorwiegend zur Eingabe und weniger zur Vermittlung eines überblicks über die geleisteten Arbeitsstunden geeignet. Um beispielsweise alle Tätigkeiten der unterschiedlichen Phasen eines Projektes übersichtlich anzeigen zu können, verwenden Sie einen Bericht.<\/p>\n Aufruf des Berichts<\/b><\/p>\n Der Bericht bezieht sich auf ein zuvor mit einem geeigneten Formular auszuwählenden Projekt. Hierzu verwenden Sie das bereits zum Aufruf der anderen Ansichten erstellten Formular frmUebersicht (siehe Bild 11). Das Kombinationsfeld cboProjekteBericht dient zur Auswahl des gewünschten Projektes. Die Optionsgruppe, in der sich das Kombinationsfeld befindet, hat derzeit nur eine Option. Möglicherweise möchten Sie selbst noch weitere Optionen hinzufügen, wie z. B. die Anzeige einer mitarbeiterspezifischen Ausgabe der Tätigkeiten.<\/p>\n Quellcode 12<\/b><\/p>\n <\/b><\/p>\n Bild 12: Bericht zur Ausgabe der Auswertung eines Projektes in der Vorschau<\/span><\/b><\/p>\n Die Schaltfläche cmdAuswertungen dient dem Aufruf des Berichts zur Anzeige der Auswertung. Für die Ereigniseigenschaft Beim Klicken der Schaltfläche hinterlegen Sie die Prozedur aus Quellcode 12. Die Prozedur überprüft zunächst, ob der Benutzer mit dem Kombinationsfeld cboProjekteBericht ein Projekt ausgewählt hat. Falls nicht, erscheint eine entsprechende Meldung und die Prozedur wird mit der Anweisung Exit Sub beendet.<\/p>\n Falls der Benutzer ein Projekt ausgewählt hat, öffnet die folgende Anweisung den Bereicht repProjekte in der Vorschauansicht und übergibt für den Parameter WhereCondition den Inhalt des Kombinationsfelds.<\/p>\n Erstellen desBerichts<\/b><\/p>\n Der Bericht dient zur Anzeige aller Informationen zu einem Projekt, die mit der Projektverwaltung in der vorliegenden Version verwaltet werden können.<\/p>\n Dabei orientiert sich die Darstellung hauptsächlich an der im Formular zur Anzeige der Projektdetails und -phasen verwendeten Struktur. Die übergeordnete Sortierung erfolgt also nach der Projektphase. In der zweiten Ebene werden die Tätigkeiten jeder einzelnen Projektphase angezeigt (siehe Bild 12).<\/p>\n Als Datenherkunft dient eine Abfrage, die alle Tabellen der Projektverwaltung enthält. Sie finden die Abfrage in den Beispieldatenbanken unter dem Namen qryRepProjekte.<\/p>\n Der Bericht besteht aus den üblichen Bereichen plus zwei Gruppierungen nach den Projekten, den Projektphasen und den Tätigkeiten (siehe Bild 13). Die Gruppierungen legen Sie im Dialog Gruppieren und Sortieren fest (siehe Bild 14).<\/p>\n Für die Gruppierungen benötigen Sie noch einige weitere Berichtsbereiche. Für die Projekte verwenden Sie einen zusätzlichen Fußbereich, der zur Anzeige der Gesamtsumme der in das Projekt investierten Arbeitsstunden dient.<\/p>\n <\/b><\/p>\nHinweis<\/h3>\n
Ebene der Projekte<\/h3>\n
Ebene der Phasen<\/h3>\n
Hinweis<\/h3>\n
<\/h3>\n
Speicherung von Tätigkeiten<\/h3>\n
Kategorisieren der Tätigkeiten<\/h3>\n
Mitarbeiter und Arbeitszeiten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic004.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic005.png\")
<\/p>\nPrivate Sub cmdTagesansicht_Click()\r\n Dim ProjektID As Integer\r\n If Me.optgrpMitarbeiter = 1 Then\r\n AlleMitarbeiter = True\r\n TagesansichtAktualisieren\r\n Else\r\n AlleMitarbeiter = False\r\n If Not IsNull(Me.cboProjekte) Then\r\n AktuellesProjekt = Me.cboProjekte\r\n TagesansichtAktualisieren\r\n Else\r\n MsgBox \"Projekt auswählen!\", _\r\n vbOKOnly + vbExclamation, _\r\n \"Projektverwaltung\"\r\n End If\r\n End If\r\nEnd Sub<\/pre>\n
Public Sub TagesansichtAktualisieren()\r\n Dim objFormular As Form\r\n Dim i As Integer\r\n Dim strSQL As String\r\n Dim objUnterformular As Control\r\n Dim db As Database\r\n Dim rst As Recordset\r\n If AlleMitarbeiter = True Then\r\n strSQL = \"tblMitarbeiter\"\r\n Else\r\n If IsNull(AktuellesProjekt) Then\r\n MsgBox \"Kein Projekt ausgewählt!\", _\r\n vbExclamation + vbOKOnly\r\n Exit Sub\r\n End If\r\n strSQL = \"SELECT DISTINCT MitarbeiterID FROM \" _\r\n & \"qryMitarbeiterProjekte\"\r\n If Not IsNull(AktuellesProjekt) Then\r\n strSQL = strSQL & \" WHERE ProjektID = \" & _\r\n AktuellesProjekt & \" GROUP BY MitarbeiterID\"\r\n End If\r\n End If\r\n DoCmd.OpenForm \"frmTagesplan\", acDesign\r\n Set objFormular = Forms!frmTagesplan\r\n For i = objFormular.Controls.Count - 1 To 0 Step -1\r\n If Left(objFormular.Controls.Item(i).Name, 3) _\r\n = \"sfm\" Then\r\n DeleteControl objFormular.Name, _\r\n objFormular.Controls.Item(i).Name\r\n End If\r\n Next i\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n i = 1\r\n Do While Not rst.EOF\r\n Set objUnterformular = _\r\n CreateControl(objFormular.Name, acSubform, _\r\n acDetail, , , 0, (i - 1) * 300, 12000, 300)\r\n With objUnterformular\r\n .SourceObject = \"sfmTagesplan\"\r\n .SpecialEffect = 0\r\n .BorderStyle = 0\r\n .Name = \"sfm\" & rst!MitarbeiterID\r\n End With\r\n i = i + 1\r\n rst.MoveNext\r\n Loop\r\n DoCmd.RunCommand acCmdSave\r\n DoCmd.OpenForm \"frmTagesplan\", acNormal\r\nEnd Sub<\/pre>\n
Private Sub Form_Current()\r\n If IsNull(Forms!frmUebersicht!cboProjekte) Then\r\n Me.txtProjekt = \"Alle Projekte\"\r\n Else\r\n AktuellesProjekt = _\r\n Forms!frmUebersicht!cboProjekte\r\n Me.txtProjekt = _\r\n Forms!frmUebersicht!cboProjekte.Column(1)\r\n End If\r\n If TagTaetigkeit = \"30.12.1899\" Then\r\n Me.txtDatum = Date\r\n Else\r\n Me.txtDatum = TagTaetigkeit\r\n End If\r\n TagesplanAktualisieren\r\nEnd Sub<\/pre>\n
Sub TagesplanAktualisieren()\r\n Dim ctl As Control\r\n Dim db As Database\r\n Dim rstM, rstT As Recordset\r\n Dim Start, Ende, i, MitarbeiterID As Integer\r\n Dim Datum As Date\r\n Dim strM, strT As String\r\n Set db = CurrentDb<\/pre>\n
If AlleMitarbeiter = True Then\r\n strM = \"tblMitarbeiter\"\r\n Else\r\n strM = \"SELECT DISTINCT MitarbeiterID, Nachname, ArbeitszeitVon, \" _\r\n & \"ArbeitszeitBis FROM qryMitarbeiterProjekte WHERE ProjektID = \" & _\r\n AktuellesProjekt\r\n End If\r\n Set rstM = db.OpenRecordset(strM, dbOpenDynaset)\r\n Do While Not rstM.EOF\r\n MitarbeiterID = rstM!MitarbeiterID\r\n With Me(\"sfm\" & MitarbeiterID)\r\n .Form.txtMitarbeiterID = rstM!MitarbeiterID\r\n .Form.txtMitarbeiter = rstM!Nachname\r\n .Form(\"cmdBearbeiten\").OnClick = \"=TaetigkeitenBearbeiten(\" _\r\n & rstM!MitarbeiterID & \", \"\"\" & Me.txtDatum & \"\"\")\"\r\n For i = 1 To 48\r\n .Form(\"lbl\" & i).BackColor = 8421504\r\n Next i\r\n For i = rstM!ArbeitszeitVon To rstM!ArbeitszeitBis\r\n .Form(\"lbl\" & i).BackColor = 16777215\r\n Next i\r\n strT = \"SELECT * FROM qryTaetigkeiten WHERE MitarbeiterID = \" _\r\n & MitarbeiterID & \" AND Datum = \" & ISODatum(Me.txtDatum)\r\n If Not IsNull(Forms!frmUebersicht!cboProjekte) Then\r\n strT = strT & \" AND ProjektID = \" & Forms!frmUebersicht!cboProjekte\r\n End If\r\n Set rstT = db.OpenRecordset(strT, dbOpenDynaset)\r\n Do While Not rstT.EOF\r\n Start = rstT!Start\r\n Ende = rstT!Ende\r\n For i = Start To Ende - 1\r\n .Form(\"lbl\" & i).BackColor = rstT!Farbcode\r\n .Form(\"lbl\" & i).ControlTipText = \"\" & rstT!Taetigkeit\r\n Next i\r\n rstT.MoveNext\r\n Loop\r\n End With\r\n rstM.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic006.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic007.png\")
<\/p>\nPrivate Sub txtDatum_AfterUpdate()\r\n TagesplanAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub cmdTagVor_Click()\r\n txtDatum = CDate(txtDatum) + 1\r\n TagesplanAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub cmdTagZurueck_Click()\r\n txtDatum = CDate(txtDatum) - 1\r\n TagesplanAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub txtDatum_DblClick(Cancel As Integer)\r\n DoCmd.OpenForm \"frmKalender\", _ Windowmode:=acDialog, OpenArgs:=Me.txtDatum\r\n Me.txtDatum = Forms!frmKalender!ctlKalender\r\n DoCmd.Close acForm, \"frmKalender\"\r\n TagesplanAktualisieren\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic008.png\")
<\/p>\nPublic Function TaetigkeitenBearbeiten(MitarbeiterID _ As Integer, Datum As Date)\r\n Dim Kriterium As String\r\n Kriterium = \"MitarbeiterID = \" & MitarbeiterID _ & \" AND Datum = \" & ISODatum(Datum)\r\n DoCmd.OpenForm \"frmTaetigkeitenBearbeiten\", _ WhereCondition:=Kriterium, _ OpenArgs:=MitarbeiterID\r\nEnd Function<\/pre>\n
Private Sub cmdSpeichern_Click()\r\n If MsgBox(\"Möchten Sie die änderungen wirklich speichern\", _ vbYesNo + vbExclamation, \"Projektverwaltung\") = vbYes Then\r\n If IsNull(Me.ProjektphaseID) Then\r\n MsgBox \"Projektphase auswählen!\", _\r\n vbOKOnly + vbExclamation, _\r\n \"Projektverwaltung\"\r\n Exit Sub\r\n End If\r\n If IsNull(Me.TaetigkeitstypID) Then\r\n MsgBox \"Tätigkeitstyp auswählen!\", _\r\n vbOKOnly + vbExclamation, \"Projektverwaltung\"\r\n Exit Sub\r\n End If\r\n DoCmd.RunCommand acCmdSaveRecord\r\n TagesansichtAktualisieren\r\n DoCmd.Close acForm, Me.Name\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdAbbrechen_Click()\r\n If MsgBox(\"Möchten Sie die änderungen wirklich verwerfen\", _ vbYesNo + vbExclamation, \"Projektverwaltung\") = vbYes Then\r\n If Me.Dirty Then\r\n Me.Undo\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\n End If\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic010.png\")
<\/p>\nPrivate Sub cmdAuswertungen_Click()\r\n If IsNull(Me.cboProjekteBericht) Then\r\n MsgBox \"Bitte wählen Sie das gewünschte \" _ & \"Projekt aus.\", vbOKOnly + _ vbExclamation, \"Projektverwaltung\"\r\n Exit Sub\r\n End If\r\n DoCmd.OpenReport \"repProjekte\", acViewPreview, _ WhereCondition:=\"ProjektID = \" _\r\n & Me.cboProjekteBericht\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic011.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic012.png\")
<\/p>\n
![](\"..\/fileadmin\/_temp_\/{9834CE5C-CFF0-4710-A9F2-9AD87878B15A}\/pic013.png\")
<\/p>\n