Wie kann ich die vorhandenen Elemente durchlaufen<\/li>\n<\/ul>\nBeispieldatenbank<\/b><\/p>\n
Damit Sie sich als TreeView-Neuling nicht durch alle bereits erschienenen Beiträge zu diesem Thema durchkämpfen müssen, hier in aller Kürze der Ablauf zum Füllen des TreeViews mit Beispieldaten. Die Beispieldatenbank enthält drei Tabellen namens tblA<\/b>, tblB <\/b>und tblC<\/b>, die im Datenmodell wie in Bild 1 aussehen und bei denen die Tabelle tblB <\/b>über das Fremdschlüsselfeld AID <\/b>mit Tabelle tblA <\/b>und die Tabelle tblC <\/b>auf die gleiche Weise mit tblB <\/b>verknüpft ist. Die kleine Routine aus Listing 1 füllt die Tabellen mit Beispieldaten.<\/p>\n
Public Sub Beispieldaten()\r\nDim db As DAO.Database\r\nSet db = CurrentDb\r\nDim intA As Integer, lngA As Long, intB As Integer, lngB As Long, intC As Integer\r\ndb.Execute \"DELETE FROM tblA€, dbFailOnError\r\nFor intA = 1 To 5\r\n db.Execute \"INSERT INTO tblA(AWert) VALUES(€Wert€ & intA & \"€)€, dbFailOnError\r\n lngA = db.OpenRecordset(\"SELECT @@IDENTITY€).Fields(0)\r\n For intB = 1 To 5\r\n db.Execute \"INSERT INTO tblB(BWert, AID) VALUES(€Wert€ & intB & \"€, \" & lngA & \")€, _\r\n dbFailOnError\r\n lngB = db.OpenRecordset(\"SELECT @@IDENTITY€).Fields(0)\r\n For intC = 1 To 5\r\n db.Execute \"INSERT INTO tblC(CWert, BID) VALUES(€Wert€ & intC & \"€, \" _\r\n & lngB & \")€, dbFailOnError\r\n Next intC\r\n Next intB\r\nNext intA\r\nEnd Sub<\/pre>\nWenn Sie die folgenden Beispiele ausprobieren oder eigene Zugriffe auf die Elemente des TreeView-Steuerelements programmieren, werden zweifelsohne Fehler auftreten. Dies führt dazu, dass weitere Aufrufe nicht mehr funktionieren, wenn Sie nicht das Formular schließen und erneut öffnen. Woran liegt das Access speichert Variablen nur so lange, bis ein Fehler auftritt. Access 2007-Entwickler können die TempVars<\/b>-Auflistung verwenden, um Variablen darin zu speichern, die auch beim Auftreten von Fehlern nicht ihren Wert verlieren. Alle anderen sollten eine entsprechende Fehlerbehandlung einbauen, die unbehandelte Fehler ausschließt – behandelte Fehler löschen keine Variableninhalte. Wenn Sie zum Experimentieren oder in der Anfangsphase eines Projekts auf eine Fehlerbehandlung verzichten wollen, können Sie sich anderweitig behelfen. Vom Löschen der Variablen ist vor allem objTreeView <\/b>betroffen, das nur einmal beim Laden des Formulars mit einem Verweis auf ctlTreeView.Object <\/b>bestückt wird. Wenn Sie dauerhaft über diese Variable auf ctlTreeView.Object <\/b>zugreifen möchten, schreiben Sie einfach folgende Zeilen in den Kopf des Klassenmoduls:<\/p>\nDim WithEvents m_TreeView As MSComctlLib.TreeView\r\nPrivate Function objTreeView() As\r\n MSComctlLib.TreeView\r\n If m_TreeView Is Nothing Then\r\n Set m_TreeView = Me.ctlTreeView.Object\r\n End If\r\n Set objTreeView = m_TreeView\r\nEnd Function<\/pre>\nStatt einer Objektvariablen namens objTreeView <\/b>haben Sie es nun mit einer gleichnamigen Funktion zu tun. Der eigentliche Verweis wird in der Objektvariablen m_TreeView <\/b>gespeichert. Über die Funktion objTreeView <\/b>können Sie im übrigen Code genau so auf ctlTreeView.Object <\/b>zugreifen wie über die zuvor definierte Variable objTreeView<\/b>. Die Funktion prüft, ob m_TreeView <\/b>noch einen Wert enthält, was normalerweise der Fall ist, oder ob sie leer ist – dies ist in der Regel auf einen vorherigen unbehandelten Fehler zurückzuführen – und füllt sie erneut mit einem Verweis auf ctlTreeView.Object<\/b>.<\/p>\n
Noch ein Hinweis: Wenn Sie diese Variante verwenden, müssen Sie natürlich die folgende Zeile aus dem Form_Load<\/b>-Ereignis des Formulars entfernen:<\/p>\nSet objTreeView = Me!ctlTreeView.Object\r\nPrivate Sub cmdNachOben_Click()\r\n If objTreeView.SelectedItem.Index > 1 Then\r\n objTreeView.SelectedItem = objTreeView.Nodes.Item(objTreeView.SelectedItem.Index - 1)\r\n Else\r\n objTreeView.SelectedItem = objTreeView.Nodes.Item(objTreeView.Nodes.Count)\r\n End If\r\n End Sub\r\nPrivate Sub cmdNachUnten_Click()\r\n If objTreeView.SelectedItem.Index < objTreeView.Nodes.Count Then\r\n objTreeView.SelectedItem = objTreeView.Nodes.Item(objTreeView.SelectedItem.Index + 1)\r\n Else\r\n objTreeView.SelectedItem = objTreeView.Nodes.Item(1)\r\n End If\r\n End Sub<\/pre>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_05\/TreeViewImGriff-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Datenmodell für das Füllen des TreeView-Steuerelements<\/span><\/b><\/p>\nDas Formular frmTreeView <\/b>enthält ein Steuerelement namens ctlTreeView<\/b>, dessen Einstellungen Sie zunächst nicht anpassen. Der Code zum Füllen und für den Zugriff auf das TreeView-Steuerelement landet im Klassenmodul des Formulars frmTreeView<\/b>, das Sie durch die Auswahl des Eintrags [Ereignisprozedur] <\/b>für die Eigenschaft Beim Laden <\/b>des Formulars und anschließendes Anklicken der Schaltfläche mit den drei Punkten anlegen. Dort finden Sie gleich eine leere Ereignisprozedur namens Form_Load<\/b>, die Sie aber noch nicht bestücken. Zuerst fügen Sie in den Kopf des Moduls die folgende Deklaration ein, die das Schreiben des Beispielcodes durch die Bereitstellung von IntelliSense vereinfacht:<\/p>\nDim WithEvents objTreeView As MSComctlLib.TreeView<\/pre>\nDann vervollständigen Sie die Ereignisprozedur so, dass diese die erste Ebene des TreeView-Steuerelements mit den Datensätzen aus Tabelle tblA <\/b>füllt (s. Listing 2). Während des Füllens ruft die Routine gleich die Routine FillNodeA <\/b>und diese wiederum FillNodeB <\/b>auf, um die Datensätze der Tabellen tblB <\/b>und tblC <\/b>ebenfalls zum TreeView hinzuzufügen. Dieses sieht nach dieser Behandlung wie in Bild 2 aus.<\/p>\n
Private Sub Form_Load()\r\n Dim rstA As DAO.Recordset\r\n Dim objNode As MSComctlLib.Node\r\n ...\r\n Set objTreeView = Me!ctlTreeView.Object\r\n Set rstA = db.OpenRecordset(\"SELECT * FROM tblA€, dbOpenDynaset)\r\n objTreeView.LineStyle = tvwRootLines\r\n Do While Not rstA.EOF\r\n Set objNode = objTreeView.Nodes.Add(, , \"A€ & rstA!AID, rstA!AWert)\r\n FillNodeA objNode, rstA!AID\r\n rstA.MoveNext\r\n Loop\r\n ...\r\n End Sub\r\nPrivate Sub FillNodeA(objNode As MSComctlLib.Node, lngIDA As Long)\r\n Dim rstB As DAO.Recordset\r\n ...\r\n Set rstB = db.OpenRecordset(\"SELECT * FROM tblB WHERE AID = \" & lngIDA, dbOpenDynaset)\r\n Do While Not rstB.EOF\r\n Set objNode = objTreeView.Nodes.Add(\"A€ & lngIDA, tvwChild, \"B€ & rstB!BID, rstB!BWert)\r\n FillNodeB objNode, rstB!BID\r\n rstB.MoveNext\r\n Loop\r\n ...\r\n End Sub\r\nPrivate Sub FillNodeB(objNode As MSComctlLib.Node, lngIDB As Long)\r\n Dim rstC As DAO.Recordset\r\n ...\r\n Set rstC = db.OpenRecordset(\"SELECT * FROM tblC WHERE BID = \" & lngIDB, dbOpenDynaset)\r\n Do While Not rstC.EOF\r\n Set objNode = objTreeView.Nodes.Add(\"B€ & lngIDB, tvwChild, \"C€ & rstC!CID, rstC!CWert)\r\n rstC.MoveNext\r\n Loop\r\n ...\r\n End Sub<\/pre>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_05\/TreeViewImGriff-web-images\/pic002_opt.jpeg\")
<\/p>\n
Bild 2: Das mit den Beispieldaten gefüllte TreeView-Steuerelement<\/span><\/b><\/p>\n<\/p>\n
TreeView-Elemente referenzieren<\/b><\/p>\n
Die Elemente heißen nun in der ersten Ebene A1<\/b>, A2<\/b>, A3 <\/b>…, in der zweiten Ebene B1<\/b>, B2<\/b>, B3<\/b>… und in der dritten Ebene C1<\/b>, C2<\/b>, C3 <\/b>und so weiter. Wenn Sie sich noch ein wenig aufwärmen möchten, legen Sie noch eine Tabelle, Beispieldaten und die FillNode…<\/b>-Prozedur für eine oder mehrere weitere Ebenen an.<\/p>\n
Schauen wir uns an, welche Möglichkeiten es gibt, die einzelnen Node<\/b>-Elemente zu referenzieren. Holen wir uns zunächst einen gültigen Verweis auf das TreeView-Steuerelement selbst und testen dieses. Das erledigt die Abfrage der Name<\/b>-Eigenschaft dieses Steuerelements im Direktfenster (siehe Bild 3):<\/p>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_05\/TreeViewImGriff-web-images\/pic003_opt.jpeg\")
<\/p>\n
Bild 3: Referenztest im Direktbereich<\/span><\/b><\/p>\nDebug.Print Forms!frmTreeView!ctlTreeView.Name<\/pre>\nDa wir im Folgenden relativ häufig direkt auf das TreeView-Steuerelement zugreifen möchten und dabei auch IntelliSense nutzen wollen, bauen wir eine kleine Funktion, die uns einen Verweis auf das TreeView-Steuerelement liefert. Diese sieht so aus:<\/p>\n
Dim m_TreeView As MSComctlLib.TreeView\r\nPublic Function GetTreeView() As\r\n MSComctlLib.TreeView\r\n If m_TreeView Is Nothing Then\r\n Set m_TreeView =\r\n Forms!frmTreeView!ctlTreeView.Object\r\n End If\r\n Set GetTreeView = m_TreeView\r\nEnd Function<\/pre>\nDie Funktion speichert den Verweis in einer globalen Variablen namens m_TreeView <\/b>und liefert deren Inhalt als Funktionswert zurück, wenn die Variable bereits gefüllt ist. Wenn nicht, erledigt sie dies innerhalb der If…Then<\/b>-Bedingung.<\/p>\n
Im Code Ihrer Anwendung sollte das Steuerelement jedoch auf die im Klassenmodul des Formulars deklarierte Variable etwa namens objTreeView <\/b>zugreifen.<\/p>\n
Für die folgenden Beispiele gilt analog: Ersetzen Sie GetTreeView <\/b>durch objTreeView<\/b>, um innerhalb des Klassenformulars auf das TreeView<\/b>-Objekt zuzugreifen.<\/p>\n
GetTreeView <\/b>liefert nun immer einen Verweis auf das TreeView-Objekt – vorausgesetzt, das Formular ist in der Formularansicht geöffnet.<\/p>\n
Im Direktfenster, wo einige unserer Tests stattfinden werden, steht damit auch das gewünschte IntelliSense zur Verfügung (siehe Bild 4).<\/p>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_05\/TreeViewImGriff-web-images\/pic004_opt.jpeg\")
<\/p>\n
Bild 4: IntelliSense im Direktfenster<\/span><\/b><\/p>\nDie Gesamtzahl der im TreeView-Objekt enthaltenen Node<\/b>-Elemente liefert dieser Ausdruck:<\/p>\nGetTreeView.Nodes.Count<\/pre>\nElemente durchlaufen<\/b><\/p>\n
Informationen zu allen Nodes erhalten Sie über eine herkömmliche For…Next<\/b>-Schleife und die Nodes<\/b>-Auflistung. Die folgenden Zeilen liefern alle Key<\/b>-Werte (also A1<\/b>, A2 <\/b>und so weiter):<\/p>\nDim i As Integer\r\nFor i = 1 To GetTreeView.Nodes.Count\r\n Debug.Print GetTreeView.Nodes(i).Key\r\nNext i<\/pre>\nDies gelingt auch über eine For Each<\/b>-Schleife:<\/p>\nDim objNode As MSComctlLib.Node\r\nFor Each objNode In GetTreeView.Nodes\r\n Debug.Print objNode.Key\r\nNext objNode<\/pre>\nDie Key<\/b>-Eigenschaft liefert den Key<\/b>-Wert, die Text<\/b>-Eigenschaft den angezeigten Text eines Nodes – das sind die beiden Werte, die wir in der Routine Form_Load <\/b>angelegt haben. Wenn Sie den Key<\/b>-Wert eines Nodes kennen, können Sie diesen direkt referenzieren, um etwa seinen Text zu ermitteln:<\/p>\nDebug.Print GetTreeView.Nodes(\"A5\").Text\r\nWert A5<\/pre>\nDas geht auch noch kürzer, weil Text <\/b>die Standardeigenschaft des Node<\/b>-Objekts ist:<\/p>\nDebug.Print GetTreeView.Nodes(\"A5\")\r\nWert A5<\/pre>\nAktuelles Element referenzieren<\/b><\/p>\n
Wenn Sie etwas mit dem aktuell ausgewählten TreeView-Element erledigen möchten, ist das ganz einfach. Die SelectedItem<\/b>-Eigenschaft des TreeView-Objekts liefert das gewünschte Element, auf das Sie auch direkt zugreifen können:<\/p>\nDebug.Print GetTreeView.SelectedItem\r\nWert A5<\/pre>\nEin Element zum aktuellen Element machen<\/b><\/p>\n
Wenn Sie den Key <\/b>eines Elements kennen und dieses markieren möchten, gelingt dies ebenfalls mit der SelectedItem<\/b>-Eigenschaft:<\/p>\nGetTreeView.SelectedItem =\r\nGetTreeView.Nodes(\"A2\")<\/pre>\nDas Zuweisen des Key<\/b>-Werts allein reicht nicht aus – ganz im Gegenteil: Sie weisen der Text<\/b>-Eigenschaft des ausgewählten Elements den angegebenen Wert zu.<\/p>\n
Folgendes würde zur änderung des Beispiel-TreeViews aus Bild 5 führen:<\/p>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_05\/TreeViewImGriff-web-images\/pic005_opt.jpeg\")
<\/p>\n
Bild 5: änderung des Texts eines TreeView-Elements<\/span><\/b><\/p>\nGetTreeView.SelectedItem = \"A2\"<\/pre>\nSie können auch über die Ordinalzahl auf Elemente zugreifen.<\/p>\n
Den Text des ersten Elements im TreeView erhalten Sie etwa so:<\/p>\n
Debug.Print GetTreeView.Nodes(2)\r\nWert B1<\/pre>\nWenn Sie diesen Ausdruck der SelectedItem<\/b>-Eigenschaft zuweisen, wird das entsprechende Element markiert:<\/p>\nGetTreeView.SelectedItem = GetTreeView.Nodes(2)<\/pre>\nDie folgende For…Next<\/b>-Schleife durchläuft alle im TreeView-Objekt enthaltenen Elemente und öffnet dabei alle Zweige, die bis dato noch nicht sichtbar waren:<\/p>\nDim i As Integer\r\nFor i = 1 To GetTreeView.Nodes.Count\r\n GetTreeView.SelectedItem =\r\n GetTreeView.Nodes(i)\r\nNext i<\/pre>\nElement in Objektvariable speichern<\/b><\/p>\n
Für diverse Zwecke kann es sinnvoll sein, einen Verweis auf ein Element in einer Variablen zu speichern. Alle bisherigen Beispiele, die der Eigenschaft SelectedItem <\/b>ein Element zuwiesen, können Sie auch so umbauen, dass das Ergebnis anschließend über eine Objektvariable direkt referenziert werden kann. Die folgenden drei Zeilen deklarieren eine entsprechende Variable, weisen dieser ein Element zu und machen dieses dann zum aktuell markierten Element:<\/p>\nDim objNode As MSComctlLib.Node\r\nSet objNode = GetTreeView.Nodes(10)\r\nGetTreeView.SelectedItem = objNode<\/pre>\nNodes entfernen<\/b><\/p>\n
Alle Elemente entfernen Sie ganz einfach mit der Clear<\/b>-Methode der Nodes<\/b>-Auflistung des TreeView-Objekts:<\/p>\nGetTreeView.Nodes.Clear<\/pre>\nDas Löschen eines einzelnen Nodes erledigt die Remove<\/b>-Methode der Nodes<\/b>-Auflistung. Diese Methode erwartet den Key<\/b>-Wert eines Elements als Parameter. Wenn Sie diesen kennen, funktioniert das Löschen so:<\/p>\nGetTreeView.Nodes.Remove \"A2\"<\/pre>\nWenn Sie das Element über die Ordinalzahl löschen möchten, müssen Sie zunächst den Key <\/b>ermitteln und diesen dann der Remove<\/b>-Methode zuweisen:<\/p>\nGetTreeView.Nodes.Remove\r\nGetTreeView.Nodes.Item(1).Key<\/pre>\nVon einem Element zum nächsten<\/b><\/p>\n
Weiter oben haben Sie bereits erfahren, wie Sie ein Element anhand der Ordinalzahl oder des Keys referenzieren können – zum Beispiel so:<\/p>\n
GetTreeView.Nodes(1)\r\nGetTreeView.Nodes(\"A1\")<\/pre>\nWie aber gelangen Sie nun beispielsweise zum nächsten oder vorherigen Element Zum nächsten unterhalb befindlichen Element – unabhängig von der Ebene – gelangen Sie durch einfaches Hochzählen der Ordinalzahl. Zum Experimentieren statten wir das TreeView-Formular nun zunächst mit zwei Schaltflächen zum Auf- und Abbewegen aus (siehe Bild 6).<\/p>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_05\/TreeViewImGriff-web-images\/pic006_opt.jpeg\")
<\/p>\n
Bild 6: Mit diesen Schaltflächen können Sie das markierte Element nach oben und unten verschieben.<\/span><\/b><\/p>\nDen nötigen Code für die beiden Schaltflächen cmdNachOben <\/b>und cmdNachUnten <\/b>finden Sie in Listing 3. Die beiden Routinen kontrollieren, ob gerade das oberste beziehungsweise unterste Element markiert ist, und simulieren dann einen Zyklus.<\/p>\n
Von einem Element zum nächsten Element der gleichen Ebene<\/b><\/p>\n
Wenn Sie die Markierung nicht ebenenübergreifend bewegen möchten, geht es noch einfacher, und zwar mit den Eigenschaften Previous <\/b>und Next<\/b>. Mit dieser Anweisung machen Sie das nächste Element der gleichen Ebene zum markierten Element:<\/p>\nobjTreeView.SelectedItem =\r\nobjTreeView.SelectedItem.Next<\/pre>\nIn die andere Richtung geht es analog mit der Previous<\/b>-Eigenschaft.<\/p>\n
Wenn Sie einen ähnlichen Effekt wie im vorherigen Beispiel erreichen möchten, mit dem Unterschied, dass nur die Elemente der aktuellen Ebene zyklisch durchlaufen werden, müssen Sie ein wenig tricksen: Mit den Methoden des TreeView-Objekts allein schaffen Sie dies nicht, zumindest nicht auf der obersten Ebene.<\/p>\n
Der Grund ist, dass keine Eigenschaft die Anzahl der Elemente der obersten Ebene zurückliefert. Next <\/b>und Previous <\/b>liefern immer einen Verweis auf das jeweils nächste oder vorherige Element, und wenn es dieses nicht gibt, ist der Wert Nothing<\/b>. Dies müssen Sie abfragen und dann entsprechend wieder zum ersten oder letzten Element springen – je nachdem, ob Sie gerade am unteren oder oberen Ende angekommen sind.<\/p>\n
Wie aber gelangen wir zum ersten oder letzten Element einer Ebene Hierzu verwenden Sie zwei bisher noch nicht zum Einsatz gekommene Eigenschaften: FirstSibling <\/b>und LastSibling<\/b>. Die folgenden Zeilen prüfen, ob das nächste Element vorhanden ist, und springt entweder zu diesem oder es macht das erste Element zum aktuellen Element:<\/p>\nIf Not objTreeView.SelectedItem.Next Is Nothing Then\r\n objTreeView.SelectedItem =\r\n objTreeView.SelectedItem.Next\r\nElse\r\n objTreeView.SelectedItem =\r\n objTreeView.SelectedItem.FirstSibling\r\nEnd If<\/pre>\nBei Elementen, die nicht zur ersten Ebene gehören, können Sie eine alternative Variante verwenden – mehr dazu weiter unten.<\/p>\n
Child-Elemente referenzieren<\/b><\/p>\n
Wie aber greifen Sie beispielsweise auf alle Child<\/b>-Elemente eines Elements zu Beginnen wir mit der Anzahl der Child<\/b>-Elemente – hier des ersten Elements:<\/p>\n GetTreeView.Nodes.Item(1).Children\r\n5<\/pre>\nAuf das erste Kind greifen Sie mit der Child<\/b>-Eigenschaft zu:<\/p>\n GetTreeView.Nodes.Item(1).Child\r\nWert B1<\/pre>\nWenn Sie den ersten Enkel referenzieren möchten, also das erste Kind des ersten Kindes, verwenden Sie einfach zweimal die Child<\/b>-Eigenschaft:<\/p>\n GetTreeView.Nodes.Item(1).Child.Child\r\nWert C1<\/pre>\nAnsprechen von Elementen auf gleicher Ebene wie ein anderes Element<\/b><\/p>\n
Die Eigenschaften FirstSibling<\/b>, Previous<\/b>, Next <\/b>und LastSibling <\/b>erlauben es, die entsprechenden Elemente relativ zum angegebenen Element zu referenzieren. Sie sind die Pendants zu den Methoden MoveFirst<\/b>, MovePrevious<\/b>, MoveNext <\/b>und MoveLast <\/b>des Recordset-Objekts.<\/p>\n
Previous <\/b>und Next <\/b>sollten Sie, wie schon in obigen Beispielen angedeutet, vor der Verwendung auf Is Nothing <\/b>prüfen. Sonst kann es passieren, dass Sie etwa der Eigenschaft SelectedItem <\/b>den Wert Nothing <\/b>zuordnen und kein Element mehr markiert ist.<\/p>\n
Dies würde nach sich ziehen, dass ein Zugriff auf SelectedItem <\/b>Fehler 91<\/b>, Objektvariable oder With-Blockvariable nicht festgelegt <\/b>heraufbeschwört.<\/p>\n
Übergeordnetes Element referenzieren<\/b><\/p>\n
Das Parent<\/b>-Element eines TreeView-Elements liefert einen Verweis auf das dem angegebenen Element übergeordnete Element.<\/p>\n
Mit der Parent<\/b>-Eigenschaft können Sie beispielsweise den Key<\/b>-Pfad eines Elements ermitteln, also eine Aneinanderreihung aller Keys eines Elements.<\/p>\n
Die folgenden Zeilen liefern, untergebracht in der NodeClick<\/b>-Ereignisprozedur des TreeView-Objekts, etwa einen Ausdruck wie A2\\B6\\C30<\/b>:<\/p>\nDim strPath As String\r\nDim objNode As MSComctlLib.Node\r\nSet objNode = Node\r\nstrPath = objNode.Key\r\nDo While Not objNode.Parent Is Nothing\r\n Set objNode = objNode.Parent\r\n strPath = objNode.Key & \"\\\" & strPath\r\nLoop\r\nDebug.Print strPath<\/pre>\nErmitteln, ob ein Element markiert ist<\/b><\/p>\n
Wenn Sie ganz schnell wissen möchten, ob ein Element markiert ist, verwenden Sie dazu die Selected<\/b>-Eigenschaft des gewünschten Elements. Ein Beispiel für den Direktbereich:<\/p>\nDebug.Print GetTreeView.Nodes.Item(1).Selected\r\nFalsch<\/pre>\nZusammenfassung und Ausblick<\/b><\/p>\n
Mit diesem Beitrag haben Sie ausreichend Werkzeug gesammelt, um sich von vorne nach hinten und zurück durch die Elemente eines TreeView-Elements zu bewegen.<\/p>\n
Damit sollte es auch einfach möglich sein, von externen Elementen aus wie etwa einem Unterformular, das Informationen zum aktuell markierten Element enthält, auf dieses Element zuzugreifen und beispielsweise den Nodetext anzupassen, wenn der Benutzer den Inhalt des entsprechenden Felds der zugrunde liegenden Daten im Unterformular anpasst.<\/p>\n
Wichtig ist in diesem Zusammenhang, dass Sie sich ein vernünftiges System für die Benennung der Keys der einzelnen Elemente überlegen.<\/p>\n
In der Praxis hat sich die Kombination aus einem Buchstaben, der die Tabelle repräsentiert, aus der die Daten stammen, und dem Wert des Primärschlüsselfelds als geeignet erwiesen.<\/p>\n
Manchmal kann es aber auch sinnvoll sein, den Key vom Root-Element bis zum untersten Child-Element als Kombination der Keys aller Elemente bis zur entsprechenden Ebene zusammenzustellen – zum Beispiel in der Form A1_B34_C12. So kann man gleich vom aktuellen Element auf die Hierarchie schließen.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
TreeViewImGriff.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"Das TreeView-Steuerelement ist der Platzhirsch unter den Steuerelementen zur Anzeige hierarchischer Daten. Wie man es füllt, haben wir in diversen Beiträgen gezeigt – aber wie ändert man darin enthaltene Elemente später, und wie greift man überhaupt auf diese zu Dieser Beitrag beleuchtet, wie Sie beliebige Elemente referenzieren, löschen, durchlaufen, ersetzen und ihre Eigenschaften anpassen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662009,66052009,44000023],"tags":[],"class_list":["post-55000683","post","type-post","status-publish","format-standard","hentry","category-662009","category-66052009","category-Mit_Formularen_arbeiten"],"yoast_head":"\n
TreeView-Elemente im Griff - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"TreeView-Elemente im Griff\" \/>\n<meta property=\"og:description\" content=\"Das TreeView-Steuerelement ist der Platzhirsch unter den Steuerelementen zur Anzeige hierarchischer Daten. Wie man es füllt, haben wir in diversen Beiträgen gezeigt - aber wie ändert man darin enthaltene Elemente später, und wie greift man überhaupt auf diese zu Dieser Beitrag beleuchtet, wie Sie beliebige Elemente referenzieren, löschen, durchlaufen, ersetzen und ihre Eigenschaften anpassen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T22:17:34+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg09.met.vgwort.de\/na\/00d6a1b7fbfb4427a9e32095bb8dc118\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"15\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"TreeView-Elemente im Griff\",\"datePublished\":\"2020-05-22T22:17:34+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/\"},\"wordCount\":2413,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/00d6a1b7fbfb4427a9e32095bb8dc118\",\"articleSection\":[\"2009\",\"5\\\/2009\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/\",\"name\":\"TreeView-Elemente im Griff - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/00d6a1b7fbfb4427a9e32095bb8dc118\",\"datePublished\":\"2020-05-22T22:17:34+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/00d6a1b7fbfb4427a9e32095bb8dc118\",\"contentUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/00d6a1b7fbfb4427a9e32095bb8dc118\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/TreeViewElemente_im_Griff\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"TreeView-Elemente im Griff\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"TreeView-Elemente im Griff - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/","og_locale":"de_DE","og_type":"article","og_title":"TreeView-Elemente im Griff","og_description":"Das TreeView-Steuerelement ist der Platzhirsch unter den Steuerelementen zur Anzeige hierarchischer Daten. Wie man es füllt, haben wir in diversen Beiträgen gezeigt - aber wie ändert man darin enthaltene Elemente später, und wie greift man überhaupt auf diese zu Dieser Beitrag beleuchtet, wie Sie beliebige Elemente referenzieren, löschen, durchlaufen, ersetzen und ihre Eigenschaften anpassen.","og_url":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T22:17:34+00:00","og_image":[{"url":"http:\/\/vg09.met.vgwort.de\/na\/00d6a1b7fbfb4427a9e32095bb8dc118","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"15\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"TreeView-Elemente im Griff","datePublished":"2020-05-22T22:17:34+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/"},"wordCount":2413,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/00d6a1b7fbfb4427a9e32095bb8dc118","articleSection":["2009","5\/2009","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/","url":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/","name":"TreeView-Elemente im Griff - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/00d6a1b7fbfb4427a9e32095bb8dc118","datePublished":"2020-05-22T22:17:34+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#primaryimage","url":"http:\/\/vg09.met.vgwort.de\/na\/00d6a1b7fbfb4427a9e32095bb8dc118","contentUrl":"http:\/\/vg09.met.vgwort.de\/na\/00d6a1b7fbfb4427a9e32095bb8dc118"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/TreeViewElemente_im_Griff\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"TreeView-Elemente im Griff"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000683","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000683"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000683\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000683"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000683"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000683"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}