- \n
- Die Daten stammen aus hierarchisch verknüpften Tabellen wie tblKunden, tblBestellungen und tblBestellpositionen<\/b>.<\/li>\n
- Die Daten stammen aus einer Tabelle mit reflexiver Verknüpfung.<\/li>\n
- Die beiden vorherigen Varianten werden kombiniert.<\/li>\n<\/ul>\n
Wir schauen uns in der vorliegenden Artikelreihe zunächst die erste Variante an, um die weiteren kümmern wir uns in folgenden Beiträgen.<\/p>\n
Kunden, Bestellungen und Artikel<\/h2>\n
Im ersten Beispiel soll das TreeView<\/b>-Steuerelement die Daten der Tabellen tblKunden<\/b>, tblBestellungen<\/b>, tblBestelldetails <\/b>und tblArtikel <\/b>abbilden. Die Tabellen sind wie gefordert aufeinander aufbauend per 1:n-Beziehung miteinander verknüpft (siehe Bild 1). Das heißt, die Daten der Tabelle tblKunden <\/b>sollen ganz links im TreeView <\/b>angezeigt werden, die Daten der Tabelle tblBestellungen <\/b>rechts unterhalb des jeweiligen Kunden und die Daten der Tabelle tblBestellpositionen <\/b>wiederum rechts unterhalb der jeweiligen Bestellungen.<\/p>\n
![\"Datenherkunft](\"..\/tl_files\/images\/pic_216_003.png\")
<\/a><\/p>\nBild 1: Datenherkunft für die Anzeige hierarchischer Daten im TreeView-Steuerelement<\/p>\n
Dabei soll die Datenherkunft für diese Ebene im TreeView<\/b>-Steuerelement nicht nur Daten der Tabelle tblBestellpositionen <\/b>enthalten, sondern auch noch den Artikelnamen aus der mit dieser Tabelle verknüpften Tabelle tblArtikel<\/b>.<\/p>\n
Um dies zu erreichen, legen Sie zunächst ein neues Formular namens frmKundenBestellungenArtikel <\/b>an und fügen diesem ein TreeView<\/b>-Steuerelement hinzu, dass Sie mit dem Namen ctlTreeView <\/b>versehen (siehe Bild 2).<\/p>\n
![\"Formular](\"..\/tl_files\/images\/pic_216_002.png\")
<\/a><\/p>\nBild 2: Formular mit dem frisch hinzugefügten TreeView-Steuerelement in der Entwurfsansicht<\/p>\n
Verweis auf das TreeView-Steuerelement<\/h2>\n
Das TreeView wollen wir wieder mit einer Variablen namens m_TreeView <\/b>referenzieren, die wie folgt im Kopf des Klassenmoduls Form_frmKundenBestellungenArtikel <\/b>deklariert wird (in einer Zeile):<\/p>\n
Dim <\/span>WithEvents m_Treeview As <\/span>-MSComctlLib.TreeView<\/pre>\nDamit diese Variable immer gefüllt ist und wir über den Ausdruck objTreeView <\/b>immer darauf zugreifen können, also auch, wenn einmal ein Laufzeitfehler die Variable geleert hat, verwenden wir die Property<\/b>-Prozedur objTreeView <\/b>aus Listing 1.<\/p>\n
Private 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>\nListing 1: Die Property-Prozedur objTreeView liefert immer einen aktuellen Verweis auf das TreeView-Steuerelement.<\/p>\n
Eigenschaften einstellen<\/h2>\n
Die Eigenschaften stellen wir gleich per Code ein – so brauchen Sie nur die Einstellungen vorheriger TreeView<\/b>-Steuerelemente zu übernehmen. Die folgende Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird, nutzt auch gleich die Property<\/b>-Prozedur objTreeView<\/b>, um das TreeView<\/b>-Steuerelement zu referenzieren:<\/p>\n
Private Sub <\/span>Form_Load()\r\n With<\/span> objTreeView\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .LineStyle = tvwRootLines\r\n .Style = _\r\n tvwTreelinesPlusMinusText\r\n End With<\/span>\r\n TreeViewFuellen\r\nEnd Sub<\/span><\/pre>\nDamit stellen wir die Eigenschaften zunächst wie in den Beispielen der bisherigen Artikel zum Thema TreeView<\/b>-Steuerelement ein.<\/p>\n
Kunden hinzufügen<\/h2>\n
Nun folgt jedoch der Aufruf der Prozedur TreeViewFuellen<\/b>, die wie in Listing 2 aussieht.<\/p>\n
Private Sub <\/span>TreeViewFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstKunden As <\/span>DAO.Recordset\r\n Dim <\/span>rstBestellungen As <\/span>DAO.Recordset\r\n Dim <\/span>rstPositionen As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstKunden = db.OpenRecordset(\"SELECT KundeID, Firma FROM tblKunden\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstKunden.EOF\r\n objTreeView.Nodes.Add , , \"k\" & rstKunden!KundeID, rstKunden!Firma\r\n Set<\/span> rstBestellungen = db.OpenRecordset(\"SELECT BestellungID, Bestelldatum FROM tblBestellungen WHERE KundeID = \" _\r\n & rstKunden!KundeID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstBestellungen.EOF\r\n objTreeView.Nodes.Add \"k\" & rstKunden!KundeID, tvwChild, \"b\" & rstBestellungen!BestellungID, rstBestellungen!Bestelldatum\r\n Set<\/span> rstPositionen = db.OpenRecordset(\"SELECT BestellpositionID, Artikelname FROM tblBestellpositionen \" _\r\n & \"INNER JOIN tblArtikel ON tblBestellpositionen.ArtikelID = tblArtikel.ArtikelID WHERE BestellungID = \" _\r\n & rstBestellungen!BestellungID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstPositionen.EOF\r\n objTreeView.Nodes.Add \"b\" & rstBestellungen!BestellungID, tvwChild, \"p\" & rstPositionen!BestellpositionID, _\r\n rstPositionen!Artikelname\r\n rstPositionen.MoveNext<\/span>\r\n Loop<\/span>\r\n rstBestellungen.MoveNext<\/span>\r\n Loop<\/span>\r\n rstKunden.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nListing 2: Füllen des TreeView-Steuerelements mit den Daten aus drei verknüpften Tabellen<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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