<\/p>\n
Es scheint in Stein gemeißelt: Neue Datensätze werden unter Access immer unten, am Ende der Datensatzliste, angehängt. Das gilt sowohl für die Datenblattansicht als auch für die Endlosansicht. Für uns kein Anlass, es nicht doch einmal auszuprobieren. Mit ein paar Tricks schaffen wir es schließlich, eine passable Datenblattansicht zu programmieren, die scheinbar das Anfügen eines neuen Datensatzes in der obersten Zeile der Datenblattansicht erlaubt.<\/b><\/p>\n
Wenn Sie in der Datenblattansicht unter Access einen neuen Datensatz einfügen möchten, haben Sie nur eine Möglichkeit: Sie klicken in der Navigationsleiste auf die Schaltfläche für einen neuen Datensatz und fügen den neuen Datensatz dann unten an (siehe Bild 1). Das gilt aber auch nur, wenn diese Leiste sichtbar ist – anderenfalls gelangen Sie nur durch Scrollen oder entsprechende Tastenkombinationen zum Ende der Liste. Oder Sie nutzen den Ribbon-Eintrag Start|Datensätze|Neu<\/b>, um zu einem neuen, leeren Datensatz zu gelangen.<\/p>\n
![\"Datensätze](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_001.png\")
<\/p>\n
Bild 1: Datensätze werden unter Access unten angefügt.<\/span><\/b><\/p>\n Nun, wir wollen schauen, ob wir nicht doch einen Weg finden, den neuen, leeren Datensatz oben im Datenblatt anzuzeigen. Das wäre zum Beispiel praktisch, wenn Sie ohnehin immer die neuesten Einträge oben anzeigen und dort auch neue Datensätze anlegen wollen.<\/p>\n Wie aber können wir dies realisieren Ganz klar: Mit einem einzigen Unterformular in der Datenblatt-Ansicht bekommen wir dies nicht hin. Wir zauben im oberen Bereich unseres Hauptformulars ein zweites Unterformular mit der gleichen Datenherkunft hin, die auch das eigentliche Unterformular aufweist.<\/p>\n Der Unterschied: Das obere Unterformular soll nur der Eingabe eines neuen Datensatzes dienen und sonst keine Datensätze anzeigen. Das untere Datenblatt soll im Gegenzug keine Möglichkeit mehr bieten, einen neuen Datensatz anzulegen.<\/p>\n Soweit, so gut: Damit das obere Formular nur einen neuen, leeren Datensatz anzeigt, brauchen wir diesem lediglich einen Filter hinzuzufügen, der die Anzeige aller anderen Datensätze verhindert – also beispielsweise 1:2.<\/p>\n Damit der neue, leere Datensatz am Ende des zweiten Unterformulars, das ansonsten alle Datensätze anzeigen soll, nicht mehr erscheint, stellen wir einfach die Eigenschaft Anfügen zulassen <\/b>auf den Wert Nein <\/b>ein.<\/p>\n Und dann kommt da natürlich noch ein geschicktes Arrangement der beiden Unterformulare, damit diese wie ein einziges Unterformular aussehen. Doch eins nach dem anderen!<\/p>\n Das Hauptformular unserer Anwendung, die wieder auf die Tabellen der Südsturm-Datenbank zugreift, soll frmArtikel <\/b>heißen. Legen Sie dieses an und lassen Sie es in der Entwurfsansicht geöffnet. Stellen Sie direkt die Eigenschaften Datensatzmarkierer <\/b>und Navigationsschaltflächen <\/b>auf Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Das erste Unterformular soll sfmArtikelNeu <\/b>heißen. Weisen Sie seiner Eigenschaft Datenherkunft <\/b>die Tabelle tblArtikel <\/b>zu. Stellen Sie außerdem die Eigenschaft Standardansicht <\/b>auf Datenblatt <\/b>ein. Dann speichern und schließen Sie das Formular und ziehen es aus dem Navigationsbereich von Access in den Detailbereich des noch in der Entwurfsansicht geöffneten Hauptformulars (siehe Bild 2).<\/p>\n Bild 2: Einfügen des ersten Unterformulars in das Hauptformular<\/span><\/b><\/p>\n Dieses Formular wollen wir gleich ein wenig breiter gestalten, und zwar so, dass die Felder in der Datenblattansicht nicht die ganze Breite einnehmen und somit keine horizontale Bildlaufleiste angezeigt werden muss. Außerdem können wir die Höhe des Formulars auch gleich soweit reduzieren, dass diese lediglich die Spaltenköpfe und die erste Zeile anzeigt. Das sieht dann etwa wie in Bild 3 aus.<\/p>\n Bild 3: Das Unterformular sollte breit genug sein, damit keine horizontale Bildlaufleiste eingeblendet werden muss.<\/span><\/b><\/p>\n Die Navigationsleiste soll dieses Formular gar nicht anzeigen, daher stellen wir die Eigenschaft Navigationsschaltflächen <\/b>auf den Wert Nein <\/b>ein – ebenso wie die Eigenschaft Bildlaufleisten<\/b>. Dann können wir in die Formularansicht des Hauptformulars wechseln und die Höhe des Unterformulars kontrollieren. Dieses sollte genau so hoch sein wie in Bild 4 abgebildet.<\/p>\n Bild 4: Die Höhe stellen wir so ein, dass soeben die Markierung der Linie unter dem neuen Datensatz sichtbar ist.<\/span><\/b><\/p>\n Damit das Unterformular erst gar keine Datensätze anzeigt, sondern nur den leeren, neuen Datensatz, hinterlegen wir für die Ereigniseigenschaft Beim Laden <\/b>die folgende Ereignisprozedur:<\/p>\n Dadurch werden nur die Datensätze angezeigt, für welche die Bedingung 1=2 <\/b>gilt – also gar keiner.<\/p>\n Danach begeben wir uns an das zweite Unterformular, das wir sfmArtikel <\/b>nennen. Es soll ebenfalls die Tabelle tblArtikel <\/b>als Datenherkunft verwenden und seine Daten in der Datenblattansicht anzeigen. Darüber hinaus stellen wir seine Eigenschaft Anfügen zulassen <\/b>auf den Wert Nein <\/b>ein. Wie weiter oben bereits beschrieben, soll die Zeile mit dem leeren, neuen Datensatz hier nicht nochmals auftauchen.<\/p>\n Anschließend fügen wir dieses Formular ebenfalls in das Hauptformular frmArtikel <\/b>ein. Dieses bringen wir auf die gleiche Breite wie das Unterformular sfmArtikelNeu <\/b>und eine beliebige Höhe. Im Entwurf sehen die beiden Unterformulare nun wie in Bild 5 aus.<\/p>\n Bild 5: Hauptformular mit den beiden Unterformularen<\/span><\/b><\/p>\n Nun kommt der interessante Teil. Wenn wir uns die Unterformulare in der Formularansicht des Hauptformulars ansehen, erhalten wir die Ansicht aus Bild 6. Wir haben also im oberen Bereich das Unterformular sfmArtikelNeu<\/b>, das nur den leeren, neuen Datensatz anzeigt und keine Navigationsschaltflächen und im unteren Bereich das Unterformular sfmArtikel<\/b>, das alle Datensätze und Navigationsschaltflächen enthält, aber keinen neuen, leeren Datensatz.<\/p>\n Bild 6: Hauptformular mit den beiden Unterformularen in der Formularansicht<\/span><\/b><\/p>\n Was stört Natürlich die Spaltenüberschriften des unteren Unterformulars. Wie ändern wir das In dem wir einfach das Unterformular sfmArtikel <\/b>unter das Unterformular sfmArtikelNeu <\/b>schieben. Die Sache hat einen kleinen Haken, denn da wir das Unterformular sfmArtikelNeu <\/b>zuerst angelegt haben, liegt es in der Z-Reihenfolge unter dem Formular sfmArtikel<\/b>. Das können wir aber leicht ändern, indem wir das Formular sfmArtikelNeu <\/b>einmal ausschneiden (Strg + X<\/b>) und es direkt wieder einfügen (Strg + V<\/b>).<\/p>\n Dadurch verschieben wir es in der Z-Reihenfolge über das Formular sfmArtikel<\/b>. Nun schieben wir das Formular sfmArtikel <\/b>soweit nach oben, dass sich das Lineal der Entwurfsansicht unter die Bildlaufleiste von sfmArtikelNeu <\/b>verschiebt (siehe Bild 7). In diesem Bild ist das Unterformular sfmArtikelNeu <\/b>markiert.<\/p>\n Bild 7: Das Formular sfmArtikelNeu überlappt nun das Formular frmArtikel<\/span><\/b><\/p>\n Wie sieht dies nun in der Formularansicht aus So gut wie perfekt, wie Bild 8 zeigt. Ganz oben wird der leere, neue Datensatz angezeigt, darunter befinden sich die vorhandenen Datensätze. Sind wir damit fertig Nein! Es warten noch eine Menge Aufgaben auf uns:<\/p>\n Bild 8: Das Formular, das den neuen Datensatz scheinbar ganz oben anzeigt<\/span><\/b><\/p>\n Wenn wir nun einen neuen Datensatz im Unterformular sfmArtikelNeu <\/b>anlegen, soll dieser nach dem Speichern im Unterformular sfmArtikel <\/b>angezeigt werden. Dazu müssen wir dieses nach dem Anfügen eines neuen Datensatzes aktualisieren. Wir müssen also ein Ereignis im Unterformular sfmArtikelNeu <\/b>abfangen und daraufhin eine Methode des Unterformulars sfmArtikel <\/b>ausführen. Wie erledigen wir das am geschicktesten Und welches Ereignis wollen wir überhaupt nutzen<\/p>\n <\/p>\n Doch schauen wir uns zunächst einmal an, was geschieht, wenn wir überhaupt einen neuen Datensatz anlegen. Bei der Eingabe des ersten Zeichens oder auch schon vorher kann es geschehen, dass plötzlich die horizontale Bildlaufleiste des Unterformulars auftaucht und die Zeile zur Eingabe verdeckt. In diesem Fall haben Sie offensichtlich die beiden Unterformulare nicht breit genug gestaltet, sodass die Bildlaufleiste notwendig wird. Also verbreitern Sie nun zunächst die beiden Unterformulare so, dass alle Felder komfortabel Platz finden.<\/p>\n Danach beginnen wir, einen neuen Datensatz anzulegen. Das gelingt auch zunächst wie gewohnt – der Datensatzmarkierer erhält das Bearbeiten-Symbol und ein neuer Wert für das Feld ArtikelID <\/b>wird angelegt (siehe Bild 9). Wenn wir die übrigen Felder füllen und dann den Datensatz durch einen Klick auf den Datensatzmarkierer oder durch Verlassen der Zeile speichern, geschieht genau dies – der Datensatz wird gespeichert. Mehr passiert allerdings nicht.<\/p>\n Bild 9: Hinzufügen eines neuen Datensatzes<\/span><\/b><\/p>\n Der neue Datensatz bleibt in der Zeile stehen, die normalerweise zum Anlegen weiterer neuer Datensätze genutzt werden soll. Und der neue Datensatz erscheint auch nicht automatisch im unteren Unterformular sfmArtikel<\/b>.<\/p>\n Davon abgesehen können wir im Unterformular sfmArtikelNeu <\/b>nun nach unten zum nächsten neuen Datensatz scrollen – immerhin.<\/p>\n Wie bekommen wir es nun hin, dass erstens der neue Datensatz aus dem Unterformular sfmArtikelNeu <\/b>verschwindet und dieser zweitens im Unterformular sfmArtikel <\/b>erscheint Dazu verwenden wir eine Ereignisprozedur, die beim Speichern des neuen Datensatzes ausgelöst wird, nämlich Nach Aktualisierung<\/b>.<\/p>\n Diese könnten wir nun direkt im Unterformular sfmArtikelNeu <\/b>auslösen und dann das Unterformular selbst per Requery <\/b>und das Unterformular sfmArtikel <\/b>über den Bezug Me!Parent!sfmArtikel.Form <\/b>aktualisieren. Das gefällt uns stilistisch aber nicht, sodass wir die Ereignisprozedur im Klassenmodul des Hauptformulars implementieren.<\/p>\n Dort legen wir zunächst zwei Objektvariablen für die beiden Unterformulare sfmArtikelNeu <\/b>und sfmArtikel <\/b>an:<\/p>\n Diese statten wir mit dem Schlüsselwort WithEvents <\/b>aus, damit wir Ereignisprozeduren für diese beiden Formulare hier in diesem Klassenmodul implementieren können.<\/p>\n Die Ereignisprozedur, die durch das Auslösen des Ereignisses Beim Laden <\/b>ausgelöst wird, nutzen wir, um diese Variablen mit Verweisen auf die beiden Unterformulare zu füllen:<\/p>\n Die ersten beiden Anweisungen füllen die Objektvariablen sfm <\/b>und sfmNeu <\/b>mit den Verweisen auf die Unterformulare.<\/p>\n Danach stellen wir Eigenschaften für das Unterformular sfmArtikelNeu <\/b>ein. Die Filter<\/b>-Eigenschaften hatten wir bereits vorher für Me!sfmArtikelNeu.Form <\/b>eingestellt und setzen diese nun für sfmNeu<\/b>. Außerdem legen wir mit der Eigenschaft AfterUpdate <\/b>fest, dass wir in diesem Klassenmodul auf das Auslösen des Ereignisses Nach Aktualisierung <\/b>des Unterformulars sfmArtikelNeu <\/b>lauschen.<\/p>\n Anschließend können wir das Ereignis AfterUpdate<\/b> für die Variable sfmNeu <\/b>aus der Liste der Ereignisse im rechten Kombinationsfeld auswählen, nachdem wir im linken Kombinationsfeld den Wert sfmNeu<\/b> ausgewählt haben (siehe Bild 10). Hier aktualisieren wir nun einfach beide Unterformulare:<\/p>\n Bild 10: Anlegen von Ereignisprozeduren für WithEvents-Variablen<\/span><\/b><\/p>\n Wenn Sie das Formular nun schließen und erneut öffnen, damit die Variablen beim Laden des Formulars gefüllt werden können und einen neuen Datensatz eingegeben haben, werden die beiden Unterformulare aktualisiert. Das führt dazu, dass das Unterformular sfmArtikelNeu <\/b>nun wieder den leeren, neuen Datensatz anzeigt und das Unterformular sfmArtikel <\/b>den neuen Datensatz liefert.<\/p>\n Wenn wir nun die Sortierung des zweiten Unterformulars ebenfalls in der Ereignisprozedur Beim Laden <\/b>so einstellen, dass die neuesten Datensätze anz oben angezeigt werden, finden Sie den neu hinzugefügten Datensatz auch direkt unter der Zeile für den neuen, leeren Datensatz vor.<\/p>\n Wenn wir nun einen neuen Datensatz anfügen, sieht das während der Eingabe wie in Bild 11 aus.<\/p>\n Bild 11: Vor dem Speichern eines neuen Datensatzes …<\/span><\/b><\/p>\n Nachdem die Eingabe abgeschlossen ist, landet der neue Datensatz direkt unter dem neuen, leeren Datensatz im zweiten Unterformular (siehe Bild 12).<\/p>\n Bild 12: … und nach dem Speichern.<\/span><\/b><\/p>\n Nun gibt es allerdings über die Spaltenköpfe der Datenblattansicht die Möglichkeit, die Sortierung und die Filterung der enthaltenen Datensätze zu beeinflussen (siehe Bild 13). An dieser Stelle müssen wir berücksichtigen, dass die Spaltenköpfe, die oben angezeigt werden, ja nur zum oberen Unterformular zur Eingabe neuer Datensätze gehört und nicht zum Unterformular sfmArtikel<\/b>.<\/p>\n Bild 13: Setzen eines benutzerdefinierten Filters<\/span><\/b><\/p>\n Dessen Spaltenköpfe sind ja hinter dem Unterformular sfmArtikelNeu <\/b>verborgen. Wenn wir dem Benutzer die Illusion erhalten wollen, dass er mit einem Formular arbeitet, in das er die Datensätze ganz oben eingeben kann, müssen wir ein wenig tricksen.<\/p>\n Das sieht so aus, dass wir wiederum Ereignisse abfangen müssen – und zwar diejenigen, die durch das Filtern und das Sortieren ausgelöst werden. Das Ereignis für das Setzen eines Filters ist schnell gefunden: Es heißt im Eigenschaftsfenster Bei angewendetem Filter<\/b>, unter VBA OnApplyFilter<\/b>.<\/p>\n Damit wir es im Klassenmodul des Hauptformulars implementieren können, stellen wir die Eigenschaft OnApplyFilter <\/b>in der Ereignisprozedur Form_Load <\/b>auf [Event Procedure] <\/b>ein:<\/p>\n Die Implementierung wird indes etwas komplizierter. Der Kern sieht schon einmal so aus:<\/p>\n Warum wird es kompliziert Nun: Für das erste Unterformular sfmArtikelNeu <\/b>legen wir ja bereits beim Laden einen Filter mit dem Kriterium 1=2 <\/b>fest. Wenn wir also nun über das Menü, das wir mit der Pfeil nach unten-Taste öffnen können, eines der Filterkriterien auswählen, beispielsweise Beginnt mit… <\/b>und etwa den Buchstaben C <\/b>als Kriterium eingeben, sollte aber nur dieses Filterkriterium auf das zweite Unterformular angewendet werden, nicht aber das Kriterium 1=2<\/b>. Dann würden nämlich keine Datensätze im Unterformular erscheinen.<\/p>\n Also schauen wir uns erst einmal an, wie der aus 1=2 <\/b>und unserem hinzugefügten Kriterium bestehende Filterausdruck nun aussieht. Dazu geben wir im Direktbereich des VBA-Editors die folgende Anweisung ein:<\/p>\n Aus diesem Ausdruck müssen wir nun den hinteren Teil herausnehmen. Zuvor schauen wir uns allerdings noch an, was geschieht, wenn wir den Filter über den Eintrag Filter löschen aus Artikelname <\/b>wieder entfernen. Danach sieht der Filter so aus:<\/p>\n Grundsätzlich ist das in Ordnung. Aber wo kommt das zweite Paar Klammern her Fügen wir nochmals einen Filter hinzu, diesmal für alle Einträge, deren Artikelname mit dem Buchstaben D <\/b>beginnt. Danach erhalten wir folgenden Filterausdruck:<\/p>\n Offensichtlich fügt Access also bei jeder änderung des Filters ein neues Klammern zum Ausdruck 1=2 <\/b>hinzu. Wir müssen die Methode, die den gewünschten Filterausdruck von unserem Kriterium 1=2 <\/b>trennt, theoretisch etwas aufwendiger gestalten. Außer natürlich, man geht einfach davon aus, dass wir einfach nach dem ersten AND<\/b> suchen und den Teil dahinter als Kriterium für das Unterformular verwenden. Probieren wir also aus, ob das funktioniert:<\/p>\n Dies funktioniert erstmal ganz gut. Die Prozedur erfasst nach dem Setzen des Filters den Filter des Formulars sfmArtikelNeu <\/b>in der Variablen strFilter<\/b>. Das sieht dann etwa so aus:<\/p>\n Nun ermittelt die Prozedur, ob sich ein AND <\/b>im Filterausdruck befindet. Ist das der Fall, schneidet sie den Teil bis zum AND <\/b>ab und behält nur den Rest. In unserem Fall:<\/p>\n Perfekt – dieser Ausdruck landet nun in der Eigenschaft Filter des Unterformulars und wir aktivieren diesen noch durch Setzen der Eigenschaft FilterOn<\/b> auf den Wert True<\/b>. Sollte kein AND <\/b>enthalten sein, ist der Filter wohl geleert worden und wir stellen die Filter<\/b>-Eigenschaft für das Unterformular sfmArtikel <\/b>auf eine leere Zeichenfolge ein.<\/p>\n Dies blendet alle Datensätze wieder ein. Außerdem leeren wir das obere Formular sfmArtikelNeu <\/b>wieder, indem wir dessen Filter wieder auf 1=2 <\/b>einstellen und diesem mit FilterOn = True <\/b>aktivieren.<\/p>\n Sind wir fertig mit dem Filter Nein, wir wollen noch ausprobieren, was geschieht, wenn wir ein zweites Kriterium setzen. Also erst Artikelname beginnt mit C<\/b>, dann Artikelname enthält D<\/b>.<\/p>\n Leider erhalten wir dann den Fehler aus Bild 14. Was ist hier passiert Schauen wir uns den Filterausdruck an, der für die Filter<\/b>-Eigenschaft des Unterformulars sfmArtikelNeu <\/b>hinterlegt wurde:<\/p>\n Bild 14: Fehler beim Setzen des Filters<\/span><\/b><\/p>\n Hier fällt uns noch nichts auf. Schauen wir uns dann an, wie der aktuelle Inhalt der Variablen strFilter <\/b>nach dem Abtrennen des Kriteriume 1=2 <\/b>aussieht:<\/p>\n Dieser sieht auch zunächst unauffällig aus – es handelt sich halt um den hinteren Teil, den vorderen Teil haben wir ja abgeschnitten. Beim Klammern-Zählen fällt dann allerdings auf, dass wir offensichtlich vorn eine Klammer zu viel abgeschnitten haben.<\/p>\n Und da wird es deutlich: Access hat den gesamten Ausdruck vor dem Hinzufügen des neuen Kriteriums in ein neues Klammernpaar eingefasst. Deshalb haben wir vorn eine Klammer zu viel abgeschnitten.<\/p>\n Also machen wir es uns nun etwas einfacher und ersetzen einfach nur 1=2 <\/b>durch 1=1<\/b>:<\/p>\n Damit wird der Filter nun zuverlässig gesetzt.<\/p>\n Nun kommt die scheinbar komplizierte Aufgabe, was die Umsetzung der per Kontextmenü ausgewählten Befehle angeht — die Sortierung. Diese wird angewendet, wenn wir einen der beiden Befehle Von A bis Z sortieren <\/b>oder Von Z bis A sortieren <\/b>auswählen (siehe Bild 15).<\/p>\n Bild 15: Aufrufen einer Sortierung<\/span><\/b><\/p>\n Dumm nur: Wir finden in den Ereignissen des Formulars keine einzige Eigenschaft, die namentlich etwas mit dem Sortieren zu tun hat.<\/p>\n Was nun Wie es der Zufall will, hatte ich beim Auswählen einer der beiden Sortierungen noch einen Haltepunkt auf der Ereignisprozedur sfmNeu_ApplyFilter <\/b>stehen, der prompt angesteuert wurde.<\/p>\n Diese Methode wird also auch ausgelöst, wenn man einen der Sortieren-Befehle des Kontextmenüs auswählt. Beim Blick auf die Definition dieser Ereignisprozedur fällt dann auch der Parameter ApplyType <\/b>auf, den wir uns nun genauer ansehen. Dazu fügen wir eine entsprechende Debug.Print<\/b>-Anweisung in die Prozedur ein:<\/p>\n Wenn wir nun einen Filter setzen, liefert der Parameter ApplyType <\/b>den Wert 1<\/b>. Das gilt auch für das Löschen des Filters. Diesen Wert erhalten wir allerdings auch, wenn wir eine Sortierung einstellen. Wann also tauchen andere Werte als 1 <\/b>oder acApplyFilter <\/b>auf Das ist der Fall, wenn Sie eine .adp<\/b>-Anwendung nutzen – dann erhalten wir an dieser Stelle den Wert 3 <\/b>oder acApplyServerFilter<\/b>.<\/p>\n Also müssen wir in der Ereignisprozedur sfmNeu_ApplyFilter <\/b>immer auch prüfen, welche Sortierung gerade für das Unterformular sfmArtikelNeu <\/b>eingestellt ist und dieses auf sfmArtikel <\/b>übertragen. Dazu ergänzen wir die Prozedur wie folgt:<\/p>\n Auf diese Weise werden die Werte der beiden Eigenschaften OrderBy <\/b>und OrderByOn <\/b>immer von sfmNeu <\/b>auf sfm <\/b>übertragen.<\/p>\n Wir müssen auch noch berücksichtigen, dass der Benutzer gegebenenfalls einmal über de Spaltenköpfe die Spaltenbreiten des Datenblatts anpasst.<\/p>\n Also schauen wir uns dies auch noch an – allerdings in einem weiteren Artikel namens Spalten zweier Datenblätter synchronisieren <\/b>(www.access-im-unternehmen.de\/****<\/b>). <\/p>\n Dieser Beitrag zeigt, wie Sie die unter Access übliche Konstellation, dass neue Datensätze im Datenblatt immer unten angelegt werden müssen, ändern können.<\/p>\n Dafür sind zwar ein paar Tricks nötig, aber das ist ja das Schöne an Access: Es bietet so viele Möglichkeiten, dass man die meisten Dinge an seine Bedürfnisse anpassen kann.<\/p>\n Sie müssen bei der hier vorgestellten Lösung zwar ein paar kleinere Einschränkungen hinnehmen wie etwa die Tatsache, dass Sie die Unterformularsteuerelemente so breit gestalten müssen, dass diese alle in den Spalten angezeigten Informationen aufnehmen können. Anderenfalls würde im oberen Formular die horizontale Bildlaufleiste eingeblendet werden, wodurch der neue, leere Datensatz nicht mehr sichtbar ist.<\/p>\n Im Beitrag Spalten zweier Datenblätter synchronisieren <\/b>werden wir uns auch noch ansehen, wie wir dafür sorgen können, dass der Benutzer die Spaltenbreiten nicht so groß macht, dass die Gesamtbreite größer als die Breite des Unterformulars wird.<\/p>\n Enthaltene Beispieldateien:<\/p>\n NeuerDatensatz.accdb<\/p>\nNeuer Datensatz dank zweitem Unterformular<\/h2>\n
Hauptformular erstellen<\/h2>\n
Erstes Unterformular<\/h2>\n
![\"Einfügen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_002.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_003.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_004.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!sfmArtikelNeu.Form.Filter = \"1=2\"\r\n Me!sfmArtikelNeu.Form.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\nZweites Unterformular erstellen und einfügen<\/h2>\n
![\"Hauptformular](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_005.png\")
<\/p>\nUnterformulare überlagern<\/h2>\n
![\"Hauptformular](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_006.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_007.png\")
<\/p>\nErster Test<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_008.png\")
<\/p>\n\n
Anlegen eines neuen Datensatzes<\/h2>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_009.png\")
<\/p>\nDim <\/span>WithEvents sfmNeu As <\/span>Form\r\nDim <\/span>WithEvents sfm As <\/span>Form<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> sfm = Me!sfmArtikel.Form\r\n Set<\/span> sfmNeu = Me!sfmArtikelNeu.Form\r\n With<\/span> sfmNeu\r\n .AfterUpdate = \"[Event Procedure]\"\r\n .Filter = \"1=2\"\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anlegen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_010.png\")
<\/p>\nPrivate Sub <\/span>sfmNeu_AfterUpdate()\r\n sfmNeu.Requery\r\n sfm.Requery\r\nEnd Sub<\/span><\/pre>\nSortierung ändern<\/h2>\n
![\"Vor](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_011.png\")
<\/p>\n![\"...](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_012.png\")
<\/p>\nFilter und Sortierung zur Laufzeit ändern<\/h2>\n
![\"Setzen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_013.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> sfmNeu = Me!sfmArtikelNeu.Form\r\n With<\/span> sfmNeu\r\n ...\r\n .OnApplyFilter = \"[Event Procedure]\"\r\n End With<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>sfmNeu_ApplyFilter(Cancel As Integer<\/span>, ApplyType As Integer<\/span>)\r\n ...\r\nEnd Sub<\/span><\/pre>\n Screen.ActiveForm!sfmArtikelNeu.Form.Filter\r\n(1=2) AND ([tblArtikel].[Artikelname] Like \"C*\")<\/pre>\n
Screen.ActiveForm!sfmArtikelNeu.Form.Filter\r\n((1=2))<\/pre>\n
Screen.ActiveForm!sfmArtikelNeu.Form.Filter\r\n(((1=2))) AND ([tblArtikel].[Artikelname] Like \"D*\")<\/pre>\n
Private Sub <\/span>sfmNeu_ApplyFilter(Cancel As Integer<\/span>, ApplyType As Integer<\/span>)\r\n Dim <\/span>strFilter As String<\/span>\r\n Dim <\/span>intPosAnd As String<\/span>\r\n strFilter = sfmNeu.Filter\r\n intPosAnd = InStr<\/span>(1, strFilter, \" AND \")\r\n If <\/span>intPosAnd > 0 Then<\/span>\r\n strFilter = Mid<\/span>(strFilter, intPosAnd + 4)\r\n sfm.Filter = strFilter\r\n sfm.FilterOn = True<\/span>\r\n Else<\/span>\r\n sfm.Filter = \"\"\r\n End If<\/span>\r\n sfmNeu.Filter = \"1=2\"\r\n sfmNeu.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\n(1=2) AND ([tblArtikel].[Artikelname] Like \"D*\")<\/pre>\n
([tblArtikel].[Artikelname] Like \"D*\")<\/pre>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_014.png\")
<\/p>\n((1=2) AND ([tblArtikel].[Artikelname] Like \"C*\")) AND ([tblArtikel].[Artikelname] Like \"*D*\")<\/pre>\n
strFilter\r\n([tblArtikel].[Artikelname] Like \"C*\")) AND ([tblArtikel].[Artikelname] Like \"*D*\")<\/pre>\n
Private Sub <\/span>sfmNeu_ApplyFilter(Cancel As Integer<\/span>, ApplyType As Integer<\/span>)\r\n Dim <\/span>strFilter As String<\/span>\r\n strFilter = sfmNeu.Filter\r\n strFilter = Replace<\/span>(strFilter, \"1=2\", \"1=1\")\r\n sfm.Filter = strFilter\r\n sfm.FilterOn = True<\/span>\r\n sfmNeu.Filter = \"1=2\"\r\n sfmNeu.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\nSortierung anpassen<\/h2>\n
![\"Aufrufen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1160_015.png\")
<\/p>\nPrivate Sub <\/span>sfmNeu_ApplyFilter(Cancel As Integer<\/span>, ApplyType As Integer<\/span>)\r\n Dim <\/span>strFilter As String<\/span>\r\n Debug.Print<\/span> ApplyType\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>sfmNeu_ApplyFilter(Cancel As Integer<\/span>, ApplyType As Integer<\/span>)\r\n ...\r\n sfm.OrderBy = sfmNeu.OrderBy\r\n sfm.OrderByOn = sfmNeu.OrderByOn\r\nEnd Sub<\/span><\/pre>\nändern der Spaltenbreiten<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h3>\n