<\/p>\n
![\"Ausgangspunkt](\"..\/fileadmin\/_temp_\/2023_04\/pic_1444_001.png\")
<\/p>\n
Bild 1: Ausgangspunkt des Beitrags<\/span><\/b><\/p>\n In den beiden Beiträgen „Daten in ungebundenen Formularen bearbeiten“ (www.access-im-unternehmen.de\/1442) und „Ungebundene Listen und Kombis mit Daten füllen“ (www.access-im-unternehmen.de\/1440) haben wir Möglichkeiten aufgezeigt, um Daten ohne die Bindung an Tabellen oder Abfragen in Formularen und Steuerelementen anzuzeigen. In diesem Beitrag gehen wir einen Schritt weiter und kombinieren die beiden Darstellungen einer Übersicht von Daten und der Detailansicht eines ausgewählten Datensatzes. Dabei zeigen wir, wie wir in der Übersicht einen Datensatz auswählen und diesen zum Bearbeiten öffnen, einen neuen Datensatz anlegen oder Datensätze löschen.<\/b><\/p>\n Ausgangspunkt für das Beispiel zu diesem Beitrag sind die Formulare aus den oben genannten Beiträgen. Dabei wollen wir das Formular mit der Übersicht der Kunden in einem Listenfeld, das wir in frmKundenuebersicht <\/b>umbenannt haben, um einige Elemente erweitern (siehe Bild 1).<\/p>\n Bild 1: Ausgangspunkt des Beitrags<\/span><\/b><\/p>\n Wir haben die folgenden Erweiterungen vorgesehen:<\/p>\n Bei der Gestaltung der Schaltflächen haben wir neben den Beschriftungen auch noch Icons hinzufügt. Außerdem haben wir die Einstellung Vertikaler Anker <\/b>auf Unten <\/b>eingestellt, damit diese, wenn das Formular und das Listenfeld vergrößert werden, ebenfalls nach unten verschoben werden (für das Listenfeld ist diese Einstellung auf den Wert Beide <\/b>eingestellt). Die Schaltflächen heißen cmdBearbeiten<\/b>, cmdAnlegen <\/b>und cmdLoeschen<\/b> (siehe Bild 2).<\/p>\n Bild 2: Schaltflächen für die Datenoperationen<\/span><\/b><\/p>\n Um den aktuell im Listenfeld markierten Datensatz im Formular frmKundendetails <\/b>anzuzeigen, verwenden wir die Schaltfläche cmdBearbeiten <\/b>hinzu.<\/p>\n Für diese hinterlegen wir die folgende Prozedur:<\/p>\n Diese Prozedur prüft, ob im Listenfeld überhaupt ein Eintrag markiert ist. Falls ja, öffnet sie das Formular frmKundendetails <\/b>als modalen Dialog und übergibt den Primärschlüsselwert des markierten Eintrags mit dem Parameter OpenArgs<\/b>.<\/p>\n Ist aktuell kein Eintrag markiert, erscheint eine Meldung mit einem entsprechenden Hinweis.<\/p>\n Im Formular frmKundendetails <\/b>nimmt die Prozedur Form_Open <\/b>das Öffnungsargument über die Eigenschaft OpenArgs <\/b>entgegen und zeigt die Daten des entsprechenden Datensatzes an. Die Details hierzu finden Sie im Beitrag Daten in ungebundenen Formularen bearbeiten <\/b>(www.access-im-unternehmen.de\/1442<\/b>).<\/p>\n Nun wird es interessant: In gebundenen Formularen würden wir nun nach dem Bearbeiten des Datensatzes im Detailformular das Formular ausblenden, wodurch der Code im aufrufenden Formular fortgesetzt würde. Hier würden wir dann abfragen, ob das Detailformular noch geöffnet ist und gegebenenfalls auf die geänderten Daten reagieren, bevor wir die Daten im aufrufenden Formular entsprechend anpassen. Dazu reicht dann meist ein Aufruf der Methode Requery <\/b>der Übersicht.<\/p>\n Hier können wir ähnlich vorgehen. Wir machen das Detailformular beim Anklicken der OK<\/b>-Schaltfläche unsichtbar, damit wir im aufrufenden Formular feststellen können, ob der Benutzer die OK<\/b>– oder die Abbrechen<\/b>-Schaltfläche gedrückt hat (die Abbrechen<\/b>-Schaltfläche würde das Formular direkt schließen).<\/p>\n Den Code der OK<\/b>-Schaltfläche passen wir dazu wie folgt an:<\/p>\n Im aufrufenden Formular können wir nun allerdings nicht die Requery<\/b>-Methode des Listenfeldes aufrufen, da das Listenfeld nicht an eine Tabelle oder Abfrage gebunden ist, sondern anderweitig gefüllt wurde. An dieser Stelle haben wir nun zwei Möglichkeiten:<\/p>\n Die erste Variante ist schnell erledigt: Wir rufen einfach die Prozedur, welche die Daten in das Listenfeld einliest, erneut auf. Die Erweiterung sieht wie folgt aus:<\/p>\n Damit ist die Aufgabe prinzipiell erledigt. Wir rufen das Detailformular auf, nehmen eine Änderung vor, schließen das Detailformular und der Inhalt des Listenfeldes wird aktualisiert. In der aktuellen Fassung der Prozedur, welche die Daten der Tabelle tblKunden <\/b>einliest und dem Listenfeld lstKunden <\/b>hinzufügt, wird das Listenfeld allerdings vorher nicht geleert. Das bedeutet, dass die aktualisierten Daten durch die Aufrufe der AddItem<\/b>-Methode an die bestehenden Daten angehängt werden. Um dies zu ändern, müssen wir das Listenfeld an irgendeiner Stelle leeren, was wir mit der folgenden Anweisung erledigen können:<\/p>\n [<\/p>\n Diese können wir beispielsweise in der Prozedur KundenEinlesen <\/b>vor der Do While<\/b>-Schleife einfügen. Allerdings gibt es noch eine Alternative.<\/p>\n Da wir ein ungebundenes Listenfeld nutzen und dieses mit der AddItem<\/b>-Methode füllen, können wir uns auch noch eine Alternative zum erneuten Laden aller Daten ansehen – denn je nach der Menge der Datensätze kann dieser Vorgang durchaus zu sichtbaren Verzögerungen führen.<\/p>\n Also erstellen wir eine Prozedur namens KundeAktualisieren<\/b>, die wir von cmdBearbeiten_Click <\/b>aus wie folgt aufrufen.<\/p>\n Dabei übergeben wir den Primärschlüsselwert des geänderten Datensatzes sowie seinen Index im Listenfeld, den wir mit der Eigenschaft ListIndex <\/b>ermitteln:<\/p>\n Die Prozedur KundeAktualisieren <\/b>erstellt ein neues Recordset auf Basis der Tabelle tblKunden <\/b>mit dem geänderten Datensatz (siehe Listing 1). Ist dieses Recordset nicht leer, entfernt die Prozedur zuerst den vorhandenen Eintrag mit der RemoveItem<\/b>-Methode. Den zu entfernenden Datensatz identifizieren wir mit dem Index aus lngIndex<\/b>.<\/p>\n Listing 1: Aktualisieren eines Listenfeldeintrags mit RemoveItem und AddItem<\/span><\/b><\/p>\n Dann fügen wir mit der AddItem<\/b>-Methode den geänderten Eintrag hinzu. Damit dieser nicht einfach hinten angehängt wird, geben wir als zweiten Parameter wieder den Index aus lngIndex <\/b>an.<\/p>\n Damit geschieht das Aktualisieren des geänderten Eintrags im Listenfeld wesentlich schneller.<\/p>\n Wesentlich einfacher als das Markieren des zu bearbeitenden Datensatzes und das anschließende Betätigen der Bearbeiten<\/b>-Schaltfläche ist ein Doppelklick auf den Eintrag im Listenfeld.<\/p>\n Das soll den gleichen Code auslösen, den wir bereits für das Ereignis cmdBearbeiten_Click <\/b>hinterlegt haben. Wir haben nun zwei Möglichkeiten: Wir können auch von der Prozedur lstKundenUngebunden_DblClick <\/b>die Prozedur cmdBearbeiten_Click <\/b>aufrufen. Das sieht aber etwas unschön aus, also lagern wir die Anweisungen der Prozedur cmdBearbeiten_Click <\/b>in eine neue Prozedur namens KundeBearbeiten <\/b>aus und rufen diese dann aus den beiden genannten Prozeduren heraus auf:<\/p>\n Noch spannender wird das Anlegen eines neuen Datensatzes. Die eigentliche Technik zum Anlegen haben wir zwar bereits im Beitrag Daten in ungebundenen Formularen bearbeiten <\/b>(www.access-im-unternehmen.de\/1442<\/b>) beschrieben. Der interessante Teil ist jetzt, wie wir den neuen Datensatz im Listenfeld anzeigen. Doch eins nach dem anderen.<\/p>\n Die Funktion zum Anlegen eines neuen Datensatzes hinterlegen wir für das Ereignis Beim Klicken <\/b>der Schaltfläche cmdAnlegen<\/b>. Die erste Anweisung ist offensichtlich:<\/p>\n Wir öffnen das Formular als modalen Dialog und übergeben diesmal keine vorhandene Kunden-ID, da wir einen neuen Datensatz anlegen wollen.<\/p>\n Dies berücksichtigen wir im aufgerufenen Formular frmKundendetails <\/b>bereits in der Form_Open<\/b>-Prozedur. Wenn wir kein Öffnungsargument übergeben, geschieht hier nämlich nichts – außer, dass wir prüfen, ob ein Öffnungsargument übergeben wurde:<\/p>\n Der Benutzer gibt dann die Daten des neuen Kunden ein und bestätigt die Eingabe mit der OK<\/b>-Schaltfläche. Diese ist bereits mit den Anweisungen ausgestattet, um die Daten des neuen Datensatzes in der Tabelle tblKunden <\/b>zu speichern. Außerdem blendet sie das Formular aus, damit dieses den Fokus verliert und der aufrufende Code weiterlaufen kann.<\/p>\n In der Prozedur cmdAnlegen_Click<\/b> können wir nun entscheiden, wie der neue Datensatz verarbeitet werden soll. Wenn wir mit herkömmlichen gebundenen Elementen arbeiten, werden neue Einträge nach dem Aktualisieren je nach der Reihenfolge einsortiert (siehe Listing 2).<\/p>\n Listing 2: Hinzufügen eines Listenfeldeintrags für einen neu hinzugefügten Datensatz<\/span><\/b><\/p>\n Wir schauen uns zuerst jedoch die scheinbar einfachere Lösung an, bei welcher der neue Eintrag einfach unten angefügt wird. Bei dieser prüfen wir nach dem Ausblenden oder Schließen des Detailformulars, ob dieses noch geöffnet ist. Nun müssen wir herausfinden, welche ID der neue Datensatz hat. Über das Formular frmKundendetails <\/b>finden wir es nicht heraus, denn das Feld KundeID <\/b>wird nicht wie bei gebundenen Formularen gefüllt, wenn wir einen neuen Datensatz anlegen. Die einfachste Variante wäre, wenn wir dies noch hinzuprogrammieren, und zwar für das Ereignis, dass durch die Schaltfläche cmdOK <\/b>ausgelöst wird. Hier prüfen wir vor dem Speichern des Datensatzes mit der Update<\/b>-Methode, ob lngKundeID <\/b>den Wert 0 <\/b>aufweist, also ob wir einen neuen Datnesatz anlegen. Ist das der Fall, schreiben wir den Wert von rst!KundeID<\/b>, welcher zu diesem Zeitpunkt bereits durch die Autowert-Funktion gesetzt wurde, in das Textfeld KundID<\/b>:<\/p>\n Der Zeitpunkt vor dem Aufruf der Update<\/b>-Methode ist wichtig, da nach dem Aufruf der Datensatzzeiger auf einen anderen (üblicherweise einen neuen) Datensatz verschoben wird.<\/p>\n Damit können wir nun von der aufrufenden Prozedur aus auf den Wert des Textfeldes KundeID <\/b>zugreifen und den entsprechenden Datensatz unten an die Liste anfügen. Dabei lesen wir die ID aus dem Feld KundeID <\/b>ein und erstellen ein neues Recordset auf Basis der Tabelle tblKunden<\/b>, welches nur den Datensatz mit dem neuen Kunden enthält. Dann fügen wir das neue Element mit der AddItem<\/b>-Methode zum Listenfeld hinzu und schließen das Formular frmKundendetails<\/b>, das aktuell noch unsichtbar geöffnet ist.<\/p>\n Aktuell haben wir noch keine Möglichkeit vorgesehen, die Daten in dem Listenfeld nach bestimmten Kriterien zu sortieren oder zu filtern. Dies fügen wir in einem weiteren Beitrag hinzu, wo wir dann auch die Routine zum Einfügen neuer Datensätze entsprechend der aktuellen Sortierung anpassen – siehe Ungebundenes Listenfeld sortieren und filtern <\/b>(www.access-im-unternehmen.de\/1445<\/b>).<\/p>\n Das Löschen des aktuell markierten Datensatzes im Listenfeld erledigen wir mit der Schaltfläche cmdLoeschen<\/b>, welche die Prozedur aus Listing 3 auslöst. Diese Prozedur schreibt den Wert der gebundenen Spalte für den aktuell markierten Eintrag in die Variable lngKundeID<\/b>. Ist aktuell kein Eintrag markiert, landet dort der Wert 0<\/b>. Ist lngKundeID <\/b>danach nicht gleich 0<\/b>, entfernt die Prozedur zuerst den Eintrag mit dem Indexwert aus der Eigenschaft ListIndex <\/b>aus dem Listenfeld. Außerdem löscht sie den betroffenen Datensatz aus der Tabelle tblKunden<\/b>.<\/p>\n<\/p>\n\n
Anlegen der Schaltflächen<\/h2>\n
![\"Schaltflächen](\"..\/fileadmin\/_temp_\/2023_04\/pic_1444_002.png\")
<\/p>\nBearbeiten eines Datensatzes per Schaltlfläche<\/h2>\n
Private Sub <\/span>cmdBearbeiten_Click()\r\n If <\/span>Not<\/span> IsNull(Me!lstKundenUngebunden) Then<\/span>\r\n DoCmd.OpenForm \"frmKundendetails\", _\r\n OpenArgs:=Me!lstKundenUngebunden, _\r\n WindowMode:=acDialog\r\n Else<\/span>\r\n MsgBox<\/span> \"Bitte markieren Sie einen Datensatz.\", _\r\n vbOKOnly + vbExclamation, _\r\n \"Kein Datensatz markiert\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdOK_Click()\r\n ...\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
...\r\nIf <\/span>Not<\/span> IsNull(Me!lstKundenUngebunden) Then<\/span>\r\n DoCmd.OpenForm \"frmKundendetails\", _\r\n OpenArgs:=Me!lstKundenUngebunden, _\r\n WindowMode:=acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmKundendetails\") Then<\/span>\r\n KundenEinlesen\r\n End If<\/span>\r\n...<\/pre>\nMe!lstKundenUngebunden.RowSource = \"\"<\/pre>\n
Gezieltes Aktualisieren der Daten des Listenfeldes<\/h2>\n
Private Sub <\/span>cmdBearbeiten_Click()\r\n ...\r\n If <\/span>IstFormularGeoeffnet(\"frmKundendetails\") Then<\/span>\r\n KundeAktualisieren Me!lstKundenUngebunden, _\r\n Me!lstKundenUngebunden.ListIndex\r\n End If<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>KundeAktualisieren(lngKundeID As Long<\/span>, lngIndex As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblKunden WHERE KundeID = \" & lngKundeID, dbOpenDynaset)\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n Me!lstKundenUngebunden.RemoveItem lngIndex\r\n Me!lstKundenUngebunden.AddItem rst!KundeID & \";''\" & rst!Anrede & \"'';''\" & rst!Vorname & \"'';''\" & rst!Nachname _\r\n & \"'';''\" & rst!Strasse & \"'';''\" & rst!PLZ & \"'';''\" & rst!Ort & \"'';''\" & rst!Land & \"''\", lngIndex\r\n End If<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nBearbeiten eines Datensatzes per Doppelklick<\/h2>\n
Private Sub <\/span>cmdBearbeiten_Click()\r\n KundeBearbeiten\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>lstKundenUngebunden_DblClick(Cancel As Integer<\/span>)\r\n KundeBearbeiten\r\nEnd Sub<\/span><\/pre>\nAnlegen eines neuen Datensatzes per Schaltfläche<\/h2>\n
DoCmd.OpenForm \"frmKundendetails\", WindowMode:=acDialog<\/pre>\n
Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n lngKundeID = Nz(Me.OpenArgs, 0)\r\n If <\/span>Not<\/span> lngKundeID = 0 Then<\/span>\r\n ...\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAnlegen_Click()\r\n Dim <\/span>lngKundeID As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n DoCmd.OpenForm \"frmKundendetails\", WindowMode:=acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmKundendetails\") Then<\/span>\r\n lngKundeID = Forms!frmKundendetails!KundeID\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblKunden WHERE KundeID = \" & lngKundeID, dbOpenDynaset)\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n Me!lstKundenUngebunden.AddItem rst!KundeID & \";''\" & rst!Anrede & \"'';''\" & rst!Vorname & \"'';''\" _\r\n & rst!Nachname & \"'';''\" & rst!Strasse & \"'';''\" & rst!PLZ & \"'';''\" & rst!Ort & \"'';''\" & rst!Land & \"''\"\r\n End If<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\n DoCmd.Close acForm, \"frmKundendetails\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdOK_Click()\r\n ...\r\n rst!Land = Me!Land\r\n If <\/span>lngKundeID = 0 Then<\/span>\r\n Me!KundeID = rst!KundeID\r\n End If<\/span>\r\n rst.Update\r\n ...\r\nEnd Sub<\/span><\/pre>\nEinsortieren neuer Datensätze entsprechend der Sortierung<\/h2>\n
Löschen eines Datensatzes per Mausklick<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngKundeID As Long<\/span>\r\n lngKundeID = Nz(Me!lstKundenUngebunden, 0)\r\n If <\/span>Not<\/span> lngKundeID = 0 Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n Me!lstKundenUngebunden.RemoveItem Me!lstKundenUngebunden.ListIndex\r\n db.Execute \"DELETE FROM tblKunden WHERE KundeID = \" & lngKundeID, dbFailOnError\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n