<\/p>\n
Den Tagesablauf können Sie prima mit Outlook verwalten: Es bietet übersichtliche Ansichten und komfortable Eingabemöglichkeiten für Termine. Vielleicht darf es aber auch etwas einfacher sein – oder Sie möchten schlicht und einfach Ihren Tagesablauf etwas anders planen als Outlook dies erlaubt. In diesem Fall ist dieser Beitrag genau das Richtige für Sie: Sie erfahren, wie Sie ein passendes Datenmodell aufsetzen und ein Formular zur Verwaltung des Tagesablaufs programmieren.<\/b><\/p>\n
Aufbau der Anwendung<\/b><\/p>\n
Der aiuTimeplanner<\/b> besteht im Wesentlichen aus einem TreeView zur Verwaltung der Aufgaben und einem ListView-Steuerelement zum Hinzufügen der Aufgaben zu bestimmten Tageszeiten. Diese werden in 15-Minuten-Schritten verwaltet. Bild 1 zeigt, wie das Hauptformular der Anwendung aussieht.<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic002.png\")
<\/p>\n
Bild 1: Das Hauptformular zum Verwalten von Tagesabläufen<\/span><\/b><\/p>\n Was erledigen Sie nun mit dieser Anwendung In erster Linie können Sie damit Ihre Aufgaben in hierarchischer Form in einem TreeView-Steuerelement anlegen, verschieben oder löschen. Damit wissen Sie zumindest schon einmal, welche Aufgaben überhaupt vorliegen. Damit Sie überblicken, welche Aufgaben aktuell anstehen, gibt es ein ListView-Steuerelement zur Anzeige der heute zu erledigenden Aufgaben. Schließlich gibt es auf der rechten Seite des Formulars eine Tagesübersicht, die alle an diesem Tag durchgeführten Aufgaben enthält.<\/p>\n Die Tätigkeiten legen Sie dabei ganz einfach an, indem Sie diese aus der Liste der heute zu erledigenden Aufgaben oder aus dem TreeView mit allen Aufgaben in die Liste der Tätigkeiten ziehen – und zwar genau auf die Uhrzeit, zu der Sie die Tätigkeit durchgeführt haben.<\/p>\n Tätigkeiten nach Datum<\/b><\/p>\n Das Formular zeigt immer die Daten für den Tag an, der im Textfeld oben im Formular angegeben ist. Mit einem Klick auf die Schaltfläche Heute <\/b>wechseln Sie zum heutigen Tag. Sie können das Datum auch manuell eingeben und die Eingabe mit der Eingabetaste abschließen. Oder, was noch einfacher ist: Sie verwenden die hinzugefügte Funktion zum Auswählen des Datums.<\/p>\n Dabei positionieren Sie die Einfügemarke genau auf dem Element, das Sie ändern möchten, und betätigen dann die Nach oben<\/b>– oder Nach unten<\/b>-Tasten. Wenn Sie also beispielsweise einen Tag weiterspringen möchten, fügen Sie die Einfügemarke ganz vorn ein und betätigen die Nach oben<\/b>-Taste. Auf die gleiche Weise stellen Sie Monat und Jahr des anzuzeigenden Tages ein.<\/p>\n Aufgaben anlegen<\/b><\/p>\n Bevor Sie loslegen können, müssen Sie erstmal eine oder mehrere Aufgaben anlegen. Dazu gibt es nur eine einzige Möglichkeit: Sie klicken mit der rechten Maustaste auf den Eintrag im TreeView, unter dem Sie die neue Aufgabe anlegen möchten. Und wenn dort noch gar keine Aufgaben vorliegen Keine Sorge: Es gibt eine Root-Aufgabe, die auch im komplett leeren Zustand im TreeView angezeigt wird. Wählen Sie deren Kontextmenüeintrag Neue Aufgabe <\/b>aus, um den Dialog zum Eingeben der Details der Aufgabe zu öffnen (s. Bild 2).<\/p>\n Bild 2: Öffnen des Dialogs zum Anlegen einer neuen Aufgabe<\/span><\/b><\/p>\n Im Dialog Neue Aufgabe <\/b>tragen Sie den Namen der Aufgabe und weitere Informationen ein (s. Bild 3). Einzige Pflichtinformation ist hier die Kategorie, die allerdings auf <Keine Kategorie> <\/b>voreingestellt ist. Die übrigen Informationen können direkt oder auch später eingestellt werden. Dazu klicken Sie einfach doppelt auf die Aufgabe im TreeView-Steuerelement oder, sofern diese dort vorliegt, auf den Eintrag in der Liste der heute zu erledigenden Aufgaben. Die möglichen weiteren Eigenschaften einer Aufgabe haben folgende Bedeutung:<\/p>\n Bild 3: Anlegen einer neuen Aufgabe<\/span><\/b><\/p>\n Heutige Aufgaben<\/b><\/p>\n Heutige Aufgaben werden folgendermaßen gekennzeichnet:<\/p>\n Während Sie die Eigenschaft Zu erledigen bis <\/b>nur in der Detailansicht einer Aufgabe einstellen können, machen Sie eine Aufgabe auf ganz einfache Weise zu einer heute zu erledigenden Aufgabe. Dazu ziehen Sie die entsprechende Aufgabe einfach aus dem TreeView in die Liste der heute zu erledigenden Aufgaben. Die Eigenschaft Heute erledigen <\/b>wird dadurch automatisch aktiviert.<\/p>\n Um einen Eintrag aus der Liste der heute zu erledigenden Aufgaben zu entfernen, öffnen Sie die Detailansicht per Doppelklick und deaktivieren die Option Heute erledigen<\/b>.<\/p>\n Tätigkeiten verwalten<\/b><\/p>\n Schließlich gibt es ein weiteres Listenfeld, das die Tageszeiten in 15-Minuten-Schritten anzeigt und das Zuweisen der Aufgaben ermöglicht. Damit notieren Sie also, mit welchen Aufgaben Sie sich den Tag über beschäftigt haben. Dazu gibt es folgende Möglichkeiten:<\/p>\n Wie Letzteres funktioniert, zeigt Bild 4. Wenn Sie für eine Aufgabe die Einstellung Standardaufgabe <\/b>aktiviert haben, wird diese im TreeView fett angezeigt. Außerdem stehen solche Aufgaben im Kontextmenü der Tätigkeitsliste zur Auswahl bereit. Sie können also schnell Tätigkeiten auf Basis solcher Aufgaben erstellen und brauchen diese nicht aus dem TreeView auszuwählen.<\/p>\n Bild 4: Auswählen einer Aufgabe aus der Liste der Standardaufgaben<\/span><\/b><\/p>\n In der Liste der Tätigkeiten eines Tages haben Sie weitere Möglichkeiten. Bestehende Tätigkeiten können Sie über die Einträge des Kontextmenüs überschreiben oder Sie wählen den Eintrag Tätigkeit löschen <\/b>aus, um eine Tätigkeit zu löschen.<\/p>\n Außerdem können Sie die Einträge der Tätigkeitsliste per Drag and Drop verschieben. Und auch das Kopieren ist möglich: Wenn Sie also beispielsweise die Tätigkeit der vorherigen Viertelstunde auch für die aktuelle Viertelstunde eintragen möchten, ziehen Sie diese bei gedrückter Strg<\/b>-Taste per Drag and Drop nach unten.<\/p>\n Zeit für eine neue Tätigkeit<\/b><\/p>\n Eine Anwendung zum Eintragen von Tätigkeiten ist nur die Hälfte wert, wenn Sie die Tätigkeiten nicht eintragen. Deshalb erinnert der aiuTimeplanner <\/b>Sie jeweils nach Ablauf einer Viertelstunde per Meldungsfenster daran, die zuletzt erledigte Tätigkeit in die Tätigkeitsliste einzutragen.<\/p>\n Aufgaben als erledigt kennzeichnen<\/b><\/p>\n Tätigkeiten führen Sie durch, um Aufgaben abzuarbeiten. Damit Sie erledigte Aufgaben als erledigt markieren können, enthalten sowohl die Liste der heutigen Aufgaben als auch das TreeView-Steuerelement Kontrollkästchen zum Markieren der erledigten Aufgaben. Nach dem Abhaken bleiben diese Aufgaben zunächst noch sichtbar. Sie werden erst durch einen Mausklick auf die Schaltfläche Aktualisieren<\/b> über dem jeweiligen Steuerelement ausgeblendet – oder eben beim nächsten Öffnen des Formulars.<\/p>\n Wenn Sie eine Aufgabe versehentlich als erledigt markiert haben, können Sie mit der entsprechenden Option alle erledigten Aufgaben einblenden und den Haken an den entsprechenden Aufgaben wieder entfernen.<\/p>\n Kategorien verwalten<\/b><\/p>\n Wie Sie bereits oben erfahren haben, können Sie für jede Aufgabe eine Kategorie festlegen. Damit soll sichergestellt werden, dass Sie später sowohl Auswertungen nach Aufgaben und Unteraufgaben als auch nach Kategorien durchführen können. Dabei kann eine übergeordnete Aufgabe mehrere Unteraufgaben zu einem Projekt zusammenfassen, sodass Sie etwa den Aufwand zu einem Projekt ermitteln können. Genauso sollen Sie ermitteln können, welche Zeit Sie mit den verschiedenen Tätigkeitsarten verbracht haben. Kategorien könnten also beispielsweise Kommunikation, Marketing, Programmierung oder Dokumentation sein. Die Kategorien verwalten Sie, indem Sie im Detailfenster einer Aufgabe auf die Schaltfläche mit den drei Punkten neben dem Auswahlfeld für die Kategorie klicken. Es erscheint der Dialog aus Bild 5, mit dem Sie die vorhandenen Kategorien verwalten oder neue hinzufügen können.<\/p>\n Bild 5: Verwalten von Kategorien<\/span><\/b><\/p>\n Datenmodell der Anwendung<\/b><\/p>\n Für die Darstellung von Tagesabläufen in Access ist es wichtig, eine entsprechende Rasterung zu definieren. Zwar kann es Tätigkeiten geben, die von 11:07 bis 11:13 erledigt werden, aber dies lässt sich optisch zumindest in Formularen nur schlecht abbilden. Also legen wir für diese Lösung ein Raster von 15 Minuten fest: Das ist genug Zeit zum Erledigen einer einfachen Aufgabe. Dauert eine Aufgabe länger, nimmt diese halt mehrere Blöcke à 15 Minuten in Anspruch, und kürzere Aufgaben fasst man einfach unter einem entsprechenden Titel sinnvoll zusammen. Zur Unterstützung für spätere Vorgänge (unter anderem für die Darstellung) legen Sie zwei Tabellen an, welche die Zeiten in 15-Minuten-Schritten und die anstehenden Datumsangaben speichern (s. Bild 6). Im Modul mdlTools <\/b>der Beispieldatenbank finden Sie zwei Prozeduren namens TimeplanDatenFuellen <\/b>und TimeplanZeitenFuellen<\/b>, mit denen Sie die Tabellen leicht mit Zeiten und Datumsangaben bestücken.<\/p>\n Bild 6: Tabellen zum Speichern von Zeiten und Datumsangaben<\/span><\/b><\/p>\n <\/p>\n Die übrigen Tabellen zeigt das Datenmodell aus Bild 7. Die Tabelle tblAufgaben <\/b>enthält im Wesentlichen die Felder, die der Dialog zur Eingabe der Aufgabendetails anzeigt. Es gibt nur ein weiteres Feld namens Aufgeklappt<\/b>, das den entsprechenden Status <\/b>des Elements für die Aufgabe im TreeView-Steuerelement speichert. Die Tabelle tblKategorien <\/b>liefert die Werte für das Fremdschlüsselfeld KategorieID <\/b>der Tabelle tblAufgaben<\/b>.<\/p>\n Bild 7: Datenmodell des aiuTimeplanners<\/span><\/b><\/p>\n Die Hierarchie der Aufgaben, die ja auch im TreeView-Steuerelement abgebildet wird, wird in der Tabelle tblAufgabenUnteraufgaben <\/b>gespeichert. Diese Tabelle enthält ein Primärschlüsselfeld sowie jeweils die Felder AufgabeID <\/b>und UnteraufgabeID<\/b> als Fremdschlüsselfelder zum Kombinieren von über- und untergeordneter Aufgabe.<\/p>\n Dabei ist wichtig, dass die Beziehung zwischen dem Feld UnteraufgabeID <\/b>und dem Primärschlüsselfeld AufgabeID <\/b>der Tabelle tblAufgaben <\/b>als 1:1-Beziehung ausgelegt wird. Dies erreichen Sie, indem Sie das Feld UnteraufgabeID <\/b>mit einem eindeutigen Index versehen.<\/p>\n Damit die Beziehung tatsächlich so funktioniert wie gewünscht, müssen Sie diese so wie in Bild 8 aufbauen. Dies erreichen Sie, indem Sie den Beziehungspfeil vom Feld AufgabeID <\/b>der Tabelle tblAufgaben <\/b>auf das Feld UnteraufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben <\/b>ziehen. Die Tätigkeiten werden in einer eigenen Tabelle namens tblTaetigkeiten <\/b>gespeichert. Um die Beziehung zwischen einer Tätigkeit und der Aufgabe herzustellen, auf deren Basis die Tätigkeit erstellt wurde, enthält die Tabelle tblTaetigkeiten <\/b>ein Fremdschlüsselfeld namens AufgabeID<\/b>. Die Tabelle enthält außerdem folgende Felder:<\/p>\n Bild 8: Beziehung zwischen Aufgaben und Unteraufgaben<\/span><\/b><\/p>\n Die OutlookID<\/b> können Sie verwenden, wenn Sie Termine aus Outlook in dieser Lösung berücksichtigen möchten. Wie der Import funktionieren kann, erfahren Sie im Beitrag Outlook-Termine importieren <\/b>(www.access-im-unternehmen.de\/828<\/b>).<\/p>\n Programmierung der Anwendung<\/p>\n Die Anwendung enthält in der aktuellen Fassung allein im Klassenmodul des Formulars frmTagesablauf<\/b> mehr als 700 Zeilen Code. Mehr, als wir in einem Beitrag beschreiben können – eine ausführliche Dokumentation würde wohl ein ganzes Heft füllen. Also picken wir uns ein paar interessante Features heraus. Dabei verweisen wir auf den Beitrag Aufgaben per TreeView verwalten <\/b>(www.access-im-unternehmen.de\/826<\/b>), der beschreibt, wie das TreeView mit den Aufgaben gefüllt wird. Der Beitrag Drag and Drop mit TreeView und ListView <\/b>(www.access-im-unternehmen.de\/833<\/b>) wiederum erläutert die Drag-and-Drop-Funktionalität der drei Hauptsteuerelemente des Formulars. Im Folgenden schauen wir uns speziell das ListView-Steuerelement zur Anzeige der Tätigkeiten an.<\/p>\n Vorbereitungen beim Öffnen des Formulars<\/b><\/p>\n Gleich in der Ereignisprozedur werden die Steuerelemente des Formulars gefüllt. Um per IntelliSense auf die drei ListView\/TreeView-Steuerelemente zugreifen zu können, deklarieren wir zunächst einige Variablen:<\/p>\n Außerdem benötigen wir eine Variable, um das Datumsfeld mit der Funktion zum ändern des Datums mit den Tasten Nach oben <\/b>und Nach unten <\/b>einzustellen:<\/p>\n Die Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird, sorgt schließlich für das Initialisieren und Füllen der Steuerelemente sowie für das Einstellen des aktuellen Datums:<\/p>\n Die beiden Prozeduren ConfigureTimeplan <\/b>und FillTimeplan <\/b>schauen wir uns im Folgenden genauer an.<\/p>\n Tagesablauf im Listenfeld darstellen<\/b><\/p>\n Wie stellen wir die Datensätze der Tabelle tblTaetigkeiten<\/b> in einem Listenfeld dar, wenn diese mit hoher Wahrscheinlichkeit gar nicht für jedes 15-Minuten-Element einen Datensatz enthält Hier kommt die Tabelle tblTimeplanZeiten <\/b>ins Spiel, die ja alle benötigten Uhrzeiten enthält. Zunächst jedoch filtern wir aus der Tabelle tblTaetigkeiten <\/b>alle Datensätze, die für den aktuell im Textfeld txtDatum <\/b>angegebenen Tag angezeigt werden sollen. Dies erledigt die Abfrage qryTaetigkeiten<\/b>, welche den Parameter [prmTaetigkeitDatum] <\/b>enthält und nur die vier Felder TaetigkeitID<\/b>, Taetigkeitsdatum<\/b>, Taetigkeitszeit <\/b>und Bezeichnung <\/b>liefert (s. Bild 9).<\/p>\n Bild 9: Abfrage aller Tätigkeiten eines Tages<\/span><\/b><\/p>\n Auf Basis dieser Abfrage erstellen wir eine neue Abfrage, welche die Tabelle tblTimeplanZeiten <\/b>hinzuzieht. Das Feld Taetigkeitzeit <\/b>wird dabei mit dem einzigen Feld der Tabelle tblTimeplanZeiten <\/b>verknüpft (s. Bild 10).<\/p>\n Bild 10: Zusammenführen der Tätigkeiten den Uhrzeiten<\/span><\/b><\/p>\n Diese Beziehung wird dabei so ausgelegt, dass alle Datensätze der Tabelle tblTimeplanZeiten <\/b>enthalten sind und nur die vorhandenen Datensätze der Abfrage qryTaetigkeiten<\/b> (s. Bild 11).<\/p>\n Bild 11: OUTER JOIN-Verknüpfung<\/span><\/b><\/p>\n Dementsprechend enthält die Abfrage qryTaetigkeitenZeiten <\/b>zwar die Felder TaetigkeitID<\/b>, Bezeichnung <\/b>und Taetigkeitdatum <\/b>der Abfrage qryTaetigkeiten <\/b>(und somit der Tabelle tblTaetigkeiten<\/b>). Die Uhrzeit liefert jedoch das Feld TimeplanZeit <\/b>der Tabelle tblTimeplanZeiten<\/b>.<\/p>\n Tätigkeiten-ListView einstellen<\/b><\/p>\n Bevor wir diesen Extrakt in das ListView-Steuerelement lvwTimeplan <\/b>fließen lassen können, soll dieses zunächst angepasst werden. In letzter Zeit haben wir gute Erfahrung mit dem codegesteuerten Einstellen der Eigenschaften von TreeView- und ListView-Steuerelementen gemacht, da sich die Einstellungen so leicht durch Kopieren der entsprechenden Codezeilen übertragen lassen.<\/p>\n Für die drei ListView\/TreeView-Steuerelemente haben wir jeweils eine Konfigurationsprozedur angelegt. Die Prozedur für das Steuerelement lvwTimeplan <\/b>sieht beispielsweise wie in Listing 1<\/a><\/span> aus.<\/p>\n Listing 1: Konfigurieren des ListView-Steuerelements zur Anzeige der Tätigkeiten<\/p>\n Die Prozedur füllt zunächst die Objektvariable objTimeplan <\/b>mit einem Verweis auf das entsprechende Steuerelement. Innerhalb des With<\/b>-Konstrukts werden dann die Standardeigenschaften eingestellt, die übrigen Zeilen legen die Spaltenüberschriften und Spaltenbreiten fest.<\/p>\n Das Füllen auf Basis der Abfrage qryTaetigkeitenZeiten <\/b>erfolgt in der Prozedur FillTimeplan<\/b> (s. Listing 2<\/a><\/span>). Die Prozedur erstellt zunächst ein QueryDef<\/b>-Objekt auf Basis der genannten Abfrage und fügt das Datum aus dem Textfeld txtDatum <\/b>als Wert für den Parameter prmTaetigkeitDatum <\/b>hinzu. Danach öffnet sie eine neue Datensatzgruppe auf Basis der so ausgestatteten Abfrage.<\/p>\n Listing 2: Füllen des Timeplans<\/p>\n Damit der Benutzer die angezeigten Zeiten an seine Bedürfnisse anpassen kann, gibt es eine Tabelle namens tblOptionen<\/b>, welche die entsprechenden Einstellungen speichert. Die Daten der Tabelle tblOptionen <\/b>werden im Dialog frmOptionen <\/b>eingestellt, der sich vom Hauptformular aus öffnen lässt. Zwei dieser Optionen heißen ZeitanzeigeVon <\/b>und ZeitanzeigeBis<\/b>.<\/p>\n Diese liest die Prozedur FillTimeplan <\/b>aus und filtert das Recordset nach diesen Daten. Das auf Basis dieser gefilterten Daten neu erstellte Recordset liefert schließlich die zum Füllen des ListView-Steuerelements verwendeten Daten.<\/p>\n Das Steuerelement wird zunächst mit der Clear<\/b>-Methode der ListItems<\/b>-Auflistung des Objekts objTimeplan <\/b>gelöscht. Danach durchläuft eine Do While<\/b>-Schleife alle Datensätze der Datensatzgruppe mit den mit Tätigkeiten gefüllten und den leeren Zeitangaben. Innerhalb dieser Schleife wird eine Zählervariable namens i <\/b>jeweils um 1 <\/b>erhöht. Diese dient dazu, die Listenelemente mit den Keys p1<\/b>, p2 <\/b>und so weiter zu versehen. Den Elementen wird außerdem als Text die Uhrzeit zugewiesen. Fehlt noch die zweite Spalte für die Zeiten, für die eine Tätigkeit vorliegt. Diese wird zunächst angelegt und mit der entsprechenden Zeit als Text versehen.<\/p>\n Außerdem füllt die Prozedur die Tag<\/b>-Eigenschaft mit dem Primärschlüsselwert der Tätigkeit in der Tabelle tblTaetigkeiten<\/b>. Dies ist nötig, damit etwa beim Löschen oder Verschieben der entsprechende Eintrag der Tabelle tblTaetigkeiten <\/b>ausfindig gemacht werden kann.<\/p>\n Sollte der aktuelle Datensatz keine Tätigkeit enthalten, wird eine leere Zeichenkette eingetragen. Gleiches gilt für die Bezeichnung der Tätigkeit, die als Text der zweiten Spalte des ListView-Steuerelements eingetragen wird. Nachdem alle Elemente hinzugefügt wurden, ruft die Prozedur eine weitere Routine namens AktuelleZeitMarkieren<\/b> auf. Diese markiert den aktuellen Zeitabschnitt fett, damit man direkt erkennt, welche Tätigkeit die aktuelle Tätigkeit ist. Zu guter Letzt hebt die Prozedur sämtliche Markierungen auf.<\/p>\n Aktuellen Zeitraum markieren<\/b><\/p>\n Die Prozedur AktuelleZeitMarkieren<\/b> aus Listing 3<\/a><\/span> durchläuft alle Einträge des Listenfeldes lvwTimeplan<\/b>. Dabei prüft sie, ob sich die aktuelle Zeit innerhalb des durch den Tätigkeits-Eintrags abgedeckten 15-Minuten-Zeitraums befindet. Ist dies der Fall, wird der Eintrag fett markiert, sonst nicht.<\/p>\n Listing 3: Aktuelle Zeit markieren<\/p>\n Erinnerungsfunktion<\/b><\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic004.png\")
<\/p>\n\n
\n
\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic006.png\")
<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic001.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic008.png\")
<\/p>\n\n
Dim WithEvents objTasks As MSComctlLib.TreeView\r\nDim WithEvents objDailyTasks As MSComctlLib.ListView\r\nDim WithEvents objTimeplan As MSComctlLib.ListView<\/pre>\n
Dim objDatebox As clsDatebox<\/pre>\n
Private Sub Form_Load()\r\n Set objDatebox = New clsDatebox\r\n With objDatebox\r\n Set .Datebox = Me!txtDatum\r\n End With\r\n Me!txtDatum = Date\r\n ConfigureTreeView\r\n ConfigureDailyTasks\r\n ConfigureTimeplan\r\n FillTree\r\n FillDailyTasks\r\n FillTimeplan\r\nEnd Sub<\/pre>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic009.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2012_03\/TagesablaufVerwalten-web-images\/pic011.png\")
<\/p>\nPrivate Sub ConfigureTimeplan()\r\n Dim objColumnHeader As MSComctlLib.ColumnHeader\r\n Set objTimeplan = Me!lvwTimeplan.Object\r\n With objTimeplan\r\n .ColumnHeaders.Clear\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .View = lvwReport\r\n .FullRowSelect = True\r\n .OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual\r\n .Font.Name = "Calibri"\r\n .Font.Size = 9\r\n .MultiSelect = True\r\n .LabelEdit = lvwManual\r\n .FlatScrollBar = True\r\n End With\r\n Set objColumnHeader = objTimeplan.ColumnHeaders.Add\r\n objColumnHeader.Text = "Uhrzeit:"\r\n objColumnHeader.Width = 900\r\n Set objColumnHeader = objTimeplan.ColumnHeaders.Add\r\n objColumnHeader.Text = "Aufgabe:"\r\n objColumnHeader.Width = Me!lvwTimeplan.Width - 910\r\nEnd Sub<\/pre>\n
Private Sub FillTimeplan()\r\n Dim db As DAO.Database\r\n Dim qdf As DAO.QueryDef\r\n Dim rst As DAO.Recordset\r\n Dim objListitem As MSComctlLib.ListItem\r\n Dim objListSubItem As MSComctlLib.ListSubItem\r\n Dim datVon As Date\r\n Dim datBis As Date\r\n Dim i As Integer\r\n Set db = CurrentDb\r\n Set qdf = db.QueryDefs("qryTaetigkeitenZeiten")\r\n qdf.Parameters("prmTaetigkeitDatum").Value = Me!txtDatum\r\n Set rst = qdf.OpenRecordset()\r\n datVon = DLookup("ZeitanzeigeVon", "tblOptionen")\r\n datBis = DLookup("ZeitanzeigeBis", "tblOptionen")\r\n rst.Filter = "TimePlanZeit >= " & ISODatum(datVon) & " AND TimePlanZeit <= " & ISODatum(datBis)\r\n Set rst = rst.OpenRecordset\r\n objTimeplan.ListItems.Clear\r\n Do While Not rst.EOF\r\n i = i + 1\r\n Set objListitem = objTimeplan.ListItems.Add(, "p" & i, Format(rst!TimeplanZeit, "hh:nn"))\r\n objListitem.Tag = Nz(rst!TaetigkeitID)\r\n Set objListSubItem = objListitem.ListSubItems.Add\r\n objListSubItem.Text = Nz(rst!Bezeichnung)\r\n rst.MoveNext\r\n Loop\r\n AktuelleZeitMarkieren\r\n objTimeplan.SelectedItem.Selected = False\r\n objTimeplan.SelectedItem = Nothing\r\nEnd Sub<\/pre>\nPrivate Sub AktuelleZeitMarkieren()\r\n Dim objListitem As MSComctlLib.ListItem\r\n If objTimeplan Is Nothing Then\r\n Set objTimeplan = Me!lvwTimeplan.Object\r\n End If\r\n For Each objListitem In objTimeplan.ListItems\r\n If Time() >= CDate(objListitem.Text) And Time() < CDate(objListitem.Text) + 1 \/ 96 Then\r\n objListitem.Bold = True\r\n objListitem.ListSubItems(1).Bold = True\r\n Else\r\n objListitem.Bold = False\r\n objListitem.ListSubItems(1).Bold = False\r\n End If\r\n Next objListitem\r\nEnd Sub<\/pre>\n