<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Neben den herkömmlichen 1:1-, 1:n- und m:n-Beziehungen gibt es noch eine weitere Beziehungsart, die von Access nicht unbedingt gefördert und daher größtenteils manuell nachzubilden ist: die rekursive Beziehung. Mit einer rekursiven Beziehung können Sie Verknüpfungen zwischen den Datensätzen einer einzigen Tabelle nachbilden. Dies ist z. B. gefragt, wenn Sie die Hierarchie der Mitarbeiter einer Firma nachbilden möchten. Im vorliegenden Beitrag erfahren Sie, wie eine rekursive Beziehung aufgebaut wird, was Sie bei der Datenpflege beachten müssen und wie Sie die gewünschten Daten anwendergerecht anzeigen können.<\/b><\/p>\n
Es gibt eine Menge von Beispielen für rekursive Beziehungen – die bereits genannte Mitarbeiterhierarchie ist lediglich ein Paradebeispiel. Das Gleiche gilt für die Verwaltung von Stücklisten, für Familienstammbäume, Unternehmensstrukturen usw. Auch die Anzeige der Dateistruktur im Windows Explorer ist – im weitesten Sinne – ein Beispiel für eine rekursive Beziehung.<\/p>\n
Als Beispiel soll die Beziehung zwischen Vorgesetzten und untergeordneten Mitarbeitern eines Unternehmens beschrieben werden. Dabei ist eigentlich nur eine kleine Regel zu beachten: Jeder Mitarbeiter darf nur einen Vorgesetzten haben. Dies ist schließlich auch leicht zu realisieren, indem dieser für jeden Datensatz per Nachschlagefeld ausgewählt wird.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Entwurfsansicht der Tabelle tblMitarbeiter<\/span><\/b><\/p>\n Um den Aufbau einer rekursiven Beziehung anhand eines Beispiels zu erläutern, bedarf es lediglich einer einzigen Beispieltabelle. Die Tabelle beinhaltet nur vier Felder: ein Primärindexfeld namens MitarbeiterNr, zwei Felder zur Umschreibung des Namens sowie ein Verknüpfungsfeld zur Auswahl des Vorgesetzten des Mitarbeiters (siehe Bild 1).<\/p>\n Um einige Daten in die Tabelle einzugeben, müssen Sie lediglich noch das Verknüpfungsfeld Vorgesetzter anpassen. Es soll zu Beispielzwecken als Nachschlagefeld ausgeführt werden.<\/p>\n Wenn Sie nun den Assistenten für die Erstellung des Nachschlagefeldes verwenden möchten, stellt sich schnell Ernüchterung ein.<\/p>\n Im zweiten Schritt des Dialoges erscheint nämlich die Meldung aus Bild 2.<\/p>\n <\/b><\/p>\n Bild 2: Die Erstellung eines Nachschlagefeldes ist nicht möglich.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Datensatzherkunft des Nachschlagefeldes<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 4: Auswahl eines Vorgesetzten<\/span><\/b><\/p>\n Nachdem Access auf diese Weise zu erkennen gegeben hat, dass es die Erstellung rekursiver Beziehungen nicht unterstützt, müssen Sie das Nachschlagefeld von Hand erstellen. Gehen Sie dazu folgendermaßen vor:<\/p>\n Anschließend können Sie die Tabelle in der Datenblattansicht anzeigen. Während Sie einige Daten eingeben, werden Sie feststellen, dass für das Feld Vorgesetzter derzeit noch keine Daten ausgewählt werden können. Erst nachdem Sie die Tabelle geschlossen und wieder geöffnet haben, erscheinen die bisher eingegebenen Einträge zur Auswahl im Kombinationsfeld (siehe Bild 4).<\/p>\n Es gibt natürlich auch noch einen komplizierten Weg, um eine Beziehung zwischen Vorgesetztem und unterstellten Mitarbeitern realisieren zu können. Dazu verwenden Sie eine m:n-Be-ziehung, mit der Sie zu jedem Vorgesetztem beliebig viele Unterstellte auswählen können. Dadurch können aber Inkonsistenzen auftreten, da Sie einen Mitarbeiter als Unterstellten mehrerer Vorgesetzter wählen können.<\/p>\n Das soll nicht der Fall sein, denn jeder Mitarbeiter darf nur einem Vorgesetzten zugeordnet werden. Daher ist die rekursive Beziehung der konsequentere Ansatz.<\/p>\n In Bild 4 findet sich nun ein kleiner Schönheitsfehler: Das Kombinationsfeld zur Auswahl des Vorgesetzten zeigt auch den Mitarbeiter an, für den der Vorgesetzte ausgewählt werden soll. Neben diesem Effekt soll außerdem verhindert werden, dass unterstellte Mitarbeiter als Vorgesetzte zur Auswahl stehen.<\/p>\n Die Möglichkeiten, dies im Nachschlagefeld einer Tabelle zu realisieren, sind aber begrenzt. Statt-dessen werden Sie die anzuzeigenden Mitarbeiter in den entsprechenden Formularen einschränken.<\/p>\n In der Hierarchie von Unternehmen gibt es immer eine höchste Ebene, deren Mitarbeiter keinen Vorgesetzten haben. Man kann auf unterschiedliche Weise keinen Vorgesetzten auswählen. In der Datenblattansicht der Tabelle können Sie beispielsweise einfach keinen Wert auswählen. Anwenderfreundlicher wäre allerdings, wenn Sie direkt einen Eintrag mit dem Text <Kein Vorgesetzter> o. ä. bereithielten.<\/p>\n Dazu gibt es prinzipiell zwei Möglichkeiten:<\/p>\n Entweder Sie fügen der Mitarbeitertabelle selbst einen solchen Eintrag hinzu. Dies würde allerdings nicht besonders sinnvoll sein, da die Tabelle ja lediglich Mitarbeiter enthalten soll.<\/p>\n Daher erweitern Sie einfach die Datensatzherkunft des Nachschlagefeldes bzw. später im Formular die Datensatzherkunft des Kombinationsfeldes zur Auswahl des Vorgesetzten per Union-Abfrage um einen entsprechenden Eintrag.<\/p>\n Zur komfortablen Verwaltung der Vorgesetzten und Mitarbeiter benötigen Sie ein entsprechendes Formular.<\/p>\n Anlegen des Formulars<\/b><\/p>\n Legen Sie also ein neues Formular namens frmMitarbeiter an und öffnen Sie es zunächst in der Entwurfsansicht. Gehen Sie dann folgendermaßen vor:<\/p>\n Der Wert des Feldes MitarbeiterID ist ein Autowert und kann ohnehin nicht verändert werden. Daher sperren Sie das Feld direkt.<\/p>\n Außerdem sollten Sie – aus rein optischen Gründen – das Feld den Bezeichnungsfeldern anpassen, damit der Anwender gar nicht auf die Idee kommt, den Wert des Feldes MitarbeiterID manuell zu verändern.<\/p>\n <\/b><\/p>\n Bild 5: Das Formular frmMitarbeiter in der Formularansicht<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Datensatzherkunft des Kombinationsfeldes cboVorgesetzte<\/span><\/b><\/p>\n Dies geht am schnellsten, indem Sie eines der Bezeichnungsfelder markieren, die Schaltfläche Format übertragen in der Symbolleiste anklicken und anschließend auf das Feld MitarbeiterID klicken.<\/p>\n Wenn Sie die genannten Schritte durchgeführt haben, sollte das Ergebnis wie in Bild 5 aussehen.<\/p>\n Anpassen des Kombinationsfeldes zur Eingabe von Vorgesetzten<\/b><\/p>\n Der nächste Schritt ist die Anpassung des Kombinationsfeldes zur Anzeige der möglichen Vorgesetzten. Dabei sollen drei Ziele erreicht werden:<\/p>\n <\/p>\n Das Kombinationsfeld zeigt ausnahmslos alle Mitarbeiter an, die in der Tabelle tblMitarbeiter enthalten sind.<\/p>\n Zumindest der Mitarbeiter, für den ein Vorgesetzter ausgewählt werden soll, ist aus dem Kombinationsfeld zu entfernen. Gehen Sie dazu folgendermaßen vor:<\/p>\n Die neue Variante der Abfrage enthält nun ein Kriterium, das nur noch diejenigen Datensätze anzeigt, deren MitarbeiterID nicht mit der MitarbeiterID des aktuell im Formular angezeigten Mitarbeiters übereinstimmt.<\/p>\n Wenn Sie den Abfrageentwurf geschlossen haben und in die Formularansicht des Formulars wechseln, können Sie bereits alle Mitarbeiter außer dem aktuell angezeigten mit dem Kombinationsfeld auswählen.<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 7: Die Union-Abfrage im Datenbankfenster<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 8: Auswahl eines Mitarbeiters als Vorgesetzten<\/span><\/b><\/p>\n Unter Umständen soll für einen Mitarbeiter kein Vorgesetzter ausgewählt werden – z. B. weil der Mitarbeiter aus der höchsten Ebene der Unternehmenshierarchie stammt.<\/p>\n Für diesen Fall soll das Kombinationsfeld zum Anzeigen eines solchen Eintrags vorbereitet werden. Dazu müssen Sie lediglich die Datensatzherkunft des Kombinationsfeldes um einen Eintrag erweitern. Da dieser – wie bereits erwähnt – nicht in der Tabelle tblMitarbeiter enthalten ist, müssen Sie ihn der Datensatzherkunft per Union-Abfrage hinzufügen.<\/p>\n Union-Abfragen werden in der Abfrage-Entwurfsansicht leider nicht unterstützt, sodass Sie die Erweiterung in der SQL-Ansicht vornehmen müssen.<\/p>\n öffnen Sie die Abfrage dazu erneut in der Entwurfsansicht und wechseln Sie dann in die SQL-Ansicht. Geben Sie dort den Ausdruck aus Quellcode 1 ein bzw. ergänzen Sie den bestehenden Teil um den Abschnitt, der mit dem SQL-Schlüsselwort Union beginnt.<\/p>\n Wenn Sie die Abfrage nun unter dem Namen qryMitarbeiter speichern, erscheint im Register Abfragen des Datenbankfensters eine Abfrage mit dem Symbol für eine Union-Abfrage (siehe Bild 7).<\/p>\n Zusätzlich zu den vorhandenen Einträgen wird nun noch ein Eintrag mit dem Text <Kein Vorgesetzter> zur Auswahl angeboten. Falls der Anwender diesen Eintrag auswählt, wird für das Feld Vorgesetzter des aktuellen Datensatzes des Formulars der Wert 0 gespeichert. Das Kombinationsfeld sieht in der Formularansicht nun aus wie in Bild 8.<\/p>\n Etwas komplizierter ist es, die Anzeige von Mitarbeitern zu unterbinden, die sich in der Hierarchie unterhalb des aktuell angezeigten Mitarbeiters befinden. Das Problem besteht darin, dass ja nicht nur Mitarbeiter der ersten Ebene unterhalb eines Vorgesetzten von der Anzeige im Kombinationsfeld ausgeschlossen werden sollen, sondern auch die Mitarbeiter in den Ebenen darunter. Dies lässt sich mit einer herkömmlichen Abfrage als Datenherkunft nicht mehr realisieren.<\/p>\n <\/b><\/p>\n Bild 9: Hierarchische Darstellung von Daten im Listenfeld<\/span><\/b><\/p>\n Andere Methoden, wie z. B. die Ermittlung der untergeordneten Mitarbeiter per VBA-Funktion, sind zwar möglich, aber nicht praktikabel. Die für die Ermittlung der entsprechenden Mitarbeiter benötigte Zeit würde mit steigender Mitarbeiterzahl erheblich anwachsen.<\/p>\n Prinzipiell haben Sie nun alle Voraussetzungen geschaffen, um die Hierarchie von Mitarbeitern nachzubilden. Das Wichtigste fehlt allerdings noch: ein Instrument, um die Hierarchie übersichtlich anzuzeigen.<\/p>\n Hierarchie per Einzug realisieren<\/b><\/p>\n In den folgenden Abschnitten lernen Sie eine Möglichkeit kennen, um die hierarchischen Daten mithilfe eines Listenfeldes übersichtlich anzuzeigen.<\/p>\n Dabei erreichen Sie die hierarchische Ansicht durch das Einrücken untergeordneter Einträge (siehe Bild 9).<\/p>\n Da das Listenfeld-Steuerelement diese Möglichkeit standardmäßig nicht bietet, müssen Sie ein wenig improvisieren.<\/p>\n Zur komfortableren Anzeige von hierarchischen Daten verwenden Sie am besten das Treeview-Steuerelement. Es wird im Beitrag „Das Treeview-Steuerelement“ der vorliegenden Ausgabe von „Access im Unternehmen“ vorgestellt. <\/p>\n Legen Sie zunächst ein neues Listenfeld in der Entwurfsansicht des Formulars an und ändern Sie den Wert der Eigenschaft Name in lstHierarchie.<\/p>\n Da die hierarchische Anzeige der Einträge durch das Einrücken der Listenelemente erreicht werden soll, muss den jeweiligen Einträgen jeweils ein entsprechend breiter Einzug hinzugefügt werden.<\/p>\n Dies können Sie am besten erreichen, indem Sie statt einer herkömmlichen Tabelle oder Abfrage eine Wertliste als Datensatzherkunft verwenden. Die Wertliste stellen Sie durch eine rekursive Funktion zusammen. In dieser Funktion weisen Sie auch den einzelnen Einträgen den jeweilig benötigten Einzug hinzu.<\/p>\n Damit das Listenfeld-Steuerlement überhaupt eine Feldliste als Datensatzherkunft akzeptiert, müssen Sie zunächst einmal die Eigenschaft Herkunftsart auf den Wert Wertliste einstellen.<\/p>\n Anschließend erstellen Sie eine Funktion, die rekursiv eine entsprechende Wertliste zusammenstellt. Legen Sie die Funktion in dem Klassenformular des Listenfeld-Steuerelements lstHierarchie an.<\/p>\n Rekursive Funktion<\/b><\/p>\n Sie finden die komplette Funktion in Quellcode 2. Die Funktion hat drei Parameter: Ebene, strHierarchie sowie intMitarbeiter. Zunächst ist nur der erste Parameter wichtig. Für ihn übergeben Sie beim ersten Funktionsaufruf den Wert 0 für die Hauptebene, die der obersten Hierarchieebene entspricht.<\/p>\n Quellcode 2<\/b><\/p>\n Die Funktion deklariert zunächst die benötigten Variablen. Anschließend weist sie der Variablen db die aktuelle Datenbank und der Variablen rst eine Datensatzgruppe.<\/p>\n Diese Datensatzgruppe beinhaltet alle Datensätze der Tabelle tblMitarbeiter, deren Vorgesetzter den Wert des übergabeparameters intMitarbeiter hat. Da dieser im ersten Aufruf noch keinen Wert hat, wird automatisch der Wert 0 angenommen. Dementsprechend enthält die Datensatzgruppe alle Datensätze, für die kein Vorgesetzter angegeben ist.<\/p>\n Hier finden Sie zunächst eine For…Next-Schleife, die in Abhängigkeit von der Ebene eine entsprechende Anzahl von Leerzeichen zu einer Zeichenkette zusammensetzt. Diese Zeichenfolge wird anschließend dem anzuzeigenden Mitarbeiternamen vorangestellt, damit dieser entsprechend seiner Ebene eingerückt wird.<\/p>\n Anschließend durchläuft die Funktion alle Da-tensätze der Datensatzgruppe rst in einer Do…While…Loop-Schleife.<\/p>\n In der Schleife finden Sie zunächst die folgende Anweisung:<\/p>\n Der im ersten Durchlauf noch leeren Zeichenfolge strHierarchie wird hier z. B. folgender Ausdruck angehängt:<\/p>\n Dabei entspricht die Zahl 1 dem Ausdruck rst!MitarbeiterID und der Name dem Ausdruck rst!Nachname & „, “ & rst!Vorname. Die Anführungszeichen werden durch den Ausdruck Chr(34) an die Zeichenkette angefügt.<\/p>\n <\/b><\/p>\n Bild 10: Setzen eines Haltepunktes für eine Funktion<\/span><\/b><\/p>\n Mit der nächsten Anweisung wird es dann rekursiv: Hier erfolgt der erste Selbstaufruf der Funktion lstHierarchieFuellen. Bei dem Aufruf werden diesmal auch alle Parameter verwendet: Der Parameter Ebene erhält als Wert die Summe aus der aktuellen Ebene und 1, für den Parameter strHierarchie wird die aktuelle Zeichenfolge und für den Parameter intMitarbeiter die MitarbeiterID des aktuellen Mitarbeiters übergeben.<\/p>\n In diesem Selbstaufruf sieht dann auch die verwendete Datensatzgruppe ein wenig anders aus: Da diesmal ein Wert für den übergabeparameter vorhanden ist – nämlich die MitarbeiterID des übergeordneten Mitarbeiters – ,enthält die Datensatzgruppe auch entsprechend nur Datensätze von Mitarbeitern, deren Vorgesetzter der Mitarbeiter mit der übergebenen MitarbeiterID ist.<\/p>\n Da der Wert für den übergabeparameter entsprechend nicht mehr 0 ist, werden den hinzugefügten Zeichenfolgen auch entsprechende Leerzeichen vorangestellt.<\/p>\n Wenn Sie den Durchlauf einer solchen Funktion einmal nachvollziehen möchten, verwenden Sie am besten die Debug-Funktion des VBA-Editors von Access. Sie können den Ablauf einer Funktion Schritt für Schritt nachvollziehen, wenn Sie dem Code einen so genannten Haltepunkt hinzufügen. Dies tun Sie, indem Sie in der gewünschten Zeile, an der die Funktion anhalten soll, auf den linken Rand des Modulfensters klicken (siehe Bild 10). Wenn Sie nun die Funktion starten, hält diese an der markierten Stelle an. Mit der Taste F8 können Sie zeilenweise vorwärts springen, mit der Taste F5 bis zum nächsten Vorkommen des Haltepunkt. <\/p>\n Füllen des Listenfeldes<\/b><\/p>\n Damit das Listenfeld auch mit den hierarchisch angeordneten Mitarbeitern gefüllt wird, benötigen Sie noch eine Prozedur, die beim Anzeigen des Formulars ausgelöst wird und die der Datensatzherkunft den Rückgabewert der Funktion lstHierarchieFuellen zuweist.<\/p>\n Dazu legen Sie für die Ereigniseigenschaft Beim Laden die folgende Prozedur an:<\/p>\n Diese Prozedur weist der Datensatzherkunft das Ergebnis der Funktion lstHierarchieFuellen zu und verwendet dabei den Wert 0 für den übergabeparameter Ebene.<\/p>\n Funktionalität für das Listenfeld<\/b><\/p>\n Das Listenfeld zur Anzeige der Hierarchie der Mitarbeiter zeigt die Hierarchie nun übersichtlich an.<\/p>\n Es bietet leider nicht die Funktionalität wie beispielsweise das Treeview-Steuerelement. So lassen sich z. B. nicht einzelne Ebenen ein- oder ausblenden.<\/p>\n Mit ein wenig Fantasie lässt sich jedoch ziemlich jede Funktion einigermaßen nachbilden.<\/p>\n Eine möglicherweise interessante Funktion ist beispielsweise die Möglichkeit, per Doppelklick auf einen Eintrag des Listenfeldes den gewünschten Mitarbeiter im Formular anzuzeigen. <\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Dies geht sogar recht einfach. Legen Sie einfach für die Ereigniseigenschaft Beim Doppelklicken des Listenfeldes die Prozedur aus Quellcode 3 an. Wenn Sie nun doppelt auf einen der Einträge des Formulars klicken, wird im Formular automatisch der gewünschte Mitarbeiter angezeigt.<\/p>\n Dies funktioniert natürlich auch im Umkehrschluss: Wenn Sie möchten, dass der aktuell im Formular angezeigte Mitarbeiter im Listenfeld direkt markiert ist, müssen Sie nur die Prozedur, die durch das Ereignis Beim Anzeigen ausgelöst wird, wie in Quellcode 4 erweitern.<\/p>\n Es kann natürlich auch passieren, dass einmal nachträglich ein anderer Vorgesetzter ausgewählt wird. In dem Fall soll natürlich auch das Listenfeld direkt aktualisiert werden. Dies erreichen Sie, indem Sie für die Ereigniseigenschaft Nach Aktualisierung des Kombinationsfeldes cboVorgesetzter die Prozedur aus Quellcode 5 hinterlegen. In dieser Prozedur wird direkt die komplette Liste neu zusammengestellt. Es reicht nicht aus, die Datensatzherkunft des Listenfeldes mit der Methode Requery zu aktualisieren. <\/p>\n Der vorliegende Beitrag bietet einige Ansätze zur Verwaltung von hierarchischen Daten in rekursiv definierten Tabellen. Es gibt noch weitere Möglichkeiten zur Darstellung solcher Daten. Eine Möglichkeit ist die Verwendung des Treeview-Steuerelements, das ebenfalls in der vorliegenden Ausgabe von Access im Unternehmen Seite 15 ff. vorgestellt wird.<\/p>\n Sie können aber auch die Variante mit dem Listenfeld weiter ausbauen. Es ist z. B. auch hier gut möglich, zu Beginn nur die Mitarbeiter der ersten Ebene anzuzeigen und erst durch einen Doppelklick auf die jeweiligen Einträge die untergeordneten Mitarbeiter.<\/p>\n Dazu würde man zunächst die Einträge der Mitarbeiter mit den entsprechenden Einzügen versehen und in einer temporären Tabelle speichern. Hier ist neben den üblichen Feldern ein weiteres Feld namens Anzeigen vorzusehen, mit dem Sie festlegen, ob der Eintrag direkt beim öffnen des Formulars angezeigt wird.<\/p>\n Sollen untergeordnete Einträge zu einem der angezeigten Mitarbeiter erscheinen, würde man doppelt auf den gewünschten Eintrag klicken und damit eine Prozedur auslösen, die den Inhalt des Feldes Anzeigen aller untergeordneten Einträge auf den Wert Wahr setzt und anschließend die Datensatzherkunft des Listenfeldes aktualisiert. Das Listenfeld zeigt dann alle Einträge der temporären Tabelle an, deren Feld Anzeigen den Wert Wahr hat.<\/p>\n Im Formular frmMitarbeiterHierarchie der Beispieldatenbank finden Sie ein Beispiel für diese Vorgehensweise. <\/p>\n Enthaltene Beispieldateien:<\/p>\n RekursiveBeziehungen00.mdb<\/p>\n RekursiveBeziehungen97.mdb<\/p>\nKeine Unterstützung durch den Assistenten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic004.png\")
<\/p>\nAktuellen Mitarbeiter als Vorgesetztenausschließen<\/h3>\n
Auswahl keines Vorgesetzten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic006.png\")
<\/p>\nAnzeige des aktuellen Mitarbeiters verhindern<\/h3>\n
SELECT MitarbeiterID, [Nachname] & \", \" & [Vorname] AS _ Mitarbeiter\r\nFROM tblMitarbeiter\r\nWHERE MitarbeiterID <> [Forms]![frmMitarbeiter]![MitarbeiterID]\r\nUNION \r\nSELECT 0 AS MitarbeiterID, \"<Kein Vorgesetzter>\" \r\nAS Mitarbeiter \r\nFROM tblMitarbeiter;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic008.png\")
<\/p>\nWenn ein Mitarbeiter keinen Vorgesetztenhat …<\/h3>\n
Anzeige unterstellter Mitarbeiter verhindern<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic009.png\")
<\/p>\nHinweis<\/h3>\n
Anlegen des Listenfeldes<\/h3>\n
Wertliste als Datensatzherkunft<\/h3>\n
Private Function lstHierarchieFuellen(Ebene As Integer, Optional strHierarchie As _ String, Optional intMitarbeiter As Integer)\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Dim i As Integer\r\n Dim Einzug As String\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"SELECT * FROM tblMitarbeiter WHERE Vorgesetzter = \" _ & intMitarbeiter, dbOpenDynaset)\r\n For i = 1 To Ebene\r\n Einzug = Einzug & \" \"\r\n Next i\r\n Do While Not rst.EOF\r\n strHierarchie = strHierarchie & Chr(34) & rst!MitarbeiterID & Chr(34) & \";\" _ & Chr(34) & Einzug & rst!Nachname & \", \" & rst!Vorname & Chr(34) & \";\"\r\n lstHierarchieFuellen Ebene + 1, strHierarchie, rst!MitarbeiterID rst.MoveNext\r\n Loop\r\n lstHierarchieFuellen = strHierarchie\r\nEnd Function<\/pre>\n
strHierarchie = strHierarchie & Chr(34) _ & rst!MitarbeiterID & Chr(34) & \";\" _ & Chr(34) & Einzug & rst!Nachname _ & \", \" & rst!Vorname & Chr(34) & \";\"<\/pre>\n
\"1\";\"Minhorst, André\";<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{2CB8529C-53BE-4873-910C-9AC803F1D23A}\/pic010.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
Private Sub Form_Load()\r\n Me.lstHierarchie.RowSource = _ lstHierarchieFuellen(0)\r\nEnd Sub<\/pre>\n
Private Sub lstHierarchie_DblClick(Cancel As Integer)\r\n Me.RecordsetClone.FindFirst \"MitarbeiterID = \" _ & Me.lstHierarchie\r\n Me.Bookmark = Me.RecordsetClone.Bookmark\r\nEnd Sub<\/pre>\n
Private Sub Form_Current()\r\n Me.cboVorgesetzter.Requery\r\n Me.lstHierarchie.Value = Me.MitarbeiterID\r\nEnd Sub <\/pre>\n
Private Sub cboVorgesetzter_AfterUpdate()\r\n Me.lstHierarchie.Rowsource = lstHierarchieFuellen(0)\r\nEnd Sub<\/pre>\n
änderung des Vorgesetzten übernehmen<\/h3>\n
Hinweis<\/h3>\n
Downloads zu diesem Beitrag<\/h3>\n