<\/p>\n
Aufgaben lassen sich normalerweise schön in einer Liste darstellen. Manche Aufgaben sind aber derart umfangreich, dass man sie lieber in kleine Häppchen aufteilt und diese nacheinander erledigt. Also stellen wir dies in hierarchischer Form im TreeView dar. Zusammen mit der Möglichkeit, Aufgaben per Kontextmenü anzulegen und zu löschen, Unteraufgaben zu verschieben oder erledigte Aufgaben abzuhaken, wird eine richtige kleine Lösung daraus. Es kommt aber noch besser: Das Ergebnis dieses Beitrags verwenden wir in unserer Lösung „Tagesablauf verwalten“ weiter.<\/b><\/p>\n
Die Lösung im Überblick<\/b><\/p>\n
Die Aufgabenverwaltung soll das Anlegen, Bearbeiten, Löschen und Zuordnen von Aufgaben erleichtern. Die Aufgaben liegen in einer Tabelle, eine weitere erlaubt die hierarchische Zuordnung der Aufgaben. Hierarchie Natürlich: Hier kommt das TreeView-Steuerelement zum Einsatz. Es zeigt die Aufgaben wie in Bild 1 an.<\/p>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic006.png\")
<\/p>\n
Bild 1: Anzeige von Aufgaben per TreeView-Steuerelement <\/span><\/b><\/p>\n In der Abbildung erkennen Sie auch bereits, wie Sie Aufgaben anlegen und löschen: nämlich per Kontextmenüeintrag. Der Eintrag Neue Aufgabe <\/b>öffnet den Dialog aus Bild 2, mit dem Sie eine neue Aufgabe anlegen können. Dort tragen Sie Informationen wie den Namen der Aufgabe, eine Beschreibung, das geplante und das tatsächliche Erledigungsdatum ein, wählen eine Kategorie aus und stellen ein, ob die Aufgabe heute erledigt werden soll. Ein Klick auf OK<\/b> schließt das Formular und fügt die neue Aufgabe gleich zum Baum hinzu – und zwar unterhalb des Elements, dessen Kontextmenü Sie zuvor benutzt haben.<\/p>\n Bild 2: Anlegen einer neuen Aufgabe<\/span><\/b><\/p>\n Die Lösung bietet noch mehr: So können Sie eine Aufgabe per Doppelklick in der Detailansicht öffnen, um nachträgliche änderungen vorzunehmen. änderungen an der Bezeichnung werden gleich in das TreeView-Steuerelement übernommen.<\/p>\n Nicht sichtbar, aber sehr nützlich ist die Möglichkeit, Aufgaben per Drag and Drop zu verschieben oder zu kopieren. Das Verschieben erledigen Sie, indem Sie ein Element bei gedrückter Maustaste auf ein anderes Element ziehen. Die Aufgabe wird der Zielaufgabe untergeordnet.<\/p>\n Wenn Sie beim Drag-and-Drop-Vorgang die Strg<\/b>-Taste gedrückt halten, legt die Anwendung eine Kopie der betroffenen Aufgabe an und speichert diese direkt unterhalb der Zielaufgabe. Die Aufgabe erhält dann genau die gleichen Eigenschaften wie die Originalaufgabe.<\/p>\n Sollten Sie eine Aufgabe ein zweites Mal unterhalb einer Aufgabe anlegen wollen, ziehen Sie diese einfach bei gedrückter Strg<\/b>-Taste auf die gemeinsame übergeordnete Aufgabe.<\/p>\n Der Aufgabenbaum soll eine Übersicht über alle zu erledigenden Aufgaben bieten. In der Lösung Tagesablauf verwalten<\/b>, die wir im nächsten Heft vervollständigen, wird der Aufgabenbaum neben einer Liste der heute zu erledigenden Aufgaben und einem Zeitplan für den jeweiligen Tag dargestellt. Sie können dann Aufgaben aus dem Aufgabenbaum per Drag and Drop in die verschiedenen Listen ziehen – entweder als Aufgabe in die Liste der heutigen Aufgaben oder auch als Tätigkeit in die Liste der Tätigkeiten des entsprechenden Tages.<\/p>\n Die Aufgabendetails enthalten eine Eigenschaft, mit der Sie eine Kategorie festlegen können. Diese wählen Sie entweder per Kombinationsfeld aus den bestehenden Kategorien aus oder Sie klicken auf die Schaltfläche mit den drei Punkten. Dies öffnet zunächst den Dialog Kategorie-Übersicht <\/b>aus Bild 3. Hier können Sie eine der vorhandenen Kategorien auswählen, Kategorien löschen oder neue Kategorien anlegen. In jedem Fall wird hier gleich die bereits gewählte Kategorie ausgewählt und beim Schließen des Formulars übernommen.<\/p>\n Bild 3: Auswählen und verwalten der Kategorien<\/span><\/b><\/p>\n Datenmodell<\/b><\/p>\n Die Grundlage für unseren Aufgabenbaum ist eine Tabelle namens tblAufgaben<\/b>, welche die wesentlichen Informationen über eine Aufgabe enthält: Die Bezeichnung, eine Kurzbeschreibung, Felder zum Eintragen von Datumsangaben wie dem geplanten und dem tatsächlichen Erledigungsdatum sowie ein Auswahlfeld für eine Kategorie. Schließlich besitzt die Tabelle noch ein Ja\/Nein<\/b>-Feld namens HeuteErledigen<\/b>. Warum das, wenn es doch bereits ein Fertigstellungsdatum gibt Nun: Auch wenn eine Aufgabe erst in einer Woche fertiggestellt werden muss, kann man sie ja durchaus schon vorher erledigen. Und da für die Tagesablauf-Verwaltung, zu der die hier vorgestellte Teillösung gehören soll, auch eine Liste der für den heutigen Tag vorgesehenen Aufgaben geplant ist, wollen wir solche Aufgaben mit dem Wert True <\/b>für die Eigenschaft HeuteErledigen <\/b>kennzeichnen. Die Tabelle sieht im Entwurf wie in Bild 4 aus.<\/p>\n Bild 4: Entwurf der Tabelle tblAufgaben<\/span><\/b><\/p>\n Außerdem benötigen wir noch eine Möglichkeit, die hierarchische Abhängigkeit einzelner Aufgaben voneinander abzubilden. Dazu verwenden wir eine weitere Tabelle namens tblAufgabenUnteraufgaben<\/b>, die neben einem Primärschlüsselfeld zwei Fremdschlüsselfelder namens AufgabeID <\/b>und UnteraufgabeID <\/b>besitzt. Für das Feld UnteraufgabeID<\/b> wird ein eindeutiger Index festgelegt, damit eine Unteraufgabe nicht gleichzeitig mehreren Aufgaben zugeordnet werden kann (s. Bild 5).<\/p>\n Bild 5: Entwurf der Tabelle tblAufgabenUnteraufgaben<\/span><\/b><\/p>\n Die Beziehung zwischen den Tabellen tblAufgaben <\/b>und tblAufgabenUnteraufgaben <\/b>legen Sie gleich im Beziehungen-Fenster fest. Da die Tabelle tblAufgaben <\/b>zweimal mit der Tabelle tblAufgabenUnteraufgaben <\/b>verknüpft ist, blenden Sie diese zum Herstellen der Verknüpfungen ein zweites Mal im Beziehungen-Fenster ein. Die Beziehung zwischen dem Feld AufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben <\/b>und der Tabelle tblAufgaben <\/b>erhalten Sie, indem Sie das Feld von tblAufgaben <\/b>auf das gleichnamige Feld der Tabelle tblAufgabenUnteraufgaben <\/b>ziehen. Dies könnten Sie in diesem Fall auch andersherum erledigen, aber nicht bei der Verknüpfung mit dem Feld UnteraufgabeID<\/b>: Dieses Feld ist mit einem eindeutigen Index versehen. Wenn Sie es von tblAufgabenUnteraufgaben <\/b>auf das Feld AufgabeID <\/b>der Tabelle tblAufgaben <\/b>ziehen, fungiert das Feld AufgabeID <\/b>der Tabelle tblAufgaben <\/b>als Fremdschlüsselfeld. Bei gleichzeitiger Definition referentieller Integrität für diese Beziehung bedeutet dies, dass Sie nur Datensätze in tblAufgaben <\/b>anlegen können, deren Feld AufgabeID <\/b>einen Wert enthält, der bereits im Feld UnteraufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben <\/b>enthalten ist. Anderenfalls erhalten Sie beim Einfügen eines Datensatzes in der Tabelle tblAufgaben <\/b>die Fehlermeldung Der Datensatz kann nicht hinzugefügt oder geändert werden, da ein Datensatz in der Tabelle €štblAufgabenUnteraufgaben€ mit diesem Datensatz in Beziehung stehen muss<\/b>. Wenn Sie hingegen das Feld AufgabeID <\/b>von der Tabelle tblAufgaben <\/b>auf das Feld UnteraufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben <\/b>ziehen, funktioniert alles wie gewünscht – Sie können dann einfach Datensätze in der Tabelle tblAufgaben <\/b>anlegen, ohne dass die Tabelle tblAufgabenUnteraufgaben <\/b>davon betroffen ist. Dass das Feld UnteraufgabeID<\/b> mit einem eindeutigen Index versehen ist, sorgt außerdem dafür, dass die Beziehung als 1:1-Beziehung gekennzeichnet wird (s. Bild 6).<\/p>\n Bild 6: Datenmodell der Aufgabenverwaltung<\/span><\/b><\/p>\n Aufbau der Lösung<\/b><\/p>\n Die Aufgabenverwaltung per TreeView soll hauptsächlich das Hinzufügen und Löschen von Aufgaben über das Kontextmenü des TreeView-Steuerelements ermöglichen. Wie soll jedoch sichergestellt werden, dass überhaupt ein Element im TreeView-Steuerelement vorhanden ist, das ein Kontextmenü anbietet Man könnte nun alle Rootaufgaben, also solche Aufgaben, die keine übergeordneten Aufgaben besitzen, in der ersten Ebene des TreeViews anzeigen. Allerdings fehlt dann immer noch ein Element, mit dessen Kontextmenü Sie ein Rootelement anlegen können. Der Einfachheit halber legen wir daher im TreeView ein einziges Root-Element an, das alle weiteren Rootaufgaben und auch einen Kontextmenüeintrag zum Anlegen von Rootaufgaben enthält. Auf diese Weise können Sie auch eine leere Datenbank mit diesem Formular weitergeben und dem Benutzer so die Möglichkeit geben, seine Aufgaben-Hierarchie von Grund auf neu zu gestalten.<\/p>\n ähnliches gilt für die Kategorien, die der Benutzer für die Aufgaben auswählen soll. Was geschieht, wenn der Benutzer das Aufgaben-Detailformular öffnet, um eine neue Aufgabe anzulegen, aber noch keine Kategorien vorhanden sind Grundsätzlich sollte bereits vor dem Öffnen dieses Dialoges eine entsprechende Meldung erscheinen und den Benutzer auffordern, zunächst mindestens eine Kategorie anzulegen.<\/p>\n Alternativ richten Sie das Kategorien-Auswahlsteuerelement im Aufgaben-Detailformular so ein, dass es die direkte Eingabe von Kategorien erlaubt und diese gleich als neue Datensätze der Tabelle tblKategorien <\/b>speichert. Rechts neben dem Kombinationsfeld ließe sich dann gut eine Schaltfläche unterbringen, mit welcher der Benutzer den Dialog zum Verwalten der Kategorien öffnen kann.<\/p>\n TreeView-Steuerelement anlegen<\/b><\/p>\n Das TreeView-Steuerelement fügen Sie über den Eintrag ActiveX-Steuerelemente <\/b>der Toolbox mit den Steuerelementen zu einem neuen, leeren Formular hinzu. Ziehen Sie das Steuerelement auf die gewünschte Größe und nennen Sie es ctlTreeView<\/b>.<\/p>\n <\/p>\n Das TreeView-Steuerelement soll per VBA-Code mit den reflexiven Daten der beiden Tabellen tblAufgaben <\/b>und tblAufgabenUnteraufgaben <\/b>beziehungsweise mit den darauf aufbauenden Tabellen gefüllt werden. Außerdem wollen wir später einige Features wie beispielsweise Kontextmenüeinträge zum Anlegen und Entfernen der Aufgaben im TreeView hinzufügen.<\/p>\n Damit diese Kontextmenüs angezeigt werden, müssen beim Rechtsklick auf die entsprechenden Elemente Ereignisse ausgelöst werden. Damit wir diese zum Klassenmodul des Formulars hinzufügen können, deklarieren wir im Kopf des Moduls die folgende Objektvariable:<\/p>\n Das Schlüsselwort WithEvents <\/b>sorgt für die Bereitstellung der Ereignisprozeduren über die beiden Kombinationsfelder im VBA-Fenster mit dem Klassenmodul des Formulars.<\/p>\n Bevor wir uns um diese Ereignisse kümmern, wollen wir die Objektvariable zunächst mit einem Verweis auf das TreeView-Steuerelement ctlTreeView<\/b> füllen und dann die Aufgaben darin anzeigen.<\/p>\n TreeView mit Aufgaben füllen<\/b><\/p>\n Das TreeView-Steuerelement soll ein Root-Steuerelement namens a0 <\/b>mit der Beschriftung Aufgaben <\/b>haben. Dieses Element legen Sie gleich beim Einrichten des TreeView-Steuerelements in der Ereignisprozedur an, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird.<\/p>\n Diese Prozedur füllt zunächst die Objektvariable objTreeView <\/b>mit einem Verweis auf das TreeView-Steuerelement (s. Listing 1<\/a><\/span>). Danach nimmt es einige Einstellungen vor, die Sie auch direkt im Eigenschaftsfenster des TreeView-Steuerelements im Formularentwurf vornehmen können. Wenn Sie jedoch öfter mal TreeView-Steuerelemente anlegen, möchten Sie vielleicht auf die Schnelle die Eigenschaften bewährter Modelle übernehmen – und das geht am schnellsten, wenn Sie einfach ein paar Zeilen Code übertragen, in diesem Fall die Anweisungen mit der Zuweisung der entsprechenden Eigenschaftswerte.<\/p>\n Listing 1: Einrichten des TreeView-Steuerelements beim Laden des Formulars<\/p>\n Der Root-Knoten mit der Beschriftung Aufgaben <\/b>und dem Key a0 <\/b>wird nach dem Einstellen der Eigenschaften zum TreeView-Steuerelement hinzugefügt. Außerdem wird dessen Eigenschaft Expanded <\/b>gleich auf den Wert True <\/b>eingestellt, damit darunter enthaltene Aufgaben gleich angezeigt werden.<\/p>\n Einlesen der ersten Aufgaben-Ebene<\/b><\/p>\n Die letzte Anweisung der Prozedur Form_Load <\/b>ruft eine weitere Prozedur namens FillTree <\/b>auf. Diese füllt genau genommen gar nicht den kompletten Baum, sondern kümmert sich nur um die erste Ebene. Woher aber wissen wir, welche der Aufgaben aus der Tabelle tblAufgaben <\/b>dort landen sollen, wo doch die Informationen über die Hierarchie in der Tabelle tblAufgabenUnteraufgaben <\/b>gespeichert sind Dort sollen aber doch gerade über die Aufgaben ohne übergeordnete Elemente keine Informationen enthalten sein, sondern andersherum Kein Problem: Wir verknüpfen die beiden Tabellen trotzdem einfach in einer Abfrage, und zwar über das Feld UnteraufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben<\/b>.<\/p>\n Außerdem legen wir in den Beziehungseigenschaften für diese Beziehung fest, dass die Beziehung alle Datensätze der Tabelle tblAufgaben <\/b>liefern soll, aber nur diejenigen Datensätze der Tabelle tblAufgabenUnteraufgaben<\/b>, für die auch ein verknüpfter Datensatz vorhanden ist. Dies liefert dann manche Datensätze der Tabelle tblAufgaben <\/b>mit einem verknüpfen Datensatz der Tabelle tblAufgabenUnteraufgaben <\/b>und manche ohne weitere Daten aus tblAufgabenUnteraufgaben<\/b>. Letztere sind diejenigen, die wir suchen: Und mit einem Kriterium, das alle Datensätze liefert, für die das Feld AufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben<\/b> den Wert NULL <\/b>hat, erhalten wir schließlich alle Aufgaben ohne übergeordnete Aufgaben. Die Abfrage sieht im Entwurf wie in Bild 7 aus.<\/p>\n Bild 7: Abfrage zur Ermittlung der obersten Ebene von Aufgaben<\/span><\/b><\/p>\n Diese Abfrage heißt qryRootAufgaben<\/b> und dient als Datenherkunft für eine Datensatzgruppe namens rst<\/b>, die in der Prozedur FillTree <\/b>geöffnet wird (s. Listing 2<\/a><\/span>). Die Prozedur durchläuft in einer Do While<\/b>-Schleife alle Datensätze, die diese Abfrage liefert, und legt für jeden Datensatz ein neues Element unterhalb des Elements Aufgaben <\/b>(mit dem Key<\/b>-Wert a0<\/b>) an.<\/p>\n Listing 2: Die Prozedur FillTree legt die erste Ebene der Aufgaben-Hierarchie an.<\/p>\n Die Add<\/b>-Methode der Nodes<\/b>-Auflistung verwendet als ersten Parameter den Wert a0<\/b>, als zweiten tvwChild<\/b>. Das bedeutet, dass das neue Element als Kind-Element des Elements mit dem Key<\/b>-Wert a0 <\/b>angelegt wird.<\/p>\n Die Tabelle tblAufgaben<\/b> enthält auch noch ein Feld namens Aufgeklappt<\/b>, das speichert, ob eine Aufgabe zuletzt ihre Unteraufgaben angezeigt hat oder nicht. Abhängig vom Wert des Feldes Aufgeklappt <\/b>der Datenherkunft stellt die Prozedur die Eigenschaft Expanded <\/b>des neuen Elements ein. Schließlich ruft die Prozedur für jeden Datensatz einmal die Prozedur FillTreeRek <\/b>auf, die für das Füllen der übrigen Aufgaben-Ebenen zuständig ist.<\/p>\n Füllen der untergeordneten Aufgaben<\/b><\/p>\n Die unteren Ebenen füllt die Prozedur FillTreeRek<\/b>, die sich für jede weitere Ebene selbst aufruft. Die wesentlichen Unterschiede zur Prozedur sind der Parameter, der beim Aufrufen übergeben wird und die leicht geänderte Datenherkunft beim Durchlaufen der untergeordneten Elemente.<\/p>\n Die Datenherkunft bezieht sich diesmal explizit auf diejenigen verknüpften Datensätze der Tabellen tblAufgaben <\/b>und tblAufgabenUnteraufgaben<\/b>, bei denen das Feld AufgabeID <\/b>der Tabelle tblAufgabenUnteraufgaben <\/b>dem Wert der Variablen lngParentID <\/b>entspricht. Und dieser entspricht wiederum der Variablen, die beim Aufruf der rekursiven Funktion übergeben wurde und den Wert des Feldes AufgabeID <\/b>der Aufgabe enthält, unter der die folgenden Aufgaben angelegt werden sollen. Die Abfrage qryUnteraufgaben<\/b>, die als Datenherkunft zum Anlegen der Unteraufgaben dient, sieht wie in Bild 8 aus.<\/p>\n Bild 8: Abfrage zur Ermittlung der untergeordneten Aufgaben<\/span><\/b><\/p>\n Die Prozedur FillTreeRek <\/b>finden Sie in Listing 3<\/a><\/span>.<\/p>\n Listing 3: Die Prozedur FillTreeRek füllt die übrigen Aufgaben-Ebenen.<\/p>\n Nach dem Aufruf dieser Prozeduren beim Öffnen des Formulars ist das TreeView mit allen in den Tabellen enthaltenen Elementen gefüllt.<\/p>\n Kontextmenüs<\/b><\/p>\n Damit Sie Ihre erste Aufgabe im TreeView anlegen können, legen wir nun zunächst das dafür notwendige Kontextmenü an beziehungsweise erstellen den Code, der dieses beim Rechtsklick auf das entsprechende Node-Element öffnet.<\/p>\n Wenn Sie mit Kontextmenüs arbeiten, fügen Sie dem VBA-Projekt zuvor einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>hinzu.<\/p>\n Anschließend legen Sie eine Ereignisprozedur an, die beim Drücken der Maustaste im TreeView-Steuerelement ausgelöst wird (s. Listing 4<\/a><\/span>). Nun möchten Sie nicht auf Mausklicks im Allgemeinen reagieren, sondern nur auf einen Klick auf die rechte Maustaste – und das auch nur, wenn der Benutzer dabei auch ein Element getroffen hat. Die Vorbereitung zur Prüfung des betroffenen Elements führt die Prozedur zuerst durch: Sie ermittelt mit der HitTest<\/b>-Methode das angeklickte Element und trägt einen Verweis darauf in die Objektvariable objNode <\/b>ein.<\/p>\n Listing 4: Anzeigen des Kontextmenüs bei Rechtsklick auf ein Aufgaben-Element<\/p>\n Wurde ein Element getroffen, wird dieses mit der Eigenschaft SelectedItem <\/b>als ausgewähltes Element markiert (Letzteres ist gar nicht für die Anzeige des Kontextmenüs wichtig, sondern für das Drag and Drop, was später beschrieben wird).<\/p>\n Erst dann prüft eine Select Case<\/b>-Bedingung, ob der Benutzer überhaupt die rechte Maustaste angeklickt hat. Auskunft darüber gibt der Parameter Button<\/b>, der in diesem Fall den Wert 2 <\/b>aufweisen sollte. Ist dies der Fall, prüft die Prozedur, ob objNode <\/b>gefüllt, und der Benutzer somit nicht in Niemandsland geklickt hat.<\/p>\n Falls nicht, geht es los: Aus der Key<\/b>-Eigenschaft (a0<\/b> für das Root-Element, a <\/b>+ AufgabeID für die übrigen Elemente) ermittelt die Prozedur die ID der angeklickten Aufgabe und speichert diese in lngAufgabeID<\/b>. Ein eventuell noch vom vorherigen Rechtsklick vorhandenes Kontextmenü namens cbrAufgaben <\/b>wird ohne Rücksicht auf Verluste gelöscht – und gleich neu erstellt, und zwar per Parameter msoBarPopup <\/b>als Kontextmenü und nicht etwa als Menü- oder Symbolleiste, die in modernen Access-Versionen ohnehin nicht mehr angezeigt werden.<\/p>\n Das Kontextmenü wird dann in jedem Fall um den Befehl Neue Aufgabe <\/b>angereichert, für den die Prozedur einen Ausdruck wie =AufgabeErstellen(123) <\/b>für die Eigenschaft onAction <\/b>festlegt. Dabei steht AufgabeErstellen <\/b>für die Funktion, die beim Auswählen des Kontextmenüeintrags ausgewählt werden soll, und 123 <\/b>für die ID der angeklickten Aufgabe, unterhalb der eine neue Aufgabe eingefügt werden soll.<\/p>\n Nicht in jedem Fall, sondern nur für alle Elemente außer dem Root-Element (gekennzeichnet durch den Key<\/b>-Wert a0 <\/b>und somit den Wert 0 <\/b>für lngAufgabeID<\/b>) wird dem Kontextmenü auch noch ein Eintrag zum Löschen des jeweiligen Elements spendiert.<\/p>\n Dieser Eintrag ruft die Funktion AufgabeLoeschen <\/b>mit der ID der zu löschenden Aufgabe als Parameter auf.<\/p>\n Wenn Sie das Formular nun erneut in der Formularansicht öffnen, können Sie das Kontextmenü bereits anzeigen, ein Klick auf die Befehle bewirkt jedoch noch nichts.<\/p>\n Neue Aufgabe erstellen<\/b><\/p>\n Dies ändert sich erst, wenn Sie die Funktion AufgabeErstellen<\/b> aus Listing 5<\/a><\/span> in das Klassenmodul des Formulars einfügen.<\/p>\n Listing 5: Öffnen des Formulars frmAufgabeDetails nach Betätigen des Kontextmenüs<\/p>\n Die Funktion nimmt denPrimärschlüsselwert der übergeordneten Funktion als Parameter in Empfang und öffnet gleich mit der ersten Anweisung das Formular frmAufgabeDetails<\/b>. Wichtig ist, dass die ID der Parent-Aufgabe hier gleich als Öffnungsargument an das Formular weitergereicht wird. Warum das Nun, damit erhalten Sie ein klein wenig Komfort: Eine untergeordnete Aufgabe wird wahrscheinlich meist die gleiche Aufgabenkategorie wie die übergeordnete Aufgabe besitzen. Daher liest das Formular frmAufgabeDetails <\/b>die ID des übergeordneten Elements aus dem Öffnungsparameter aus, ermittelt per DLookup <\/b>die Kategorie der Aufgabe mit dieser ID und trägt diese als Standardwert für das Kombinationsfeld cboKategorieID <\/b>ein:<\/p>\n Nach dem Eintragen der Eigenschaften der neuen Aufgabe schließt man das Formular mit der OK<\/b>-Taste, was im Hintergrund jedoch nur zum Ausblenden führt:<\/p>\n Dies ist für die folgenden Schritte nötig: Zunächst soll das neue Aufgaben-Element gleich nach dem Schließen im TreeView angelegt werden. Dazu liest die Prozedur aus dem noch geöffneten Formular die AufgabeID <\/b>und die Bezeichnung der Aufgabe aus.<\/p>\n Danach, und die Reihenfolge ist sehr wichtig, wird zuerst das Formular geschlossen. Der Grund sind die folgenden Anweisungen: Die erste trägt nämlich einen neuen Datensatz in die Tabelle tblAufgabenUnteraufgaben <\/b>ein, um die neue Aufgabe in die Hierarchie einzugliedern.<\/p>\n Dies gelingt aber nur ohne Fehler, wenn beide mit den Fremdschlüsselfeldern AufgabeID <\/b>und UnteraufgabeID <\/b>referenzierten Datensätze bereits in der Tabelle tblAufgaben <\/b>vorhanden sind. Und gerade der im Formular angelegte Datensatz wird erst mit dem Schließen des Formulars gespeichert.<\/p>\n Danach stellt die Prozedur noch die Eigenschaft Expanded <\/b>des übergeordneten Elements auf True <\/b>ein, damit die neue Aufgabe auch gleich sichtbar ist, und legt diese mit der folgenden Anweisung auch gleich an.<\/p>\n Aufgaben löschen<\/b><\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic008.png\")
<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic001.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic002.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic003.png\")
<\/p>\nDim WithEvents objTreeView As MSComctlLib.TreeView<\/pre>\n
Private Sub Form_Load()\r\n Dim objNode As MSComctlLib.Node\r\n Set objTreeView = Me!ctlTreeView.Object\r\n With objTreeView\r\n .Appearance = ccFlat\r\n .LineStyle = tvwTreeLines\r\n .Style = tvwTreelinesPlusMinusPictureText\r\n .OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual\r\n .Font.Name = \"Calibri\"\r\n .Font.Size = 10\r\n Set objNode = .Nodes.Add(, , \"a0\", \"Aufgaben\")\r\n objNode.Expanded = True\r\n FillTree\r\n End With\r\nEnd Sub<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic005.png\")
<\/p>\nPrivate Sub FillTree()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim objNode As MSComctlLib.Node\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"qryRootAufgaben\", dbOpenDynaset)\r\n Do While Not rst.EOF\r\n Set objNode = objTreeView.Nodes.Add(\"a0\", tvwChild, \"a\" & rst!AufgabeID, rst!Aufgabe)\r\n objNode.Expanded = rst!Aufgeklappt\r\n FillTreeRek rst!AufgabeID\r\n rst.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AufgabenImTreeview-web-images\/pic004.png\")
<\/p>\nPrivate Sub FillTreeRek(lngParentID As Long)\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim objNode As MSComctlLib.Node\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"SELECT * FROM qryUnteraufgaben WHERE ParentaufgabeID = \" & lngParentID, dbOpenDynaset)\r\n Do While Not rst.EOF\r\n Set objNode = objTreeView.Nodes.Add(\"a\" & lngParentID, tvwChild, \"a\" & rst!AufgabeID, rst!Aufgabe)\r\n objNode.Expanded = rst!Aufgeklappt\r\n FillTreeRek rst!AufgabeID\r\n rst.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n
Private Sub objTreeView_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _\r\n ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS)\r\n Dim objNode As MSComctlLib.Node\r\n Dim cbr As CommandBar\r\n Dim cbb As CommandBarButton\r\n Dim lngAufgabeID As Long\r\n Set objNode = objTreeView.HitTest(X, Y)\r\n objTreeView.SelectedItem = objNode\r\n Select Case Button\r\n Case 2 ''rechte Maustaste\r\n If Not objNode Is Nothing Then\r\n lngAufgabeID = Mid(objNode.Key, 2)\r\n On Error Resume Next\r\n CommandBars(\"cbrAufgaben€).Delete\r\n On Error GoTo 0\r\n Set cbr = CommandBars.Add(\"cbrAufgaben€, msoBarPopup, , True)\r\n Set cbb = cbr.Controls.Add(msoControlButton)\r\n cbb.Caption = \"Neue Aufgabe€\r\n cbb.OnAction = \"=AufgabeErstellen(\" & lngAufgabeID & \")€\r\n If lngAufgabeID > 0 Then\r\n Set cbb = cbr.Controls.Add(msoControlButton)\r\n cbb.Caption = \"Aufgabe löschen€\r\n cbb.OnAction = \"=AufgabeLoeschen(\" & lngAufgabeID & \")€\r\n End If\r\n cbr.ShowPopup\r\n End If\r\n End Select\r\nEnd Sub<\/pre>\n
Public Function AufgabeErstellen(lngAufgabeID As Long)\r\n Dim lngAufgabeNeuID As Long\r\n Dim strAufgabeNeu As String\r\n DoCmd.OpenForm "frmAufgabeDetails", WindowMode:=acDialog, DataMode:=acFormAdd, OpenArgs:=lngAufgabeID\r\n If IstFormularGeoeffnet("frmAufgabeDetails") Then\r\n lngAufgabeNeuID = Forms!frmAufgabeDetails.AufgabeID\r\n strAufgabeNeu = Forms!frmAufgabeDetails.Aufgabe\r\n DoCmd.Close acForm, "frmAufgabeDetails"\r\n CurrentDb.Execute "INSERT INTO tblAufgabenUnteraufgaben(AufgabeID, UnteraufgabeID) VALUES(" & lngAufgabeID & ", " & lngAufgabeNeuID & ")", dbFailOnError\r\n objTreeView.Nodes("a" & lngAufgabeID).Expanded = True\r\n objTreeView.Nodes.Add "a" & lngAufgabeID, tvwChild, "a" & lngAufgabeNeuID, strAufgabeNeu\r\n End If\r\nEnd Function<\/pre>\nPrivate Sub Form_Load()\r\n Dim lngParentID As Long\r\n Dim lngKategorieID As Long\r\n If Not IsNull(Me.OpenArgs) Then\r\n lngParentID = Me.OpenArgs\r\n lngKategorieID = Nz(DLookup("KategorieID", "tblAufgaben", "AufgabeID = " & lngParentID))\r\n Me!cboKategorieID.DefaultValue = lngKategorieID\r\n End If\r\nEnd Sub<\/pre>\nPrivate Sub cmdOK_Click()\r\n Me.Visible = False\r\nEnd Sub<\/pre>\n