<\/p>\n
Ein regelmäßig nachgefragtes Problem ist das der abhängigen Kombinationsfelder. Das bedeutet, dass man für eine Haupttabelle, zum Beispiel zum Verwalten von Fahrzeugen, zwei verknüpfte Tabellen hat, in denen die Hersteller und die Modelle gespeichert werden. Die Tabelle mit den Modellen ist wiederum über ein Fremdschlüsselfeld mit der Tabelle der Hersteller verknüpft. Auf diese Weise könnten wir in einem Formular nach der Auswahl eines Herstellers für ein Fahrzeug über ein Kombinationsfeld in einem weiteren Kombinationsfeld nur noch die Einträge der Tabelle tblModelle anzeigen lassen, die von diesem Hersteller angeboten werden. In diesem Artikel zeigen wir, welche Schritte notwendig sind, um dieses abhängige Kombinationsfeld immer mit den korrekten Daten zu füllen.<\/p>\n
Die Beispiele dieses Artikels findest Du in der Datenbank FormularBasics_AbhaengigeKombinationsfelder.accdb<\/b>.<\/p>\nDatenmodell der Beispieldatenbank<\/h2>\n
In der Beispieldatenbank legen wir zunächst die Haupttabelle mit den Fahrzeugen an und speichern sie unter dem Namen tblFahrzeuge<\/b>.<\/p>\n
Hier legen wir ein Primärschlüsselfeld namens FahrzeugID<\/b>, zwei Fremdschlüsselfelder für die beiden Tabellen tblHersteller <\/b>und tblModelle<\/b>, ein Feld für die Fahrzeug-Identifikationsnummer (mit eindeutigem Index) und eines für die Erstzulassung an (siehe Bild 1). Für die beiden Felder HerstellerID<\/b> und ModellID <\/b>haben wir die Eigenschaft Eingabe erforderlich <\/b>auf Ja <\/b>eingestellt, damit auf jeden Fall ein Hersteller und ein Modell angegeben werden müssen – andernfalls kann der Datensatz nicht gespeichert werden.<\/p>\n
Bild 1: Entwurf der Tabelle tblFahrzeuge<\/p>\n Die Tabelle tblHersteller <\/b>enthält die Felder HerstellerID <\/b>und Hersteller<\/b>, wobei letzteres wieder mit einem eindeutigen Index versehen wird (siehe Bild 2).<\/p>\n Bild 2: Entwurf der Tabelle tblHersteller<\/p>\n Schließlich fehlt noch die Tabelle tblModelle<\/b>, die wir mit den Feldern ModellID<\/b>, dem Fremdschlüsselfeld zur Tabelle tblHersteller <\/b>namens HerstellerID <\/b>und dem Feld Modell <\/b>ausstatten (siehe Bild 3).<\/p>\n Bild 3: Entwurf der Tabelle tblModelle<\/p>\n In Bild 4 sehen wir noch einmal alle Tabellen und ihre Beziehungen im Überblick.<\/p>\n Bild 4: Datenmodell der Beispieldatenbank im Überblick<\/p>\n Die Fremdschlüsselfelder haben wir direkt mit dem Nachschlage-Assistenten definiert, damit wir später beim Hinzufügen der Felder zum Formularentwurf direkt die gewünschten Kombinationsfelder zur Auswahl erhalten.<\/p>\n Wir haben für alle Beziehungen referenzielle Integrität definiert, damit vor allem für die beiden Fremdschlüsselfelder HerstellerID <\/b>und ModellID <\/b>nur bestehende Einträge aus den Tabellen tblHersteller <\/b>und tblModelle <\/b>ausgewählt werden können.<\/p>\n Nun erstellen wir ein neues, leeres Formular und speichern es unter dem Namen frmFahrzeuge<\/b>. Wir legen als Datensatzquelle die Tabelle tblFahrzeuge <\/b>fest und ziehen alle Felder dieser Tabelle aus der Feldliste in den Detailbereich des Formulars. Da wir die Fremdschlüsselfelder im Tabellenentwurf als Nachschlagefelder definiert haben, werden diese direkt als Kombinationsfelder angelegt (siehe Bild 5).<\/p>\n Bild 5: Entwurf des Formulars frmFahrzeuge<\/p>\n Die beiden Kombinationsfelder benennen wir um in cboHerstellerID <\/b>und cboModellID<\/b>.<\/p>\n Wechseln wir nun in die Formularansicht und legen ein neues Fahrzeug an, können wir über die beiden Kombinationsfelder bereits komfortabel den Hersteller und das Modell auswählen.<\/p>\n Allerdings liefert das Kombinationsfeld cboModellID <\/b>hier alle Modelle aller Hersteller – und genau das ist der Grund, warum wir ein sogenanntes abhängiges Kombinationsfeld benötigen (siehe Bild 6).<\/p>\n Bild 6: Das Kombinationsfeld cboModellID zeigt noch alle Modelle aller Hersteller an.<\/p>\n Das Kombinationsfeld cboModellID<\/b> soll nämlich nur die Modelle anzeigen, die zu dem zuvor ausgewählten Hersteller gehören.<\/p>\n Was wir also hinzufügen müssen, ist ein Filter für die Datensatzherkunft des Kombinationsfeldes cboModellID<\/b>, der nur die Modelle liefert, die über ihr Fremdschlüsselfeld HerstellerID <\/b>mit dem aktuell ausgewählten Wert im Kombinationsfeld cboHerstellerID <\/b>zugeordnet sind.<\/p>\n Für ein neues Fahrzeug sollte das Feld cboModellID <\/b>am besten auch noch deaktiviert sein, bis der Benutzer einen Hersteller für dieses Fahrzeug festgelegt hat. Und wenn der Benutzer für das Fahrzeug einen anderen Hersteller auswählt, soll das Feld ModellID <\/b>wieder geleert und sein Filter neu gesetzt werden.<\/p>\n Das lässt sich am besten per VBA realisieren. Dazu verwenden wir das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes cboHerstellerID<\/b>. Zum Hinzufügen der Ereignisprozedur markieren wir in der Entwurfsansicht des Formulars dieses Steuerelement, wählen für die Eigenschaft Nach Aktualisierung <\/b>den Wert [Ereignisprozedur] <\/b>aus und klicken auf die Schaltfläche mit den drei Punkten.<\/p>\n Im VBA-Editor erscheint jetzt die noch leere Ereignisprozedur. Diese ergänzen wir nun um die folgenden Anweisungen:<\/p>\n Mit der ersten Anweisung speichern wir den aktuell gewählten Wert aus dem ersten Kombinationsfeld in der Variablen lngHerstellerID<\/b>. Wir können zwar später auch direkt auf Me.cboHerstellerID <\/b>zugreifen und uns diese Variable sparen, aber so ist es aus unserer Sicht etwas übersichtlicher.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Entwurf](\"..\/tl_files\/images\/pic_700_001.png\")
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nFormular zur Verwaltung von Fahrzeugen erstellen<\/h2>\n
<\/a><\/p>\nNeues Fahrzeug anlegen<\/h2>\n
<\/a><\/p>\nAbhängiges Kombinationsfeld programmieren<\/h2>\n
Private Sub <\/span>cboHerstellerID_AfterUpdate()\r\n Dim <\/span>lngHerstellerID As Long<\/span><\/span>\r\n Dim <\/span>strSQL As String<\/span><\/span>\r\n lngHerstellerID = Me.cboHerstellerID\r\n strSQL = \"SELECT ModellID, Modell \" _\r\n & \"FROM tblModelle WHERE HerstellerID = \" _\r\n & lngHerstellerID\r\n Me.cboModellID.RowSource = strSQL\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