![\"TreeView-Steuerelement](\"..\/tl_files\/images\/pic_219_005.png\")
<\/a><\/p>\nBild 1: TreeView-Steuerelement zur Abbildung der Mitarbeiter-Hierarchie<\/p>\n
Formular erstellen<\/h2>\n
Wir benötigen wieder ein Formular mit einem TreeView<\/b>-Steuerelement namens ctlTreeView<\/b>. Das Formular finden Sie in der Beispieldatenbank unter dem Namen frmTreeViewMitarbeiter<\/b>. Für das Formular stellen Sie die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen <\/b>und Bildlaufleisten <\/b>sowie Trennlinien <\/b>auf Nein<\/b>, die Eigenschaft Automatisch zentrieren <\/b>auf Ja <\/b>ein. Außerdem legen Sie für die Eigenschaft Rahmenart <\/b>des TreeView<\/b>-Steuerelements den Wert Durchgezogen <\/b>fest (siehe Bild 2).<\/p>\n
Bild 2: Basis für das zu füllende Formular mit TreeView-Steuerelement<\/p>\n Die übrigen Eigenschaften des TreeView<\/b>-Steuerelements definieren wir wie gewohnt über die entsprechenden VBA-Eigenschaften, die in der Ereignisprozedur Form_Load <\/b>eingestellt werden (siehe Listing 1). Dabei deklarieren wir zunächst eine Objektvariable zum Referenzieren des TreeView<\/b>-Steuerelements:<\/p>\n Listing 1: Einstellen der Eigenschaften des TreeView-Steuerelements beim Laden des Formulars und Aufrufen der Funktion zum Füllen.<\/p>\n Um diese Variable zu füllen und darauf zuzugreifen, legen wir eine Property Get<\/b>-Prozedur an. Diese prüft, ob die Variable m_TreeView <\/b>bereits mit einem Verweis gefüllt ist und füllt diesen gegebenenfalls. Der Inhalt von m_Treeview <\/b>wird dann mit objTreeView <\/b>zurückgegeben (siehe Listing 2).<\/p>\n Listing 2: Die Property-Prozedur objTreeView liefert immer einen aktuellen Verweis auf das TreeView-Steuerelement.<\/p>\n Schauen wir uns nun zunächst die Datenherkunft für das TreeView<\/b>-Steuerelement an. Diese besteht in unserem Fall aus ein oder zwei Tabellen – je nachdem, ob Sie das Feld zur Verknüpfung eines Mitarbeiter-Datensatzes mit einem anderen Mitarbeiter-Datensatz zur Mitarbeiter-Tabelle oder zu einer weiteren Tabelle hinzugefügt haben.<\/p>\n Im ersten Fall enthält die Tabelle tblMitarbeiter <\/b>gleich das Feld VorgesetzterID<\/b>, mit dem der Vorgesetzte des aktuellen Mitarbeiters festgelegt wird (siehe Bild 3). Für die Darstellung der Daten aus dieser Tabelle sind keine weiteren Vorarbeiten nötig.<\/p>\n Bild 3: Die reflexiven Daten kommen aus einer einzigen Tabelle.<\/p>\n Es kann aber auch sein, dass Sie – was sinnvoller ist – die Informationen über die Beziehung zwischen den Mitarbeitern in einer weiteren Tabelle speichern. In der Beispieldatenbank heißt die Mitarbeitertabelle für diesen Fall tblMitarbeiterOhne<\/b>. Die Tabelle tblVorgesetzteUntergebene <\/b>enthält die beiden Felder VorgesetzterID <\/b>und UntergebenerID<\/b>, welche die Kombinationen aus Vorgesetztem und Untergebenem definieren. Dies sieht dann beispielsweise wie in Bild 4 aus.<\/p>\n Bild 4: Die Beziehung kann aber auch über eine Verknüpfungstabelle hergestellt werden.<\/p>\n Um die Daten so zusammenzuführen, dass diese wie in der einzelnen Tabelle tblMitarbeiter <\/b>dargestellt weden, verwenden wir eine Abfrage wie in Bild 5. Diese enthält die Daten der Tabelle tblMitarbeiterOhne <\/b>und fügt aus der Tabelle tblVorgesetzteUntergebene <\/b>das Feld VorgesetzterID <\/b>hinzu.<\/p>\n Bild 5: Im Falle der Verknüpfung führen wir die notwendigen Daten in einer Abfrage zusammen.<\/p>\n Wichtig ist, dass in der Abfrage allein die Beziehung zwischen dem Feld MitarbeiterID <\/b>der Tabelle tblMitarbeiterOhne <\/b>und das Feld UntergebenerID <\/b>der Tabelle tblVorgesetzteUntergebene <\/b>definiert ist. <\/p>\n Die Eigenschaften dieser Beziehung stellen Sie so ein, dass die Abfrage alle Datensätze der Tabelle tblMitarbeiterOhne <\/b>liefert – unabhängig davon, ob es für diesen Mitarbeiter einen über die Tabelle tblVorgesetzteUntergebene <\/b>festgelegten Vorgesetzten gibt. Ist kein solcher vorhanden, bleibt das Feld VorgesetzterID <\/b>schlicht leer. Das ist hilfreich, wenn wir gleich die Mitarbeiter der obersten Ebene ermitteln wollen, also solche, für die kein Vorgesetzter festgelegt wurden.<\/p>\n Kommen wir zum Füllen des TreeView-Steuerelements mit den Mitarbeiter-Elementen. Dazu ruft die Prozedur Form_Load <\/b>die Routine TreeViewFuellen <\/b>auf (siehe Listing 3). Die Routine erstellt ein Recordset auf Basis der Abfrage qryMitarbeiterVorgesetzte<\/b>, wobei allerdings nur diejenigen Datensätze berücksichtigt werden, deren Feld VorgesetzterID <\/b>den Wert NULL <\/b>enthält. Dies entspricht den Mitarbeitern, die keinen Vorgesetzten haben und somit der ersten Hierarchieebene angehören.<\/p>\n Listing 3: Die Prozedur TreeViewFuellen füllt die erste Ebene des TreeView-Steuerelements.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nPrivate Sub <\/span>Form_Load()\r\n With<\/span> objTreeView\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .LineStyle = tvwRootLines\r\n .Style = tvwTreelinesPlusMinusText\r\n .Font.Name = \"Calibri\"\r\n .Font.Size = 9\r\n End With<\/span>\r\n TreeViewFuellen\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents m_Treeview As <\/span> MSComctlLib.TreeView<\/pre>\nPrivate Property Get <\/span>objTreeView() As <\/span>MSComctlLib.TreeView\r\n If <\/span>m_Treeview Is Nothing Then<\/span>\r\n Set<\/span> m_Treeview = Me!ctlTreeView.Object\r\n End If<\/span>\r\n Set<\/span> objTreeView = m_Treeview\r\nEnd Property<\/span><\/pre>\nReflexive Tabellen als Datenherkunft<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nTreeView füllen<\/h2>\n
Public Sub <\/span>TreeViewFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryMitarbeiterVorgesetzte WHERE VorgesetzterID IS NULL\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> objNode = objTreeView.Nodes.Add(, , \"m\" & rst!MitarbeiterID, rst!Mitarbeiter)\r\n objNode.Expanded = True<\/span>\r\n TreeViewFuellen_Rekursiv db, rst!MitarbeiterID\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t