![\"Tabellen](\"..\/tl_files\/images\/pic_406_001.png\")
<\/a><\/p>\nBild 1: Tabellen der Beispieldatenbank<\/p>\n
Damit hat der Benutzer eine Aufgabe vor der Brust: Er muss nämlich alle Datensätze der Tabelle tblArtikel <\/b>ausfindig machen, die mit der zu löschenden Kategorie verknüpft sind und diese mit einer anderen Kategorie verknüpfen und kann erst dann die überflüssige Kategorie löschen. Dies wollen wir im folgenden etwas einfacher gestalten.<\/p>\nBeispielformular<\/h2>\n
Ausgangspunkt dafür ist das Formular tblArtikeldetails<\/b>, das im Entwurf wie in Bild 2 aussieht und über die Eigenschaft Datenherkunft <\/b>an die Tabelle tblArtikel <\/b>gebunden wird. Da das Fremdschlüsselfeld KategorieID <\/b>gleich im Tabellenentwurf als Nachschlagefeld ausgelegt wurde, erscheint es nach dem Hineinziehen der Felder aus der Feldliste in den Detailbereich gleich als Kombinationsfeld (übrigens genau wie das Feld LieferantID<\/b>).<\/p>\n
Bild 2: Entwurf des Formulars<\/p>\n Wenn wir dann allerdings in die Formularansicht wechseln, erhalten wir die Fehlermeldung aus Bild 3. Kein Wunder: Der Eintrag ist in der Liste nicht bekannt.<\/p>\n Bild 3: Im Standardzustand bewirkt das Einfügen einer neuen Kategorie diesen Fehler.<\/p>\n Das ändern wir durch die Ereignisprozedur Bei nicht in Liste <\/b>des Kombinationsfeldes, das wir zuvor in cboKategorieID <\/b>umbenennen. Die Prozedur sieht wie in Listing 1 aus und liefert mit dem Parameter NewData <\/b>den Wert des vom Benutzer neu hinzugefügten Eintrags. Die Prozedur fragt den Benutzer, ob die angegebene Kategorie neu in die Liste der Kategorien aufgenommen werden soll. Falls ja, führt sie eine INSERT INTO<\/b>-Abfrage aus, welche einen entsprechenden neuen Datensatz zur Tabelle tblKategorien <\/b>hinzufügt. In diesem Fall stellen wir den Wert des Rückgabeparameters Response <\/b>auf acDataErrAdded <\/b>ein, was Access mitteilt, dass ein neuer Eintrag hinzugefügt wurde.<\/p>\n Listing 1: Hinzufügen einer neuen Kategorie zur Tabelle tblKategorien<\/p>\n Danach haben wir also eine neue Kategorie, die gegebenenfalls überflüssig ist, weil sie schon durch eine andere Kategorie abgedeckt wird, und der Benutzer fügt fleißig neue Artikel hinzu und weist sie dieser Kategorie zu. Nun benötigen wir Elemente für die Benutzeroberfläche, mit denen wir die Einträge der Tabelle tblKategorien <\/b>verwalten können und dies es auch erlauben, den Artikeln mit einer zu löschenden Kategorie auf einfache Weise die richtige Kategorie zuzuweisen. Wir aber erledigen wir das auf effiziente Weise<\/p>\n Die übersichtlichste Methode ist die Anzeige eines neuen Formulars, dass die zu löschende Kategorie samt der verknüpfte Datensätze der Tabelle tblArtikel <\/b>anzeigt. Außerdem sollte dieses Formular noch die Möglichkeit bieten, vor dem Löschen eine alternative Kategorie für die betroffenen Artikel auszuwählen – und das gegebenenfalls noch nach vorheriger Selektion der Artikel, um diese auch mehreren verschiedenen Kategorien zuordnen zu können.<\/p>\n Damit der Benutzer dieses Formular aufrufen kann, fügen wir dem Formular frmArtikeldetails <\/b>eine Schaltfläche neben dem Kombinationsfeld cboKategorieID <\/b>hinzu (siehe Bild 4). Die Schaltfläche heißt cmdKategorieBearbeiten <\/b>und soll die folgende Ereignisprozedur auslösen:<\/p>\n Bild 4: Schaltfläche zum Bearbeiten der Kategorien<\/p>\n Die Prozedur öffnet das Formular frmKategorienZuweisen <\/b>als modalen Dialog und übergibt die ID der aktuell im Kombinationsfeld cboKategorieID <\/b>ausgewählten Kategorie als öffnungsargument an das geöffnete Formular.<\/p>\n Das Formular, mit dem wir überflüssige Kategorien loswerden wollen, heißt frmKategorienZuweisen<\/b> und sieht im Entwurf wie in Bild 5 aus. Das obere Kombinationsfeld soll die Kategorie anzeigen, die im Formular frmArtikeldetails <\/b>ausgewählt war, als der Benutzer auf die Schaltfläche mit den drei Punkten geklickt hat.<\/p>\n Bild 5: Formular zum Zuweisen und Löschen von Kategorien<\/p>\n Dazu weisen wir dem Kombinationsfeld als Datensatzherkunft zunächst eine Abfrage auf Basis der Tabelle tblKategorien <\/b>zu, die wie folgt lautet:<\/p>\n Außerdem stellen wir die Eigenschaft Spaltenanzahl <\/b>auf den Wert 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein, damit nur die zweite Spalte mit der Bezeichnung der Kategorie im Kombinationsfeld angezeigt wird.<\/p>\n Damit die Kategorie, deren KategorieID <\/b>als öffnungsargument des Formulars übergeben wurde, im Kombinationsfeld erscheint, bestücken wir die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöste Ereignisprozedur wie folgt:<\/p>\n Da das Formular nicht an eine Datenherkunft gebunden wird, stellen wir die Eigenschaften Navigationsleiste<\/b>, Datensatzmarkierer<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf den Wert Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein. Wenn Sie das Formular nun für eine der Kategorien öffnen, sollte dies wie in Bild 6 aussehen.<\/p>\n Bild 6: Formular mit der zu bearbeitenden Kategorie<\/p>\n Das zweite Kombinationsfeld statten wir fast mit der gleichen Datensatzherkunft wie das erste Kombinationsfeld aus – mit einem Unterschied: Die im ersten Kombinationsfeld angezeigte Kategorie soll dort nicht erhalten sein. Es macht ja auch keinen Sinn, die Artikel einer Kategorie der gleichen Kategorie zuzuweisen.<\/p>\n Da wir aber zur Entwurfszeit noch nicht wissen, welcher Datensatz im ersten Kombinationsfeld ausgewählt wird, stellen wir die Datensatzherkunft des zweiten Kombinationsfeldes auch erst beim Laden des Formulars ein. Dazu erweitern wir die Prozedur Form_Load <\/b>wie in Listing 2.<\/p>\n Listing 2: Aktionen beim Laden des Formulars frmKategorienZuweisen<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nNeuen Eintrag hinzufügen<\/h2>\n
Private Sub <\/span>cboKategorieID_NotInList(NewData As String<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n Dim <\/span>db As <\/span>DAO.Database\r\n intResult = MsgBox<\/span>(\"Möchten Sie die Kategorie '\" & NewData & \"' hinzufügen\", vbYesNo, \"Neue Kategorie\")\r\n If <\/span>intResult = vbYes Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblKategorien(Kategoriename) VALUES('\" & NewData & \"')\", dbFailOnError\r\n Response = acDataErrAdded\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAufruf des Formulars zum Bearbeiten der Kategorien<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cmdKategorieBearbeiten_Click()\r\n DoCmd.OpenForm _\r\n \"frmKategorienZuweisen\", _\r\n WindowMode:=acDialog, _\r\n OpenArgs:=Me!cboKategorieID\r\nEnd Sub<\/span><\/pre>\nFormular zum Zuordnen und Löschen von Kategorien<\/h2>\n
<\/a><\/p>\nSELECT KategorieID, Kategoriename FROM tblKategorien ORDER BY Kategoriename;<\/pre>\n
Private Sub <\/span>Form_Load()\r\n Me!cboAktuelleKategorieID = Me.OpenArgs\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!cboAktuelleKategorieID = Me.OpenArgs\r\n Me!cboZielkategorieID.RowSource = \"SELECT KategorieID, Kategoriename FROM tblKategorien WHERE KategorieID NOT IN (\" _\r\n & Me.OpenArgs & \") ORDER BY Kategoriename\"\r\n Me!cboZielkategorieID = Me.cboZielkategorieID.ItemData(0)\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