<\/p>\n
Die Einweisung in Geräte für verschiedene Mitarbeiter ist ein tolles Beispiel für eine m:n-Beziehung. Wir werden uns in dieser Artikelreihe ansehen, wie das Datenmodell für die m:n-Beziehung aufgebaut wird, wie Sie die Formulare zur Verwaltung der Einweisungen gestalten und wie Sie mit Berichten verschiedene Listen ausgeben können – zum Beispiel, welcher Mitarbeiter welche Einweisungen erhalten hat oder für welches Gerät welcher Mitarbeiter geschult wurde. Im vorliegenden zweiten Teil schauen wir uns an, wie Sie die Daten der Tabellen der Anwendung in Formularen verwalten können.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 2103_GeraeteeinweisungenVerwalten2.accdb<\/b>.<\/p>\nBenötigte Formulare<\/h2>\n
Wenn wir eine Anwendung mit zwei Tabellen zum Speichern von Objekten wie Mitarbeitern und Geräten und einer Tabelle zum Herstellen von Beziehungen zwischen diesen beiden Objekttypen mit einer Benutzeroberfläche versehen wollen, benötigen wir zumindest die folgenden Elemente:<\/p>\n
Das waren die grundlegenden Formulare. Darüber hinaus wollen wir noch die Möglichkeit einbauen, die Mitarbeiter aufzulisten, die an einem bestimmten Gerät geschult wurden sowie die Geräte anzugeben, an denen ein bestimmter Mitarbeiter geschult wurde.<\/p>\n
Dazu können wir natürlich die Detailformulare zum Anlegen und Bearbeiten der Mitarbeiter und Geräte nutzen. Wir würden dann in einem Unterformular des Formulars zur Anzeige der Mitarbeiter die Geräte ausgeben, für deren Bedienung er geschult wurde und umgekehrt. Wir können die Verknüpfungsinformationen also grundsätzlich in den grundlegenden Formularen unterbringen, indem wir entsprechende Unterformulare hinzufügen.<\/p>\n
Das erste Übersichtsformular soll die Mitarbeiter anzeigen sowie Schaltflächen zum Hinzufügen eines neuen Mitarbeiters, zum Bearbeiten und zum Löschen des aktuell markierten Mitarbeiters bereitstellen. Offen ist noch, wie wir die Liste der Mitarbeiter in das Formular integrieren. Hier verwendet man üblicherweise ein Unterformular in der Datenblattansicht oder ein Listenfeld. Da wir die Mitarbeiter in der Übersicht nicht bearbeiten wollen, wählen wir das Listenfeld.<\/p>\n
Also erstellen wir ein neues Formular namens frmMitarbeiterUebersicht <\/b>in der Entwurfsansicht. Diesem fügen wir ein Listenfeld namens lstMitarbeiter <\/b>hinzu. Für das Listenfeld stellen wir als Datensatzherkunft eine Abfrage ein, welche die Daten der Tabelle tblMitarbeiter <\/b>enthält und deren Entwurf wie in Bild 1 aussieht.<\/p>\n
Bild 1: Datensatzherkunft des Listenfeldes für die Mitarbeiter<\/p>\n Die Eigenschaft Spaltenanzahl <\/b>stellen wir auf 2 <\/b>ein und Spaltenbreiten <\/b>auf 0cm<\/b>. Dies blendet die erste Spalte mit dem Primärschlüsselwert aus und zeigt nur die Mitarbeiter im Format Nachname, Vorname <\/b>an.<\/p>\n Das Listenfeld lstMitarbeiter<\/b> ordnen wir wie in Bild 2 an. Darunter platzieren wir die drei Schaltflächen Neu<\/b>, Bearbeiten <\/b>und Löschen<\/b>.<\/p>\n Bild 2: Entwurf des Formulars frmMitarbeiterUebersicht<\/p>\n Außerdem legen wir für die Steuerelemente verschiedene Werte für die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>fest. Für das Listenfeld erhalten beide Eigenschaften den Wert Beide<\/b>.<\/p>\n Für die Schaltflächen stellen wir für Vertikaler Anker <\/b>den Wert Unten <\/b>ein, damit diese beim Vergrößern der Höhe des Formulars am unteren Rand verbleiben und nicht vom vergrößerten Listenfeld überdeckt werden.<\/p>\n Für das Bezeichnungsfeld des Listenfeldes müssen wir den Wert von Vertikaler Anker<\/b>, der automatisch auf Unten <\/b>eingestellt wurde, wieder den Wert Oben <\/b>festlegen und Horizontaler Anker <\/b>auf Links<\/b>.<\/p>\n Außerdem stellen wir für das Formular die Eigenschaften Navigationsschaltflächen<\/b>, Datensatzmarkierer<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf den Wert Nein <\/b>ein sowie die Eigenschaft Automatisch zentrieren <\/b>auf Ja<\/b>.<\/p>\n Das Formular sieht nun in der Formularansicht wie in Bild 3 aus. Allerdings ist das Listenfeld natürlich noch leer.<\/p>\n Bild 3: Das Formular frmMitarbeiterUebersicht, hier noch ohne Daten<\/p>\n Damit wir neue Mitarbeiter anlegen können, fügen wir der Datenbank ein weiteres Formular namens frmMitarbeiterDetail <\/b>hinzu. Dieses verwendet als Datensatzquelle die Tabelle tblMitarbeiter<\/b>. Aus dieser ziehen wir aus der Feldliste alle Felder in den Detailbereich des Formularentwurfs. Auch für dieses Formular stellen wir die Eigenschaft Automatisch zentrieren <\/b>auf den Wert Ja <\/b>ein.<\/p>\n Schließlich fügen wir noch eine Schaltfläche namens cmdOK <\/b>hinzu, welche die folgende Ereignisprozedur auslöst und so das aktuelle Formular schließt:<\/p>\n Das Zwischenergebnis sieht wie in Bild 4 aus.<\/p>\n Bild 4: Das Formular frmMitarbeiterDetail in der Entwurfsansicht<\/p>\n Damit die Schaltfläche Neu <\/b>des Formulars frmMitarbeiterUebersicht<\/b>, der wir den Namen cmdNeu <\/b>geben, das Formular frmMitarbeiterDetail <\/b>zum Anlegen eines neuen Datensatzes öffnet, hinterlegen wir die folgende Ereignisprozedur für diese Schaltfläche:<\/p>\n Die DoCmd.OpenForm<\/b>-Anweisung öffnet das Formular frmMitarbeiterDetail<\/b>. Dabei gibt es für den Parameter DataMode <\/b>den Wert acFormAdd <\/b>an, was das Formular mit einem neuen, leeren Datensatz öffnet.<\/p>\n Der Parameter WindowMode <\/b>mit dem Wert acDialog <\/b>sorgt dafür, dass das Formular als modaler Dialog geöffnet wird. Dadurch setzt Access die aufrufende Prozedur erst fort, wenn der Benutzer das Formular wieder schließt (oder unsichtbar macht).<\/p>\n Das führt dazu, dass die anschließende Requery<\/b>-Methode des Listenfeldes nach dem Anlegen eines neuen Mitarbeiters aktualisiert wird.<\/p>\n Wenn wir nun das Formular frmMitarbeiterDetail <\/b>schließen, können wir es vom Formular frmMitarbeiterUebersicht <\/b>mit der Schaltfläche cmdNeu <\/b>erneut öffnen.<\/p>\n Dort geben wir dann den neuen Mitarbeiter ein und schließen das Formular mit einem Klick auf die Schaltfläche OK. Im aufrufenden Formular frmMitarbeiter-Uebersicht <\/b>erscheint dann postwendend der neue Mitarbeiter (siehe Bild 5).<\/p>\n Bild 5: Anlegen eines neuen Mitarbeiters<\/p>\n Um einen Mitarbeiter zu bearbeiten, haben wir die Schaltfläche cmdBearbeiten <\/b>im Formular frmMitarbeiterUebersicht <\/b>hinterlegt. Ein Klick auf diese löst die Prozedur aus Listing 1 aus. Hier ermitteln wir zuerst den Primärschlüsselwert des aktuell im Listenfeld markierten Eintrags.<\/p>\n Listing 1: Öffnen eines Mitarbeiters zum Bearbeiten<\/p>\n Ist dieser Null<\/b>, was der Fall ist, wenn kein Eintrag markiert ist, liefert die Nz<\/b>-Funktion statt dem Wert Null <\/b>den Zahlenwert 0 <\/b>zurück. Anderenfalls landet der Wert des Primärschlüsselfeldes des markierten Eintrags in der Variablen lngID<\/b>.<\/p>\n Bei dem OpenForm<\/b>-Aufruf übergeben wir wieder den Namen des zu öffnenden Formulars. Diesmal soll das Formular den aktuell markierten Datensatz anzeigen statt eines neuen – das geben wir mit dem Wert acFormEdit <\/b>für den Parameter DataMode <\/b>an.<\/p>\n Das Formular soll wieder als modaler Dialog geöffnet werden. Damit es nur den angeklickten Mitarbeiter anzeigt, übergeben wir diesen als Kriterium mit dem Parameter WhereCondition <\/b>und dem Wert MitarbeiterID= Bevor wir das Formular frmMitarbeiterDetail <\/b>um die Anzeige der Geräteeinweisungen in einem Unterformular erweitern, wollen wir erst einmal die Funktionen zum Verwalten der Mitarbeiter hinzufügen.<\/p>\n Um einen Mitarbeiter zu löschen, muss der Benutzer diesen markieren und dann auf die Schaltfläche cmdLoeschen <\/b>klicken.<\/p>\n Diese löst dann im einfachsten Fall die Prozedur aus Listing 2 aus.<\/p>\n Listing 2: Löschen eines Mitarbeiters<\/p>\n Die Prozedur ermittelt den Primärschlüsselwert des im Listenfeld markierten Mitarbeiters. Sofern dieser vorhanden ist, deaktiviert die Prozedur die eingebaute Fehlerbehandlung und führt dann eine DELETE<\/b>-Anweisung aus. Diese soll den Mitarbeiter mit der angegebenen MitarbeiterID <\/b>aus der Tabelle tblMitarbeiter <\/b>löschen.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Datensatzherkunft](\"..\/tl_files\/images\/pic_532_001.png\")
<\/a><\/p>\nSteuerelemente anordnen<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nDetailformular für die Mitarbeiter anlegen<\/h2>\n
Private Sub <\/span>cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span> <\/pre>\n<\/a><\/p>\nDetailformular zum Anlegen eines neuen Mitarbeiters öffnen<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", DataMode:=acFormAdd, WindowMode:=acDialog\r\n Me!lstMitarbeiter.Requery\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nMitarbeiter bearbeiten<\/h2>\n
Private Sub <\/span>cmdBearbeiten_Click()\r\n Dim <\/span>lngID As Long<\/span>\r\n lngID = Nz(Me!lstMitarbeiter, 0)\r\n If <\/span>Not<\/span> lngID = 0 Then<\/span>\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", DataMode:=acFormEdit, WindowMode:=acDialog, WhereCondition:=\"MitarbeiterID = \" & lngID\r\n Me!lstMitarbeiter.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nMitarbeiter löschen<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>strBezeichnung As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n lngID = Nz(Me!lstMitarbeiter, 0)\r\n If <\/span>Not<\/span> lngID = 0 Then<\/span>\r\n On Error Resume Next<\/span>\r\n db.Execute \"DELETE FROM tblMitarbeiter WHERE MitarbeiterID = \" & lngID, dbFailOnError\r\n If <\/span>Err.Number = 3200 Then<\/span>\r\n strBezeichnung = Me!lstMitarbeiter.Column(1)\r\n MsgBox<\/span> \"Der Mitarbeiter '\" & strBezeichnung & \"' konnte nicht gelöscht werden, da bereits Einweisungen für \" _\r\n & \"diesen hinterlegt wurden.\", vbOKOnly + vbExclamation, \"Löschen nicht möglich\"\r\n Else<\/span>\r\n Me!lstMitarbeiter.Requery\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nFehler durch Löscheinschränkung<\/h2>\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