{"id":55000244,"date":"2014-10-01T00:00:00","date_gmt":"2020-01-24T15:59:10","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=244"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Mehrere_Formularinstanzen_anzeigen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Mehrere_Formularinstanzen_anzeigen.html","title":{"rendered":"Mehrere Formularinstanzen anzeigen"},"content":{"rendered":"

Die Datensätze einer Tabelle zeigen Sie meist in einer übersicht wie einem Datenblatt oder einem Listenfeld an. Für die Bearbeitung öffnen Sie den gewünschten Datensatz in einem Detailformular, das die Felder der Tabelle übersichtlich anzeigt. Was aber, wenn Sie einmal mehr als einen Datensatz in der Detailansicht betrachten oder bearbeiten möchten In diesem Fall hilft die Lösung aus dem vorliegenden Artikel weiter. Wir zeigen Ihnen, wie Sie mehrere Instanzen des gleichen Formulars mit verschiedenen Datensätzen öffnen.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1405_MehrereFormularinstanzen.mdb<\/b>.<\/p>\n

Hintergrund<\/h2>\n

Es kann verschiedene Gründe geben, einmal mehr als einen Datensatz im Detail anzuzeigen. Vielleicht möchten Sie beispielsweise einfach einmal die Daten zweier oder mehrerer Datensätze vergleichen oder diese sogar aneinander anpassen, indem Sie die Feldinhalte von einem Formular zum anderen kopieren.<\/p>\n

Vermeintlich einfache Lösung<\/h2>\n

Der einfachste Weg, mehrere Datensätze gleichzeitig anzuzeigen, ist die Erstellung einiger entsprechender Formulare. Diese erhalten dann unterschiedliche Namen wie etwa frmArtikel_1<\/b>, frmArtikel_2<\/b>, frmArtikel_3 <\/b>et cetera. Dies hat aber gleich mehrere Nachteil: Erstens müssen Sie beim öffnen der Formulare aufpassen, welches schon geöffnet ist, welches der Benutzer vielleicht wieder geschlossen hat und vor allen, welcher Datensatz in welchem Formular angezeigt wird. Der zweite Nachteil ist, dass mehrere gleiche Objekte immer auch einen höheren Wartungsaufwand mit sich bringen: Sollten Sie also etwa vier gleiche Formulare verwenden, müssen Sie eine änderung entweder immer gleich an allen vier Formularen durchführen oder die mit einem Formular erledigen und die übrigen Formulare löschen und durch die neue Version ersetzen. Der dritte Nachteil ist, dass Sie immer nur eine begrenzte Anzahl von Formularen verwenden können. Gut, dieser Nachteil fällt nicht allzusehr ins Gewicht, denn ab einer bestimmten Anzahl verliert man ja auch den überblick. Das Fazit lautet jedenfalls: Wir suchen eine bessere Lösung.<\/p>\n

Bessere Lösung<\/h2>\n

Unser Ansatz sieht so aus, dass wir nur ein Detailformular erstellen und dieses zur Anzeige verschiedener Datensätze mehrfach öffnen. Darin steckt, wie Sie sich vorstellen können, etwas mehr Hirnschmalz und außerdem gehören dazu einige Spezialkenntnisse, die Ihnen der vorliegende Artikel vermitteln wird.<\/p>\n

Wir erstellen zunächst ein übersichtsformular frmArtikelUebersicht<\/b>, dass die Datensätze in einem Unterformular in der Datenblattansicht anzeigt. Der Benutzer soll nun einen der Datensätze markieren und diesen durch einen Klick auf eine Schaltfläche in einem Detailformular öffnen können.<\/p>\n

Das Unterformular, dass die Datensätze der Tabelle tblArtikel <\/b>in der Datenblattansicht anzeigen soll, heißt sfmArtikeluebersicht<\/b> und sieht wie in Bild 1 aus. Stellen Sie die Tabelle tblArtikel<\/b> als Datenherkunft <\/b>des Formulars ein und ziehen Sie alle Felder aus der Feldliste in den Formularentwurf. Legen Sie außerdem für die Eigenschaft Standardansicht <\/b>den Wert Datenblatt <\/b>fest.<\/p>\n

\"Unterformular<\/a><\/p>\n

Bild 1: Unterformular mit Artikeln<\/p>\n

Nun erstellen Sie das Hauptformular frmArtikeluebersicht<\/b> und ziehen das Unterformular, nachdem Sie es gespeichert und geschlossen haben, aus dem Navigationsbereich in die Entwurfsansicht des Hauptformulars. Fügen Sie dem Hauptformular außerdem eine Schaltfläche namens cmdArtikelAnzeigen <\/b>mit der Beschriftung Artikel anzeigen <\/b>hinzu. Das Hauptformular sieht dann wie in Bild 2 aus.<\/p>\n

\"Haupt-<\/a><\/p>\n

Bild 2: Haupt- und Unterformular zur Auswahl der Detailansichten<\/p>\n

Detailformular erstellen<\/h2>\n

Nun benötigen wir noch das Detailformular namens frmArtikeldetails<\/b>, von dem wir später mehrere Instanzen anzeigen möchten. Dieses füllen Sie ebenfalls mit der Tabelle tblArtikel <\/b>als Datenherkunft. Ziehen Sie auch hier alle Felder der Datenherkunft in den Detailbereich der Entwurfsansicht. Allerdings dürfen Sie hier ein etwas ordentlicher bei der Anordnung sein, denn die Felder sollen ja nicht in der Datenblattansicht erscheinen, sondern so, wie diese auch im Entwurf aussehen – also wie in Bild 3.<\/p>\n

\"Entwurf<\/a><\/p>\n

Bild 3: Entwurf des Detailformulars<\/p>\n

Dort haben wir den Artikelnamen nochmals an oberster Stelle im Formularkopf untergebracht, damit der Benutzer direkt sieht, um welchen Artikel es sich handelt. Stellen Sie die Eigenschaften Navigationsschaltflächen<\/b>, Bildlaufleisten <\/b>und Datensatzmarkierer <\/b>jeweils auf den Wert Nein <\/b>ein, damit das Formular wie in Bild 4 aussieht.<\/p>\n

\"Das<\/a><\/p>\n

Bild 4: Das Detailformular in der Formularansicht<\/p>\n

Herkömmlicher Aufruf<\/h2>\n

Die Schaltfläche cmdArtikelAnzeigen <\/b>füllen wir nun zunächst mit der üblicherweise verwendeten Methode zum Anzeigen eines Formulars mit einem speziellen Datensatz. Dazu wählen Sie im Eigenschaftsfenster des Formulars frmArtikel-uebersicht <\/b>in der Entwurfsansicht den Wert [Ereignisprozedur] <\/b>aus und klicken dann auf die Schaltfläche rechts neben der Eigenschaft.<\/p>\n

Dies öffnet den VBA-Editor mit einem neuen Klassenmodul für das Formular frmArtikeluebersicht<\/b>. Dort finden Sie direkt die gewünschte Prozedur cmdArtikelAnzeigen_Click <\/b>vor, die Sie nun wie in Listing 1 mit Code füllen.<\/p>\n

Private Sub <\/span>cmdArtikelAnzeigen_Click()\r\n     Dim <\/span>lngArtikelID As Long<\/span>\r\n     lngArtikelID = Nz(Me!sfmArtikeluebersicht.Form!ArtikelID)\r\n     If <\/span>Not<\/span> lngArtikelID = 0 Then<\/span>\r\n         DoCmd.OpenForm \"frmArtikeldetails\", WhereCondition:=\"ArtikelID = \" & lngArtikelID\r\n     Else<\/span>\r\n         MsgBox<\/span> \"Wählen Sie zunächst einen Artikel aus der Liste aus.\"\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: öffnen des Formulars frmArtikeldetails<\/p>\n
Die Prozedur deklariert eine Variable namens lngArtikelID<\/b>, welche den Primärschlüsselwert des aktuell im Unterformular markierten Artikels aufnehmen soll. Die folgende Anweisung ermittelt diesen Wert mit dem Ausdruck Nz(Me!sfmArtikeluebersicht.Form!ArtikelID)<\/b>. Der Ausdruck in der Klammer arbeitet sich über das aktuelle Formular (Me<\/b>) über das Unterformular-Steuerelement (sfmArtikeluebersicht<\/b>) zu dem enthaltenen Formular (Form<\/b>) bis zu dem Feld ArtikelID <\/b>des aktuellen Datensatzes durch.<\/p>\n
Dabei dürfen Sie nicht das Unterformular-Steuerelement und das Unterformular selbst verwechseln, auch wenn beide den gleichen Namen tragen – das Unterformular selbst referenzieren Sie erst mit der Eigenschaft Form <\/b>des Unterformular-Steuerelements.<\/p>\n
Wenn das Unterformular leer ist oder der Benutzer den Datensatzzeiger gerade auf dem leeren, neuen Datensatz platziert hat, liefert dies den Wert Null <\/b>zurück. In diesem Fall sorgt die Funktion Nz<\/b>, welche den obigen Ausdruck umschließt, dafür, dass in diesem Fall die Zahl 0 <\/b>in der Variablen lngArtikelID <\/b>landet.<\/p>\n
Sollte lngArtikelID <\/b>danach einen Wert ungleich 0 <\/b>enthalten, ruft die Prozedur im ersten Teil einer entsprechend formulierten If…Then<\/b>-Bedingung die Methode OpenForm <\/b>des DoCmd<\/b>-Objekts auf, die zwei Parameter verwendet: Mit „frmArtikeldetails“ <\/b>den Namen des zu öffnenden Formulars und mit WhereCondition:=“ArtikelID = “ & lngArtikelID <\/b>die Bedingung für die Datenherkunft des zu öffnenden Formulars. Letztere lautet nach dem Zusammensetzen etwa so:<\/p>\n
ArtikelID = 12<\/pre>\n
Sollte sich der Datensatzzeiger im Unterformular gerade nicht auf einem Datensatz befinden, erhält lngArtikel-ID <\/b>den Wert 0<\/b>. Dies führt zum Else<\/b>-Teil der If…Then<\/b>-Bedingung, in dem die Prozedur lediglich eine Meldung ausgibt, dass aktuell kein Datensatz markiert ist.<\/p>\n
Das Ergebnis sehen Sie in Bild 5: Die Prozedur öffnet das Formular frmArtikeldetails <\/b>und zeigt den aktuell im Unterformular markierten Datensatz an.<\/p>\n
\"öffnen<\/a><\/p>\n
Bild 5: öffnen eines Detailformulars für den aktuell markierten Artikel<\/p>\n
Probieren wir nun aus, was geschieht, wenn wir ein zweites Mal auf die Schaltfläche cmdArtikelAnzeigen <\/b>klicken. Das Formular frmArtikeldetails <\/b>flackert kurz, dann zeigt es den aktuell im Unterformular ausgewählten Datensatz an. Wir können also immer wieder einen anderen Datensatz anzeigen, ohne das Detailformular zu schließen, aber nicht mehrere Artikel gleichzeitig.<\/p>\n
Mehrere Formulare, erster Versuch<\/h2>\n
Um mehrerer Detailformulare zu öffnen, gehen wir einen anderen Weg. Dazu bedarf es zunächst einiger Erläuterungen. Genau wie beispielsweise das Recordset<\/b>-Objekt ist auch ein Formular nichts anderes als ein Objekt, basierend auf einer Klasse. Sie können mehrere Recordset<\/b>-Objekte erzeugen, und dies gelingt auch mit Formularen – allerdings nicht mit der oben verwendeten Methode DoCmd.OpenForm<\/b>.<\/p>\n
Während wir damit eine Instanz des Formulars öffnen, die ohne weiteres Zutun existiert, müssen wir beim expliziten Erzeugen eines Formular-Objekts erst eine Objektvariable anlegen, die einen Verweis auf das Formular speichert – anderenfalls würde das Formular gleich wieder im Nirvana verschwinden.<\/p>\n
Diese Variable deklarieren wir sinnvollerweise direkt im Kopf des Klassenmoduls Form_frmArtikeluebersicht<\/b>, damit diese nicht gleich beim Beenden der Prozedur, die das Formular erzeugt und die Variable füllt, gelöscht wird – und damit auch das Formular.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t