<\/p>\n
Haben Sie sich schon einmal von einer Tomate beim Programmieren antreiben lassen Falls nicht, haben wir vielleicht eine interessante Methode des Zeitmanagements für Sie. Natürlich nicht, ohne gleichzeitig eine entsprechende Datenbank zur Verwaltung der Ergebnisse zu präsentieren. Wenn es Ihnen gefällt, arbeiten Sie vielleicht demnächst im 25-Minuten-Rythmus, und wenn nicht, können Sie vielleicht Ihre anderen Tätigkeiten mit der hier vorgestellten Datenbank auswerten.<\/b><\/p>\n
Der Italiener Francesco Cirillo stellt auf seiner Webseite www.pomodorotechnique.com<\/b> eine nicht ganz neue, aber sehr interessante Technik zum Zeitmanagement vor: die Pomorodo-Technik. Für die Durchführung dieser Technik brauchen Sie nicht viel:<\/p>\n Der Anlass zur Verwendung dieser Technik ist, dass viele Menschen sich kaum noch über einen längeren Zeitraum ohne Ablenkung auf eine Aufgabe konzentrieren können. Das hat nicht nur mit mangelnder Konzentration, sondern auch mit internen und externen Störungen zu tun: Sie möchten etwas trinken, essen oder andere Dringlichkeiten erledigen, rufen E-Mails ab, werden angerufen oder durch Kollegen oder Familienmitglieder unterbrochen.<\/p>\n Der Autor dieser Zeilen schaffte es bis vor kurzem bisweilen, mehrere Male pro Stunde E-Mails zu checken, zu surfen, Kaffee zu holen oder etwas zu naschen. Warum Weil gerade nicht genug Konzentration für die aktuelle Aufgabe vorhanden war und er sich ablenken wollte. Die Pomodoro-Technik brachte hier ein wenig Ordnung hinein.<\/p>\n 25 Minuten Konzentration<\/b><\/p>\n Wie also funktioniert diese Technik Zunächst füllen Sie eine Liste mit allen aktuell und in nächster Zeit abzuarbeitenden Aufgaben. Eine Vorlage zum Ausdrucken finden Sie genau wie die tägliche ToDo-Liste unter www.pomodorotechnique.com\/products.html<\/b>. Dort gibt es auch eine ausführliche englische Anleitung der Technik im PDF-Format zum kostenlosen Download.<\/p>\n Jeden Morgen legen Sie dann eine neue ToDo-Liste mit den geplanten Aufgaben für diesen Tag an. Diese Liste wird von oben abgearbeitet, aber auf spezielle Weise: Zu Beginn der ersten Aufgabe stellen Sie den Küchenwecker nämlich auf 25 Minuten ein (eine 25-Minuten-Einheit heißt ab jetzt Pomodoro<\/b>) und arbeiten genau so lange, bis der Wecker klingelt.<\/p>\n Tun Sie nichts, was nicht der Erledigung der aktuellen Aufgabe dient! Rufen Sie keine E-Mails ab, denken Sie nicht über die Gestaltung des Feierabends nach, rufen Sie nicht den Pizza-Bringdienst an!<\/p>\n Danach machen Sie ein X hinter die aktuell bearbeitete Aufgabe, damit Sie später nachvollziehen können, wie lange Sie für die Aufgabe benötigt haben. Anschließend machen Sie drei bis fünf Minuten Pause und beschäftigen sich mit etwas anderem – umhergehen, etwas trinken, zur Toilette gehen et cetera. Aber erledigen Sie keine Aufgaben, die mit Ihrer Arbeit zu tun haben.<\/p>\n Danach stellen Sie den Wecker erneut und arbeiten weitere 25 Minuten und so weiter. Nach vier Einheiten machen Sie eine längere Pause von 15 bis 30 Minuten.<\/p>\n Ein Pomodoro ist eine untrennbare Einheit. Sie dürfen weder kürzer noch länger als 25 Minuten an der ausgewählten Tätigkeit arbeiten. Wenn die Tätigkeit genau 25 Minuten dauert – perfekt! Wenn Sie länger für ihre Erledigung brauchen, teilen Sie diese auf mehrere Pomodoros auf (Aufgaben, die mehr als 5 bis 7 Pomodoros benötigen, sollten Sie in mehrere Aufgaben aufsplitten). Wenn Sie weniger als 25 Minuten für eine Aufgabe brauchen, sammeln Sie mehrere Tätigkeiten, die zusammen etwa 25 Minuten dauern (ich bin auf diese Weise das regelmäßige E-Mail-Checken losgeworden – es findet nun ca. einmal täglich zusammen mit einigen anderen organisatorischen Tätigkeiten innerhalb von 25 Minuten statt).<\/p>\n Wenn Sie eine Tätigkeit erledigt haben, streichen Sie diese sowohl aus der täglichen ToDo-Liste als auch aus der Übersichtsliste heraus.<\/p>\n Unterbrechungen<\/b><\/p>\n Es ist eine große Herausforderung, sich weder von internen (selbst initiierten) noch von externen Ablenkungen bei der Abarbeitung der 25-Minuten-Blöcke stören zu lassen. Was immer sich Ihr Kopf ausdenkt, um Sie von der Arbeit abzulenken, und wer auch immer Sie telefonisch, per SMS oder persönlich zu stören versucht: Es gibt kaum etwas, was nicht 25 Minuten oder gegebenenfalls zwei Stunden warten kann. Sollte eine Ablenkung ein Eingreifen nach dem aktuellen Pomodoro oder einem Vierer-Set erfordern, tragen Sie diese unten in die tägliche ToDo-Liste ein, markieren diese mit einem U <\/b>für Ungeplant<\/b> und kümmern sich zu gegebener Zeit darum.<\/p>\n Wenn Sie sich selbst abgelenkt und dies bemerkt haben, fügen Sie zur Liste der Kreuzchen (X) der aktuellen Aufgabe einen Strich (“) hinzu. Wenn eine externe Störung geschieht, die Sie durch Hinzufügen einer ungeplanten Aufgabe entschärfen konnten, tragen Sie ein Minus-Zeichen (-) in die Liste ein.<\/p>\n Dies soll als Überblick genügen. Vielleicht arbeiten Sie bereits sehr diszipliniert, falls nicht, probieren Sie diese Technik einmal aus! Vielleicht werden Sie mit der Pomodoro-Technik sehr schnell erkennen, wie viele Aufgaben sich in wenig Zeit konzentrierten Arbeitens erledigen lassen.<\/p>\n Alles erfassen!<\/b><\/p>\n Eine weitere wichtige Regel lautet: Erledigen Sie nichts, wenn es nicht als Aufgabe für diesen Tag definiert wurde oder als ungeplante Aufgabe hinzugekommen ist. Wenn Sie einmal beginnen, zwischen zwei Pomodori weitere Aufgaben wie das Abrufen von E-Mails et cetera durchzuführen, funktioniert die Technik nicht.<\/p>\n Aufwandschätzung<\/b><\/p>\n Wenn Sie die Technik einmal adaptiert haben, können Sie weiteren Nutzen daraus ziehen. So ließe sich beispielsweise pro Aufgabe festlegen, wie lange Sie brauchen, um diese zu erledigen. In diesem Fall tragen Sie in die Übersichtsliste eine Zahl ein, die der erwarteten Dauer in Pomodori entspricht. In der Tages-ToDo-Liste können Sie dann für die geplanten Pomodori Kästchen vorsehen. Sie sehen dann schnell, ob Sie mehr oder weniger Aufwand als erwartet in die Aufgabe gesteckt haben oder ob Ihre Annahme richtig war.<\/p>\n Wenn Sie Ihre Aufgaben mit dem geschätzten Aufwand versehen haben, können Sie auch gleich realistisch an die Planung eines Tages herangehen: Tragen Sie nur so viele Aufgaben in die ToDo-Liste ein, bis die Summe der Pomodori der für einen Tag vorgesehenen Anzahl Pomodori erreicht hat. Normalerweise dürften dies um die 16 sein.<\/p>\n Theoretisch ginge auch noch mehr, aber wenn man tatsächlich 16 mal 25 Minuten konzentriert gearbeitet hat, geht möglicherweise auch irgendwann die Leistungsfähigkeit zur Neige.<\/p>\n Auswertung<\/b><\/p>\n Natürlich stellen wir Ihnen eine solche Technik nicht ohne Hintergedanken vor: Die Auswertung der durchgeführten Tätigkeiten und der benötigten Zeit führen Sie natürlich mit einer Access-Datenbank durch (es geht zwar auch mit Papier oder einem Excel-Sheet, aber Sie sind ja vom Fach …).<\/p>\n Wonach soll die Auswertung erfolgen Es gibt verschiedene denkbare Kriterien. Zunächst denkt man wohl an die Zuordnung der verbrauchten Pomodori zu den einzelnen Projekten. Sie können aber beliebige Kategorien definieren: Welche Art von Tätigkeit haben Sie durchgeführt (zum Beispiel Programmierung, Dokumentation, Projektmanagement) Handelte es sich um eine Projekttätigkeit oder eine allgemeine, organisatorische Tätigkeit Wie viele der Tätigkeiten waren geplant und wie viele sind während des Tages ungeplant hinzugekommen Wie viele interne und externe Unterbrechungen gab es während der Durchführung der Pomodori<\/p>\n Aufgaben der Pomodore-Datenbank<\/b><\/p>\n Unsere Datenbank soll die folgenden Aufgaben erledigen:<\/p>\n Datenmodell der Pomodore-Datenbank<\/b><\/p>\n Die Datenbank zur Verwaltung von Aufgaben verwendet die Tabellen aus Bild 1.<\/p>\n Bild 1: Datenmodell der PomodoreDB<\/span><\/b><\/p>\n Die Tabelle tblAufgaben<\/b> speichert die eigentlichen Aufgaben und besitzt die folgenden Felder:<\/p>\n Die Tabelle besitzt einen zusammengesetzten, eindeutigen Schlüssel auf Basis der drei Felder Bezeichnung,<\/b> Deadline<\/b> und ProjektID<\/b>. Das bedeutet, dass eine Kombination dieser drei Felder nur einmal vorkommen kann.<\/p>\n Die Tabellen tblProjekte<\/b> und tblTaetigkeitsarten <\/b>sind reine Lookup-Tabellen, deren Datensätze über die Fremdschlüsselfelder ProjektID <\/b>und TaetigkeitsartID <\/b>zu einer Aufgabe hinzugefügt werden. Die Tabelle tblDoDos <\/b>enthält alle Aufgaben, die für ein bestimmtes Datum terminiert und somit einer ToDo-Liste eines bestimmten Tages hinzugefügt wurden. Sie besitzt die folgenden Felder:<\/p>\n Diese Tabelle besitzt einen aus den beiden Feldern AufgabeID <\/b>und ToDoDatum <\/b>zusammengesetzten eindeutigen Schlüssel. Dies verhindert, dass zwei oder mehr ToDo-Einträge für die gleiche Aufgabe an einem Tag angelegt werden können.<\/p>\n Formular zur Verwaltung der Aufgaben und ToDo-Listen<\/b><\/p>\n Das in Bild 2 abgebildete Formular frmAufgaben <\/b>ist eines von zwei wichtigen Formularen der Anwendung. Es enthält zwei wesentliche Elemente:<\/p>\n Bild 2: Formular zum Verwalten von Aufgaben und ToDo-Einträgen einzelner Tage<\/span><\/b><\/p>\n Das Hauptformular selbst bietet einige Steuerelemente etwa zum Anlegen neuer Aufgaben, zum Bearbeiten oder Löschen bestehender Aufgaben, zum Erstellen eines ToDo-Punktes auf Basis einer Aufgabe und weitere Elemente. Damit können Sie beispielsweise den Tag auswählen, zu dem das rechte Unterformular die ToDo-Liste anzeigen soll, die ToDo-Liste ausdrucken oder eine Aufgabe aus der ToDo-Liste entfernen.<\/p>\n Die Bestandteile dieses Formulars schauen wir uns in den folgenden Abschnitten an.<\/p>\n Unterformular zur Anzeige von Aufgaben<\/b><\/p>\n Das Unterformular sfmAufgaben<\/b> zeigt eine Liste aller Aufgaben an. Dazu stellen Sie die Eigenschaft Datenherkunft<\/b> auf die Abfrage aus Bild 3 ein.<\/p>\n Bild 3: Datenherkunft des Unterformulars sfmAufgaben<\/span><\/b><\/p>\n Die Abfrage enthält alle Felder der Tabelle tblAufgaben<\/b>, wobei diese allerdings nach den Feldern Deadline<\/b> und Bezeichnung <\/b>aufsteigend sortiert sind.<\/p>\n Dem Formularentwurf fügen Sie lediglich die drei Felder Deadline<\/b>, Bezeichnung <\/b>und GeschaetzteDauer<\/b> hinzu (s. Bild 4).<\/p>\n Bild 4: Entwurfsansicht des Unterformulars sfmAufgaben<\/span><\/b><\/p>\n Der Benutzer soll keine Daten direkt im Unterformular bearbeiten können. Daher stellen Sie die Eigenschaften Anfügen zulassen<\/b>, Löschen zulassen <\/b>und Bearbeitungen zulassen <\/b>auf den Wert Nein <\/b>ein. Außerdem soll das Unterformular die Daten in der Datenblattansicht anzeigen, was Sie durch Einstellen der Eigenschaft Standardansicht <\/b>auf Datenblatt <\/b>erreichen.<\/p>\n Unterformular zur Anzeige der ToDo-Liste<\/b><\/p>\n Das rechte Unterformular heißt sfmToDoListe <\/b>und verwendet eine Abfrage auf Basis der Tabelle tblToDoListe <\/b>als Datenherkunft. Die Sortierung erfolgt nach dem Primärschlüsselfeld, also in der Reihenfolge des Anlegens der enthaltenen Datensätze. Das Formular sieht im Entwurf wie in Bild 5 aus und enthält die vier Felder AufgabeID<\/b>, Pomodori<\/b>, InterneUnterbrechungen <\/b>und ExterneUnterbrechungen<\/b>.<\/p>\n Bild 5: Entwurfsansicht des Unterformulars sfmToDoListe<\/span><\/b><\/p>\n <\/p>\n Davon abgesehen erhält das Unterformular die gleichen Eigenschaften wie das Unterformular sfmAufgaben <\/b>– es soll also keine Bearbeitung durch den Benutzer erlauben und die Datensätze in der Datenblattansicht anzeigen.<\/p>\n Hauptformular zur Verwaltung von Aufgaben und ToDo-Listen<\/b><\/p>\n Das Hauptformular zeigt beide Unterformulare in entsprechenden Unterformular-Steuerelementen an. Das Unterformular sfmAufgaben <\/b>soll standardmäßig nur die Aufgaben anzeigen, die noch nicht erledigt sind, deren Feld Erledigt <\/b>also den Wert False <\/b>enthält. Damit der Benutzer entweder alle oder nur die nicht erledigten Aufgaben einblenden kann, enthält das Formular das Kontrollkästchen chkAktiveAufgaben<\/b>. Es löst nach der Aktualisierung die folgende Ereignisprozedur aus:<\/p>\n Die darin aufgerufene Prozedur setzt entweder einen Filter auf das Unterformular oder entfernt diesen. Dies sieht so aus:<\/p>\n Das Kontrollkästchen chkAktiveAufgaben <\/b>hat standardmäßig den Wert True<\/b>. Damit sich dies direkt beim Öffnen des Formulars niederschlägt, wird die Prozedur AufgabenFiltern <\/b>auch gleich in der Ereignisprozedur aufgerufen, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird.<\/p>\n Aufgaben anlegen, bearbeiten und löschen<\/b><\/p>\n Die drei Schaltflächen über dem Unterformular sfmAufgaben <\/b>lösen Beim Klicken <\/b>Ereignisprozeduren aus, die Folgendes bewirken:<\/p>\n Listing 1<\/a><\/span> zeigt die drei Ereignisprozeduren.<\/p>\n Listing 1: Erstellen, bearbeiten und löschen von Aufgaben<\/p>\n Anzeige der ToDo-Liste im Unterformular<\/b><\/p>\n Das Formular sfmToDoListe <\/b>soll alle ToDo-Positionen eines Tages anzeigen. Das Datum dieses Tages gibt der Benutzer im Textfeld txtDatum <\/b>des Hauptformulars ein.<\/p>\n Sowohl beim ersten Anzeigen als auch bei einer änderung des dort enthaltenen Datums soll der Inhalt des Unterformulars sfmToDoListe <\/b>aktualisiert werden. Dazu bedarf es nicht einer einzigen Codezeile, sondern lediglich der Einstellung zweier Eigenschaften des Unterformular-Steuerelements.<\/p>\n Bild 6 zeigt die rechte Hälfte des Formulars frmAufgaben <\/b>mit dem Unterformular sfmToDoListe <\/b>und den Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements. Die Eigenschaft Verknüpfen von <\/b>stellen Sie auf das Feld ToDoDatum <\/b>des Eintrags der Tabelle tblToDos <\/b>ein, die Eigenschaft Verknüpfen nach <\/b>verweist auf das Steuerelement txtDatum <\/b>des Hauptformulars. Wenn der Benutzer dort nun ein anderes Datum eingibt, ändert sich gleichzeitig der Inhalt des Unterformulars.<\/p>\n Bild 6: Das Unterformular im Hauptformular<\/span><\/b><\/p>\n Damit der Benutzer das Datum leicht ändern kann, haben wir gleich zwei Hilfen eingebaut. Die erste sind die beiden Schaltflächen rechts neben dem Textfeld txtDatum<\/b>. Sie heißen cmdVorher <\/b>und cmdNachher <\/b>und stellen das im Textfeld angezeigte Datum jeweils auf den vorherigen beziehungsweise folgenden Tag ein.<\/p>\n Außerdem haben wir die im Beitrag Flexible Datumstextfelder <\/b>(www.access-im-unternehmen.de\/690<\/b>) vorgestellten Klassen clsDateBox <\/b>und clsDateboxes <\/b>in das VBA-Projekt integriert und diese verschiedenen Textfeldern zur Datumseingabe zugewiesen.<\/p>\n Ist ein Datumstextfeld leer, genügt das Betätigen der Leertaste, um das aktuelle Datum einzufügen. Das Betätigen der Nach oben<\/b>– und der Nach unten<\/b>-Taste bewirkt das Einstellen des jeweils vorherigen oder folgenden Tages, Monats oder Jahres – je nachdem, an welcher Position sich die Einfügemarke aktuell befindet.<\/p>\n Diese Funktion aktivieren Sie, indem Sie der durch das Ereignis Beim Laden <\/b>ausgelösten Prozedur ein paar Anweisungen hinzufügen. Zunächst müssen Sie die Klasse clsDateboxes <\/b>jedoch im Klassenmodul des jeweiligen Formulars deklarieren:<\/p>\n Dann instanzieren Sie das Objekt auf Basis der angegebenen Klasse und fügen mit seiner Methode AddDatebox <\/b>das Textfeld hinzu, das die Funktionen zur einfachen Datumseingabe anbieten soll:<\/p>\n Damit das Unterformular gleich zu Beginn die Daten des aktuellen Tages anzeigt, stellt die Prozedur das Textfeld txtDatum <\/b>außerdem noch auf das aktuelle Datum ein.<\/p>\n Aufgaben zur ToDo-Liste hinzufügen<\/b><\/p>\n Die Schaltfläche zwischen den beiden Unterformularen soll einen ToDo-Eintrag auf Basis der ausgewählten Aufgabe anlegen. Die Schaltfläche heißt cmdAufgabeInToDoListe<\/b> und löst die Prozedur aus Listing 2<\/a><\/span> aus.<\/p>\n Listing 2: Erstellen eines ToDo-Punkts auf Basis einer Aufgabe<\/p>\n Die Hauptarbeit erledigt eine INSERT INTO<\/b>-Aktionsabfrage, die als Parameter der Execute<\/b>-Anweisung des aktuellen Datenbankobjekts angegeben wird. Diese SQL-Anweisung legt einen neuen Datensatz in der Tabelle tblToDoListe <\/b>an und schreibt einige Daten in den neuen Datensatz: den Wert des Feldes AufgabeID <\/b>des aktuell im Unterformular sfmAufgaben <\/b>ausgewählten Datensatzes der Tabelle tblAufgaben <\/b>sowie das aktuell im Textfeld txtDatum<\/b> des Hauptformulars enthaltene Datum.<\/p>\n Da die Tabelle tblToDos <\/b>einen zusammengesetzten Index auf den beiden Feldern AufgabeID <\/b>und ToDoDatum <\/b>besitzt, führt das Anlegen eines zweiten ToDo-Punktes auf Basis der gleichen Aufgabe an einem Tag zu einem Fehler. Dieser wird in der Fehlerbehandlung behandelt, indem eine entsprechende Meldung ausgegeben und das Hinzufügen des ToDo-Punktes unterbrochen wird.<\/p>\n Nach dem Hinzufügen des ToDo-Punktes wird das Unterformular sfmToDoListe <\/b>aktualisiert, damit der neue Eintrag gleich nach dem Anlegen auch dort erscheint.<\/p>\n Eintrag aus der ToDo-Liste entfernen<\/b><\/p>\n Ganz ähnlich läuft das Löschen von ToDo-Einträgen. Listing 3<\/a><\/span> zeigt die Ereignisprozedur, die beim Anklicken der Schaltfläche cmdAusToDoEntfernen<\/b> ausgelöst wird. Nach dem Ermitteln des aktuell aktivierten Eintrags im Unterformular sfmToDoListe <\/b>wird dieser Eintrag per DELETE<\/b>-Aktionsabfrage aus der Tabelle tblToDos <\/b>gelöscht.<\/p>\n Listing 3: Entfernen eines Eintrags aus der ToDo-Liste<\/p>\n Anschließend aktualisiert die Prozedur das Unterformular sfmToDoListe<\/b>, damit der Eintrag auch von dort verschwindet.<\/p>\n Formular zur Eingabe von Aufgaben<\/b><\/p>\n Schauen wir uns nun die Eingabe und Bearbeitung von Aufgaben an, die ja die Grundlage für ToDo-Einträge bilden. Das Formular frmAufgabe <\/b>zeigt die Detaildaten eines Datensatzes der Tabelle tblAufgaben <\/b>an und erlaubt sowohl das Anlegen neuer als auch das Bearbeiten vorhandener Datensätze.<\/p>\n Eigentlich sollte dieses Formular einfach zu realisieren sein, aber wir wollen ja auch für einen gewissen Komfort sorgen. Und dazu soll der Benutzer beispielsweise gleich mehrere Aufgaben auf einen Schlag anlegen können. Wenn Sie zum Beispiel jeden Tag einen Pomodoro (also 25 Minuten) mit dem Lesen und Beantworten von E-Mails verbringen, dann sollten Sie auch für jeden Tag eine Aufgabe anlegen, die einen Pomodoro als geschätzten Aufwand vorsieht. Nun ist das Anlegen von, sagen wir, 28 gleichen Datensätzen für die nächsten vier Wochen nicht gerade die Arbeit, die Jubelstürme bei einem Access-Entwickler auslöst. Dann opfert der geneigte Entwickler doch lieber ein paar Pomodori, um das Erstellen mehrerer Aufgaben auf Basis der gleichen Informationen, aber mit unterschiedlichen Datumsangaben zu automatisieren.<\/p>\n Diese kleine Programmieraufgabe haben wir in einem eigenen kleinen Beitrag verpackt, den Sie unter Terminserien <\/b>(www.access-im-unternehmen.de\/789<\/b>) finden.<\/p>\n Die dort beschriebene Funktion Terminserie <\/b>liefert ein Array mit den gefundenen Terminen zurück, das im Formular frmAufgabe <\/b>verarbeitet wird – mehr dazu weiter unten.<\/p>\n Das Formular frmAufgaben<\/b> verwendet die Tabelle tblAufgaben <\/b>als Datenherkunft. Es zeigt im Wesentlichen die Felder dieser Tabelle an (s. Bild 7). Davon abgesehen liefert es drei Schaltflächen:<\/p>\n Bild 7: Entwurfsansicht des Formulars frmAufgabe<\/span><\/b><\/p>\n Außerdem gibt es noch eine Schaltfläche namens cmdOK<\/b>, die je nach der aktuellen Funktion des Formulars statt der beiden Schaltflächen cmdAufgabeErstellen <\/b>und cmdAufgabenfolgeErstellen <\/b>sichtbar gemacht wird. Dies geschieht, wenn eine Aufgabe bearbeitet wird.<\/p>\n Beim Öffnen des Formulars stellt dieses zunächst über eine Prozedur, die durch das Ereignis Beim Öffnen <\/b>ausgelöst wird, einige Standardwerte ein (s. Listing 4<\/a><\/span>). Danach prüft das Formular im Ereignis Beim Laden<\/b>, ob es zum Neuanlegen oder Bearbeiten eines Datensatzes geöffnet wurde.<\/p>\n Listing 4: Einstellen der Standardwerte einer Aufgabe<\/p>\n Diese Information liefert die verborgene Eigenschaft DefaultEditing <\/b>des Formulars. Hat diese Eigenschaft den Wert 1<\/b>, wurde die OpenForm<\/b>-Methode mit dem Wert acFormAdd <\/b>für den Parameter DataMode <\/b>aufgerufen, beim Wert 2 <\/b>wurde die Konstante acFormEdit <\/b>verwendet. In Abhängigkeit von diesem Wert werden die oben beschriebenen Schaltflächen aktiviert beziehungsweise deaktiviert. Schließlich wird auch hier die Klasse clsDateboxes <\/b>verwendet, um das Textfeld zur Eingabe der Deadline flexibler zu machen:<\/p>\n Der Benutzer muss nun theoretisch nur noch die Bezeichnung der Aufgabe eintragen (s. Bild 8).<\/p>\n Bild 8: Anlegen eines Termins<\/span><\/b><\/p>\n Speichern einer Aufgabe<\/b><\/p>\n Wenn das Formular nur eine einzige Aufgabe erstellen soll, klickt der Benutzer auf die Schaltfläche cmdAufgabeErstellen<\/b>. Dies löst eine Prozedur aus, die zunächst eine einfache Validierungsfunktion aufruft (siehe Funktion Validierung <\/b>im Modul Form_frmAufgabe<\/b>).<\/p>\n Liefert diese den Wert True <\/b>zurück, wird zusätzlich der Inhalt des Steuerelements txtDeadline <\/b>geprüft.<\/p>\n Warum landet dies nicht in der Validierungsfunktion Ganz einfach: Weil diese Funktion auch noch aufgerufen wird, wenn eine Aufgabenfolge geschrieben werden soll und die Deadline dort für jede Aufgabe individuell ermittelt wird, muss dieses Feld nur beim Anlegen einzelner Aufgaben gefüllt sein.<\/p>\n Nach der erfolgreichen Durchführung dieser Validierung wird das Formular schließlich geschlossen und der neue Datensatz somit gespeichert:<\/p>\n Erstellen einer Aufgabenfolge<\/b><\/p>\n Das Erstellen einer Aufgabenfolge ist etwas aufwendiger. Dabei liefert zunächst die Funktion Terminserie <\/b>ein Array mit allen ermittelten Datumsangaben.<\/p>\n Das Formular, das durch diese Funktion geöffnet wird, sieht etwa wie in Bild 9 aus. Nach einer Prüfung, ob dieses Array mindestens einen Wert enthält, startet eine Schleife über alle Elemente des Arrays, also alle darin gespeicherten Datumsangaben.<\/p>\n Bild 9: Terminserie erstellen<\/span><\/b><\/p>\n Die Prozedur erstellt mit einer INSERT INTO<\/b>-Aktionsabfrage für jeden Termin des Arrays einen neuen Datensatz, wobei alle übrigen Daten der Tabelle tblAufgaben <\/b>den Feldern des Formulars frmAufgaben <\/b>entnommen werden (s. Listing 5<\/a><\/span>).<\/p>\n Listing 5: Erstellen einer Reihe von Aufgaben mit gleichartigen Daten<\/p>\n Danach wird das Formular frmAufgabe <\/b>geschlossen. Wichtig ist, dass zuvor noch die Undo<\/b>-Methode des Formulars ausgelöst wird. Anderenfalls würde die aktuell in dem gebundenen Formular angezeigte Aufgabe ebenfalls gespeichert werden, was aber nicht gewünscht ist – es sollen nur die Aufgaben mit den wiederkehrenden Terminen gespeichert werden.<\/p>\n Bericht zur Ausgabe einer ToDo-Liste<\/b><\/p>\n Eine der spannendsten Aufgaben beim Erstellen dieser Beispiellösung war das Programmieren eines Berichts wie in Bild 10. Der Bericht sollte möglichst wie das Original von der Webseite des Erfinders der Pomodoro-Technik aussehen (wer schon einmal einen Bericht aus dem Stegreif entwerfen musste, weiß, wie wertvoll eine konkrete Vorlage sein kann).<\/p>\n Bild 10: Ausgabe der ToDo-Liste eines Tages<\/span><\/b><\/p>\n Das Problem hierbei war im Wesentlichen die Erzeugung von 25 Zeilen für die Aufgaben, obwohl die Anzahl der Aufgaben der abzubildenden ToDo-Liste immer kleiner sein sollte. Aber die Anwendung soll zumindest während der Durchführung der Pomodoro-Technik die Einfachheit beibehalten – deshalb gibt es auch kein Formular, das für Sie die 25 Minuten stoppt und das gleich die verarbeiteten Pomodori in die Datenbank schreibt.<\/p>\n Man sollte die Anwendung nutzen, um morgens die ToDo-Liste für den Tag zusammenzustellen, diese den Tag über abarbeiten und abends die Ergebnisse in die Datenbank eintragen.<\/p>\n Somit können Sie dann später mit entsprechenden Auswertungen ermitteln, wie die Pomodoro-Technik für Sie funktioniert.<\/p>\n Datenherkunft für den Bericht<\/b><\/p>\n Wir wollten das Problem der leeren Zeilen lösen, indem wir eine entsprechende Abfrage verwenden, welche die vorhandenen ToDo-Punkte sowie einige bezüglich der anzuzeigenden Felder leere Datensätze enthält.<\/p>\n Dies gelang in drei Schritten: Im ersten ermittelt die Abfrage alle ToDo-Punkte aus der Tabelle tblToDos <\/b>und führt diese mit den fehlenden Informationen aus der Tabelle tblAufgaben <\/b>zusammen. Das Kriterium [Forms]![frmAufgaben]![txtDatum] <\/b>für das Feld ToDoDatum <\/b>sorgt dafür, dass nur die ToDos des gewählten Datums erscheinen (s. Bild 11).<\/p>\n Bild 11: Die Basisabfrage des Berichts ermittelt alle ToDo-Punkte für den gewählten Tag.<\/span><\/b><\/p>\n Nicht sichtbar ist der Ausdruck für das Feld AnzahlPomodori<\/b>. Dieser sieht so aus:<\/p>\n Der Ausdruck ermittelt die Anzahl der geplanten Pomodori minus aller bislang für diese Aufgabe verbrauchten Pomodori.<\/p>\n Das Ergebnis der Abfrage sieht beispielsweise wie in Bild 13).<\/p>\n Bild 12: Erstes Zwischenergebnis<\/span><\/b><\/p>\n Bild 13: Datensätze zum Auffüllen<\/span><\/b><\/p>\n Wie führen wir die Abfrage und die Tabelle zusammen Mit einer UNION-Abfrage. Diese verwendet folgenden SQL-Code:<\/p>\n Das Ergebnis ist fast perfekt: Es liefert alle Datensätze der Abfrage mit den ToDos und die Datensätze der Tabelle tblZeilen<\/b>. Allerdings soll der Bericht nur 25 Datensätze anzeigen. Also fügen wir eine dritte Abfrage zur Datenbank hinzu, die alle Felder der Abfrage qryRptToDoListeBaseUNION <\/b>enthält, aber deren Eigenschaft Spitzenwerte <\/b>auf 25 <\/b>eingestellt wurde (s. Bild 14). <\/p>\n Bild 14: Zurechtstutzen der Ergebnisliste auf 25 Datensätze<\/span><\/b><\/p>\n Kommen wir zur Gestaltung des Berichts. Dieser sieht im Entwurf wie in Bild 15 aus. Damit allein erhalten Sie aber nur eine Liste der ToDo-Punkte, nicht das Tabellenraster und auch nicht die Kästchen zum Markieren der durchgeführten Pomodori.<\/p>\n\n
\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic001.png\")
<\/p>\n\n
\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic002.png\")
<\/p>\n\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic004.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic003.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic005.png\")
<\/p>\nPrivate Sub chkAktiveAufgaben_AfterUpdate()\r\n Call AufgabenFiltern\r\nEnd Sub<\/pre>\n
Private Sub AufgabenFiltern()\r\n If Me!chkAktiveAufgaben Then\r\n Me!sfmAufgaben.Form.Filter = "Erledigt = False"\r\n Me!sfmAufgaben.Form.FilterOn = True\r\n Else\r\n Me!sfmAufgaben.Form.Filter = ""\r\n Me!sfmAufgaben.Form.FilterOn = False\r\n End If\r\nEnd Sub<\/pre>\n
\n
Private Sub cmdNeueAufgabe_Click()\r\n DoCmd.OpenForm "frmAufgabe", DataMode:=acFormAdd, WindowMode:=acDialog\r\n Me!sfmAufgaben.Form.Requery\r\nEnd Sub\r\nPrivate Sub cmdAufgabeBearbeiten_Click()\r\n DoCmd.OpenForm "frmAufgabe", WhereCondition:="AufgabeID = " & Me!sfmAufgaben.Form!AufgabeID, _\r\n WindowMode:=acDialog, DataMode:=acFormEdit\r\n Me!sfmAufgaben.Form.Requery\r\nEnd Sub\r\nPrivate Sub cmdAufgabeLoeschen_Click()\r\n Dim db As DAO.Database\r\n If MsgBox("Aufgabe löschen", vbYesNo + vbExclamation, "Löschen") = vbYes Then\r\n Set db = CurrentDb\r\n db.Execute "DELETE FROM tblAufgaben WHERE AufgabeID = " & Me!sfmAufgaben.Form!AufgabeID, dbFailOnError\r\n Me!sfmAufgaben.Form.Requery\r\n Set db = Nothing\r\n End If\r\nEnd Sub<\/pre>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic006.png\")
<\/p>\nDim objDateboxes As clsDateboxes<\/pre>\n
Private Sub Form_Load()\r\n Set objDateboxes = New clsDateboxes\r\n With objDateboxes\r\n .AddDatebox Me!txtDatum\r\n End With\r\n Me!txtDatum = Date\r\n Call AufgabenFiltern\r\nEnd Sub<\/pre>\n
Private Sub cmdAufgabeInToDoListe_Click()\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n On Error Resume Next\r\n db.Execute "INSERT INTO tblToDos(AufgabeID, ToDoDatum) VALUES(" _\r\n & Me!sfmAufgaben.Form!AufgabeID & ", " & SQLDatum(Me!txtDatum) & ")", dbFailOnError\r\n If Err.Number = 3022 Then\r\n MsgBox "Die Aufgabe befindet sich bereits in der ToDo-Liste."\r\n Exit Sub\r\n End If\r\n Me!sfmToDoListe.Form.Requery\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nPrivate Sub cmdAusToDoEntfernen_Click()\r\n Dim db As DAO.Database\r\n Dim lngToDoID As Long\r\n Set db = CurrentDb\r\n lngToDoID = Nz(Me!sfmToDoListe.Form!ToDoID, 0)\r\n db.Execute "DELETE FROM tblToDos WHERE ToDoID = " & lngToDoID, dbFailOnError\r\n Me!sfmToDoListe.Form.Requery\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic007.png\")
<\/p>\n\n
Private Sub Form_Open(Cancel As Integer)\r\n Me!txtDeadline.DefaultValue = Chr(34) & Date & Chr(34)\r\n Me!cboProjektID.DefaultValue = Nz(DLookup("ProjektID", "tblProjekte", "Projekt = ''Allgemein''"))\r\n Me!cboTaetigkeitsartID.DefaultValue = Nz(DLookup("TaetigkeitsartID", "tblTaetigkeitsarten", _\r\n "Taetigkeitsart = ''Diverse''"))\r\nEnd Sub<\/pre>\nPrivate Sub Form_Load()\r\n Select Case Me.DefaultEditing\r\n Case 1 ''Neu\r\n Me!cmdAufgabeErstellen.Visible = True\r\n Me!cmdAufgabenfolgeErstellen.Visible = True\r\n Me!cmdOK.Visible = False\r\n Case 2 ''Bearbeiten\r\n Me!cmdAufgabeErstellen.Visible = False\r\n Me!cmdAufgabenfolgeErstellen.Visible = False\r\n Me!cmdOK.Visible = True\r\n End Select\r\n Set objDateboxes = New clsDateboxes\r\n With objDateboxes\r\n .AddDatebox Me!txtDeadline\r\n End With\r\nEnd Sub<\/pre>\n
![\"pic008.png\"](\"TomatengetriebeneProgrammierung-web-images\/pic008.png\")
<\/p>\nPrivate Sub cmdAufgabeErstellen_Click()\r\n If Validierung = False Then\r\n Exit Sub\r\n End If\r\n If IsNull(Me!txtDeadline) Then\r\n MsgBox "Bitte geben Sie eine Deadline ein."\r\n Me!txtDeadline.SetFocus\r\n Exit Sub\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic009.png\")
<\/p>\nPrivate Sub cmdAufgabenfolgeErstellen_Click()\r\n Dim intCount As Integer\r\n Dim datTermine() As Date\r\n Dim db As DAO.Database\r\n Dim i As Integer\r\n Set db = CurrentDb\r\n datTermine = WiederkehrendeTermineErmitteln\r\n intCount = ArrayCount(datTermine)\r\n Select Case intCount\r\n Case 0\r\n MsgBox "Es wurden keine Aufgaben erstellt."\r\n Exit Sub\r\n Case Is > 0\r\n MsgBox "Es wurden " & intCount & " regelmäßige Aufgaben erstellt."\r\n End Select\r\n For i = LBound(datTermine) To UBound(datTermine)\r\n db.Execute "INSERT INTO tblAufgaben(Bezeichnung, GeschaetzteDauer, ProjektID, " _\r\n & "TaetigkeitsartID, Deadline) VALUES(''" & Me!txtBezeichnung & "'', " _\r\n & Me!txtGeschaetzteDauer & ", " & Me!cboProjektID & ", " & Me!cboTaetigkeitsartID _\r\n & ", " & SQLDatum(datTermine(i)) & ")", dbFailOnError\r\n Next i\r\n Me.Undo\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic011.png\")
<\/p>\nAnzahlPomodori: [GeschaetzteDauer]-Nz(DomSumme("Pomodori";"tblToDos";"AufgabeID = " & [tblAufgaben].[AufgabeID]);0)<\/pre>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic012.png\")
<\/p>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic013.png\")
<\/p>\nSELECT ToDoID, Bemerkungen, Bezeichnung, AnzahlPomodori, ToDoDatum FROM tblZeilen\r\nUNION ALL\r\nSELECT ToDoID, Bemerkungen, Bezeichnung, AnzahlPomodori, ToDoDatum FROM qryRptToDoListeBAse\r\nORDER BY ToDoID;<\/pre>\n
![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic014.png\")
<\/p>\n![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2011_04\/TomatengetriebeneProgrammierung-web-images\/pic015.png\")
<\/p>\n