{"id":55000689,"date":"2009-12-01T00:00:00","date_gmt":"2020-05-22T22:18:17","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=689"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Listenfeld_und_Details_in_einem_Formular","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Listenfeld_und_Details_in_einem_Formular\/","title":{"rendered":"Listenfeld und Details in einem Formular"},"content":{"rendered":"

\"\"<\/p>\n

Eine schön modular aufgebaute Benutzeroberfläche zeigt Übersichtslisten und Detailansichten in eigenen Formularen an. Manchmal will man aber der Übersicht halber beides in einem haben: Das Listenfeld bietet die wichtigsten Informationen zur Auswahl an und per Mausklick lassen sich die Details zum gewünschten Datensatz direkt daneben oder darunter betrachten. Wie Sie ein solches Formular erstellen, zeigt dieser Beitrag.<\/b><\/p>\n

Die Daten eines Formulars, das Übersichtsliste und Details gleichzeitig anzeigt, stammen logischerweise aus der gleichen Tabelle. Diese heißt in unserer Beispieldatenbank tblPersonen <\/b>und ist ganz einfach aufgebaut: Sie besteht lediglich aus dem Primärschlüsselfeld PersonID <\/b>und den beiden Feldern Vorname <\/b>und Nachname<\/b>.<\/p>\n

Funktionen des Formulars<\/b><\/p>\n

Das Formular soll zunächst einmal gewährleisten, dass das Listenfeld den Nachnamen aller Datensätze der Beispieltabelle tblPersonen <\/b>anzeigt und diese somit zur Auswahl anbietet. Per Mausklick auf einen der Einträge sollen die Details des gewählten Datensatzes im Formular angezeigt werden.<\/p>\n

Dies ist der erste Schritt – im zweiten kommen wir dann zu den Bearbeitungsfunktionen. Dabei soll der Benutzer über dieses Formular neue Datensätze hinzufügen und vorhandene Datensätze bearbeiten und löschen können. Dies alles erfordert natürlich eine zeitnahe Aktualisierung, was allerdings nicht ganz trivial ist. Zunächst jedoch bauen wir das Grundgerüst des Formulars auf.<\/p>\n

Detailformular<\/b><\/p>\n

Das Formular ist prinzipiell genau so aufgebaut wie ein handelsübliches Detailformular. Das bedeutet, dass wir mit der Tabelle tblPersonen <\/b>eine Datenherkunft festlegen und die in der Tabelle enthaltenen Felder als gebundene Felder zum Formular hinzufügen. Die Datenherkunft stellen Sie in der Entwurfsansicht über die gleichnamige Eigenschaft ein. Gleich danach können Sie die Felder der Datenherkunft aus der Feldliste (Menüeintrag Ansicht|Feldliste<\/b>) in den Detailbereich des Formularentwurfs ziehen (siehe Bild 1).<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Hinzufügen gebundener Felder zum Formularentwurf<\/span><\/b><\/p>\n

Navigation deaktivieren<\/b><\/p>\n

Sie können mit dem Formular in der Formularansicht nun wie gewohnt Daten eingeben. Zum Anlegen eines neuen Datensatzes klicken Sie auf die entsprechende Schaltfläche der Navigationsleiste, zum Löschen markieren Sie den Datensatz über den grauen Balken am linken Rand und betätigen anschließend die Löschen-Taste.<\/p>\n

Listenfeld hinzufügen<\/b><\/p>\n

Anschließend fügen Sie ein Listenfeld zum Formular hinzu, das im Entwurf nun beispielsweise wie in Bild 2 aussieht.<\/p>\n

\"pic002.png\"<\/p>\n

Bild 2: Das Formular mit Listenfeld und gebundenen Steuerelementen<\/span><\/b><\/p>\n

Für das Listenfeld legen Sie als Datensatzherkunft eine Abfrage namens qryPersonen <\/b>fest, die auf der Tabelle tblPersonen <\/b>basiert und wie in Bild 3 aussieht. Die Abfrage setzt die Felder der Tabelle tblPersonen <\/b>nach dem Schema <Nachname>, <Vorname> <\/b>zusammen und sortiert die Ergebnisliste alphabetisch nach dem Inhalt dieses Abfragefelds.<\/p>\n

\"pic003.png\"<\/p>\n

Bild 3: Diese Abfrage dient als Datensatzherkunft für das Listenfeld lstPersonen.<\/span><\/b><\/p>\n

Damit können Sie nun das Listenfeld bestücken, dem Sie zunächst den Namen lstPersonen<\/b> zuweisen. Dann stellen Sie die Eigenschaft Datensatzherkunft <\/b>auf den Wert qryPersonen <\/b>ein.<\/p>\n

Damit das Listenfeld nur die Bezeichnung der Person und nicht die ID anzeigt, setzen Sie außerdem die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf 2 <\/b>beziehungsweise 0cm<\/b>. Auf diese Weise wird die erste Spalte der Datensatzherkunft ausgeblendet und nur die zweite Spalte angezeigt.<\/p>\n

Sie könnten auch die erste Spalte anzeigen, aber gewöhnlich ist ihr Wert völlig uninteressant. Sie muss aber trotzdem in der Datensatzherkunft enthalten sein, weil sie ihre Einträge eindeutig macht und somit später hilft, auch den ausgewählten Datensatz in der Detailansicht anzuzeigen.<\/p>\n

Details anzeigen per Mausklick<\/b><\/p>\n

Wenn Sie bereits einige Beispieldatensätze in die Tabelle eingegeben haben, sollten die gebundenen Steuerelemente des Formulars sowie das Listenfeld bereits die gewünschten Daten anzeigen (siehe Bild 4).<\/p>\n

\"pic004.png\"<\/p>\n

Bild 4: Formular mit fehlender Synchronisation<\/span><\/b><\/p>\n

Dummerweise geschieht noch nichts, wenn wir einen anderen Datensatz aus dem Listenfeld auswählen, aber es sollte eigentlich beim Öffnen des Formulars gleich der oberste Eintrag im Listenfeld markiert sein und gleichzeitig im Detail angezeigt werden.<\/p>\n

Ersten Datensatz markieren<\/b><\/p>\n

Kümmern wir uns also erstmal darum, dass unser Listenfeld den ersten Datensatz gleich beim Öffnen des Formulars markiert. Legen wir also eine Ereignisprozedur für das Ereignis Beim Laden <\/b>des Formulars an und füllen es wie folgt:<\/p>\n

Private Sub Form_Load()\r\n    Me!lstPersonen = Me!lstPersonen.ItemData(0)\r\n    Me.Recordset.FindFirst \"PersonID = \" _\r\n    & Me!lstPersonen\r\n    End Sub<\/pre>\n
Die erste Anweisung dieser Prozedur weist dem Listenfeld als Wert den Inhalt der gebundenen Spalte (also der ersten Spalte) des ersten Eintrags des Listenfelds zu, wodurch dieser markiert wird. Die zweite ruft die FindFirst<\/b>-Methode des im Formular enthaltenen Recordsets auf und sorgt so dafür, dass das Formular den Datensatz mit der gleichen ID des im Listenfeld ausgewählten Eintrags anzeigt.<\/p>\n
Ausgewählten Datensatz anzeigen<\/b><\/p>\n
Danach kümmern wir uns um die Synchronisation zwischen Listenfeld und Detailansicht – zunächst vom Listenfeld aus. Wir verwenden die Ereigniseigenschaft Nach Aktualisierung<\/b>, um nach Auswahl eines anderen Eintrags die folgende Ereignisprozedur auszulösen:<\/p>\n
Private Sub lstPersonen_AfterUpdate()\r\n    Me.Recordset.FindFirst \"PersonID = \" _\r\n    & Me!lstPersonen\r\n    End Sub<\/pre>\n
Die einzige Anweisung dieser Prozedur dürfte Ihnen bekannt vorkommen – sie wurde bereits weiter oben für die Auswahl des Detaildatensatzes verwendet.<\/p>\n
<\/p>\n
Für den ersten Schritt reicht dies schon: Sie können den ausgewählten Datensatz bearbeiten, neue Datensätze hinzufügen und bestehende Datensätze löschen – allerdings ohne direktes Aktualisieren des Listenfelds. Dies holen wir nun nach.<\/p>\n
änderungen aktualisieren<\/b><\/p>\n
Immer wenn es um das Aktualisieren von Formularen oder Steuerelementen geht, muss man einen geeigneten Zeitpunkt auswählen. Der letztmögliche Zeitpunkt für die Aktualisierung des Listenfelds bei änderung der Details eines darin angezeigten Datensatzes ist der Zeitpunkt des Speicherns, der früheste ist der Zeitpunkt, zu dem der Benutzer einen der im Listenfeld angezeigten Werte ändert.<\/p>\n
Wir schauen uns zunächst an, wie das beim Speichern des aktuellen Detaildatensatzes des Formulars funktioniert. Das passende Ereignis heißt Nach Aktualisierung<\/b>. Es wird zum Beispiel ausgelöst, wenn Sie änderungen am Datensatz vorgenommen haben und diesen dann durch Anklicken des Datensatzmarkierers speichern oder zu einem anderen Datensatz wechseln. Für dieses Ereignis legen Sie die folgende Ereignisprozedur an:<\/p>\n
Private Sub Form_AfterUpdate()\r\n    Me!lstPersonen.Requery\r\n    End Sub<\/pre>\n
Diese aktualisiert einfach nur die im Listenfeld angezeigten Daten. Dabei wird ein großer Vorteil gegenüber der Darstellung der Liste etwa mit einem Unterformular in der Datenblattansicht sichtbar: Das Listenfeld aktualisiert zwar die angezeigten Daten, springt aber nicht etwa zur obersten Zeile, sondern behält sowohl den markierten Eintrag als auch die Position der aktuell angezeigten Datensätze bei.<\/p>\n
Übrigens werden die änderungen auch gespeichert und ins Listenfeld übernommen, wenn man während der Bearbeitung eines Detaildatensatzes, aber vor dem Speichern per Listenfeld zu einem neuen Datensatz wechselt.<\/p>\n
Der richtige Zyklus<\/b><\/p>\n
Im Standardzustand können Sie mit der Tab- oder der Eingabetaste von Feld zu Feld springen und so auch den Datensatz wechseln, wenn Sie sich gerade auf dem letzten Feld der Aktivierreihenfolge befinden (auf dem ersten Feld der Aktivierreihenfolge bewirken Sie bei gedrückter Umschalttaste das Gleiche).<\/p>\n
Hierfür müssen Sie eine Spezialbehandlung vorsehen: Entweder Sie sorgen dafür, dass das Formular nach dem Wechseln des Datensatzes über die Detailansicht automatisch den nun aktiven Eintrag im Listenfeld aktiviert, oder Sie unterbinden das Springen von Datensatz zu Datensatz.<\/p>\n
Letzteres geht einfach: Dazu stellen Sie einfach die Eigenschaft Zyklus <\/b>auf Aktueller Datensatz <\/b>ein. Wenn sich die Einfügemarke nun im letzten Steuerelement der Aktivierreihenfolge befindet und Sie die Tab- oder Eingabetaste drücken, springt die Einfügemarke auf das erste Steuerelement der Aktivierreihenfolge.<\/p>\n
Die andere Variante behält die Einstellung Alle Datensätze <\/b>für die Eigenschaft Zyklus <\/b>bei und sorgt programmatisch für das Synchronisieren des Listenfelds beim Datensatzwechsel. Wir verwenden hier die Ereigniseigenschaft Beim Anzeigen<\/b>, die bei jedem Datensatzwechsel ausgelöst wird. Die entsprechende Ereignisprozedur füllen wir wie folgt:<\/p>\n
Private Sub Form_Current()\r\n    Me!lstPersonen = Me!PersonID\r\n    End Sub<\/pre>\n
Dies stellt den Wert des Listenfelds auf den Primärschlüsselwert des aktuell im Formular ausgewählten Datensatzes ein.<\/p>\n
Listenfeld sofort aktualisieren<\/b><\/p>\n
Manch einer möchte vielleicht, dass das Listenfeld direkt bei änderung der darin angezeigten Daten aktualisiert wird, also beispielsweise gleich nach Eingabe oder Löschen eines Zeichens in einem der Steuerelemente.<\/p>\n
Das ist schwierig, weil das Listenfeld ja genau wie das Formular auf einer Datenherkunft basiert. Das bedeutet, dass es nur geänderte und auf die hinter der Datenherkunft stehende Tabelle übertragene Daten anzeigt. Dazu wiederum müsste man die änderungen sofort speichern, was nicht dem Standardverhalten von Access entspricht und gegebenenfalls Verunsicherung beim Benutzer hervorruft. Verunsicherung deshalb, weil der Datensatzmarkierer nicht wie üblich das Bearbeiten-Symbol anzeigt und darüber hinaus keine änderungen mehr durch Drücken der Escape-Taste rückgängig gemacht werden können.<\/p>\n
Dagegen klappt Folgendes aber einwandfrei: Legen Sie für jedes Steuerelement, dessen Inhalt auch im Listenfeld angezeigt wird, eine Ereignisprozedur für das Ereignis Bei änderung <\/b>an. Diese sieht wie folgt aus und speichert schlicht den aktuellen Datensatz:<\/p>\n
Private Sub Vorname_Change()\r\n    Application.RunCommand acCmdSaveRecord\r\n    End Sub<\/pre>\n
Das Listenfeld wird bei dieser Gelegenheit gleich automatisch mit geändert.<\/p>\n
Bei genauerem Besehen fällt allerdings schnell auf, dass sich bei dieser Vorgehensweise keine Leerzeichen eingeben lassen. Der Grund dafür ist einfach: Access speichert bei der Eingabe in Textfelder zwar führende, aber keine angehängten Leerzeichen.<\/p>\n
Um dies auszuprobieren, entfernen Sie zunächst die obige Ereignisprozedur wieder oder kommentieren diese aus. Geben Sie dann einen Ausdruck für ein Textfeld ein, der ein paar führende und ein paar angehängte Leerzeichen enthält. Speichern Sie den Datensatz per Mausklick auf den Datensatzmarkierer, setzen Sie den Fokus wieder auf das soeben bearbeitete Feld und prüfen Sie, ob die Leerzeichen noch da sind. Um es vorwegzunehmen: sie sind von Access abgeschnitten worden. Wie also gehen wir nun vor, wenn wir die Daten trotzdem sofort nach Eingabe jedes einzelnen Zeichens speichern möchten Dies gelingt durch die folgenden Schritte:<\/p>\n