![\"So](\"..\/fileadmin\/_temp_\/2022_05\/screenshot.png\")
<\/p>\nEin Leser stellt mir neulich die Frage, ob und wie man die Höhe der einzelnen Bereiche im Endlosformular dynamisch so einstellen kann, dass beispielsweise immer drei Datensätze angezeigt werden – auch, wenn der Benutzer die Höhe des Endlosformulars während der Anzeige ändert. Dieser Beitrag zeigt, wie das möglich ist. Dabei behelfen wir uns einer Ereignisprozedur, die immer beim Ändern der Größe eines Formulars ausgelöst wird – und eines kleinen Tricks, der wegen der enthaltenen Steuerelemente nötig wurde.<\/b><\/p>\nAufgabenstellung<\/h2>\n
Zum besseren Verständnis hilft der Screenshot aus Bild 1. Wenn der Benutzer die Höhe des Formulars ändert, dann sollen die drei angezeigten Detailbereiche ihre Höhe automatisch so ändern, dass sie immer jeweils 1\/3 des verfügbaren Platzes einnehmen.<\/p>\n
<\/p>\n
Bild 1: So soll die Höhe der Detailbereiche angepasst werden, wenn der Benutzer die Höhe des Formulars ändert.<\/span><\/b><\/p>\n 1\/3 deshalb, weil wir für das Beispiel in diesem Beitrag dazu entschieden haben, dass das Endlosformular immer drei Datensätze anzeigen soll (außer natürlich, es enthält weniger als drei Datensätze oder der Benutzer scrollt ganz nach unten).<\/p>\n Als Beispiel verwenden wir das Formular frmEndlosformularHoehe<\/b>. Es verwendet die Tabelle tblInhalte <\/b>als Datensatzquelle. Diese Tabelle enthält nur die beiden Felder ID <\/b>und Inhalt <\/b>(Felddatentyp Langer Text<\/b>).<\/p>\n Wir ziehen nur das Feld Inhalt<\/b> aus der Feldliste in den Detailbereich und passen Höhe von Detailbereich und Textfeld einander an. Außerdem stellen wir die Eigenschaft Standardansicht <\/b>auf Endlosformular <\/b>ein und aktivieren die in Endlosformularen häufig sichtbaren Bereiche Formularkopf <\/b>und Formularfuß <\/b>(siehe Bild 2).<\/p>\n Bild 2: Entwurf des Formulars<\/span><\/b><\/p>\n Wer schon ein wenig mit Formularen programmiert hat, der weiß: Wir werden vermutlich mit dem Ereignis Bei Größenänderung <\/b>arbeiten, um das gewünschte Ergebnis zu erreichen.<\/p>\n Und wir benötigen einige Kenntnisse über die Eigenschaften, mit denen wir die Höhen verschiedener Bereiche des Formulars und des Formulars selbst ermitteln können.<\/p>\n Man mag vermuten, dass man die Höhe eines Formulars mit einer Eigenschaft wie Me.Height <\/b>ermitteln kann. Weit gefehlt: Diese Eigenschaft bietet das Formular gar nicht an. Die Height<\/b>-Eigenschaft finden wir allerdings für die verschiedenen Bereiche des Formulars vor – für den Detailbereich, den Formularkopf und den Formularfuß beispielsweise. Wenn wir allerdings ermitteln wollen, wie hoch der Detailbereich sein darf, damit genau drei Datensätze im Bereich zwischen Formularkopf und Formularfuß sichtbar sind, benötigen wir eine Information über die gesamte Höhe des Formulars.<\/p>\n Ein genauerer Blick in das Objektmodell liefert schnell die Eigenschaft InsideWidth<\/b>. InsideWidth liefert genau die Höhe des sichtbaren Bereichs innerhalb des Formularrahmens. Damit können wir die Höhe des Detailbereichs für drei Datensätze nach der Formel (Gesamthöhe – Formularkopf – Formularfuß) \/ 3<\/b> berechnen.<\/p>\n In einem ersten, naiven Ansatz könnten wir also die folgende Anweisung in die Ereignisprozedur schreiben, die durch das Ereignis Bei Größenänderung<\/b> ausgelöst wird:<\/p>\n Damit kommen wir schon erstaunlich weit. Gleich beim Öffnen zeigt das Formular so drei Detailbereiche an, die genau den Platz zwischen Formularkopf und Formularfuß einnehmen. Wenn wir die Höhe des Formulars vergrößern, passt sich die Höhe der Detailbereiche automatisch an. Wenn wir die Höhe des Formulars allerdings so weit verkleinern, dass die im Entwurf eingestellte Höhe der Detailbereiche unterschritten wird, verkleinert die Prozedur die Höhe der Detailbereiche nicht mehr (siehe Bild 3).<\/p>\n <\/p>\n Bild 3: Die Detailbereiche werden nur bis zur Entwurfshöhe verkleinert.<\/span><\/b><\/p>\n Warum ist das der Fall? Der Grund ist schnell gefunden: Die enthaltenen Textfelder ändern ihre Höhe nicht analog zu der Höhe der Detailbereiche. Auch die Einstellung der Eigenschaft Horizontaler Anker <\/b>auf den Wert Beide <\/b>bewirkt keine Änderung. Die erste alternative Idee hierzu ist, die Höhe des Textfeldes Inhalt <\/b>einfach auf die gleiche Höhe einzustellen wie den Detailbereich:<\/p>\n Das klappt auch, solange man die Höhe des Formulars nur vergrößert. Sobald wir die Höhe verkleinern, tut sich nichts mehr – weder die Höhe des Detailbereichs noch die des Textfeldes ändert sich. Auch dafür gibt es einen guten Grund. Wir versuchen hier, zuerst die Höhe des Detailbereichs zu ändern und dann erst die des Textfeldes. Beim Vergrößern gelingt das, weil wir erst die Höhe des Detailbereichs vergrößern und dann die des Textfeldes. Andersherum gelingt es nicht: Wir können den Detailbereich nicht verkleinern, wenn das enthaltene Textfeld nicht kleiner ist.<\/p>\n Also müssen wir noch prüfen, ob der Benutzer gerade die Höhe des Formulars vergrößert oder verkleinert. Wenn er vergrößert, muss erst der Detailbereich angepasst werden und dann das Textfeld, wenn er das Formular verkleinert, müssen wir erst das Textfeld verkleinern und dann den Detailbereich. Um herauszufinden, ob das Formular gerade vergrößert oder verkleinert wird, müssen wir die vorherige Höhe in einer Variablen speichern und beim Ausführen der Prozedur Form_Resize <\/b>prüfen, ob die neue Höhe größer oder kleiner als die vorherige Höhe ist.<\/p>\n Die Höhe speichern wir in der folgenden Variablen:<\/p>\n Wir setzen diese erstmalig gleich beim Laden des Formulars in der dort ausgelösten Ereignisprozedur:<\/p>\n Die Prozedur Form_Resize<\/b> erweitern wir wie in Listing 1. Hier ermitteln wir über die bekannte Formel zuerst die gewünschte Höhe des Detailbereichs und auch des enthaltenen Textfeldes und speichern diese in der Variablen lngHoheDetailbereich<\/b>.<\/p>\n Listing 1: Anpassung der Prozedur für das Vergrößern und Verkleinern<\/span><\/b><\/p>\n Dann prüfen wir, ob die neue Höhe aus Me.InsideHeight <\/b>kleiner als die vorherige Höhe aus lngVorherigeHoehe <\/b>ist. Ist das der Fall, stellen wir zuerst die Höhe des Textfeldes und dann die des Detailbereichs ein. Falls die neue Höhe größer als die vorherige Höhe ist, passen wir zuerst den Detailbereich an und dann die Höhe des Textfeldes.<\/p>\n Es gibt noch einen möglichen Fehler bei normaler Benutzung, den wir ausschließen wollen. Dabei schiebt der Benutzer das Formular so weit zusammen, dass dieses gar keinen Detailbereich mehr anzeigt. Dies ruft den Fehler mit der Nummer 2100 <\/b>und dem Text Das Steuerelement oder Unterformular ist zu groß für die gewünschte Position <\/b>hervor (siehe Bild 4).<\/p>\n Bild 4: Fehler, wenn die Höhe zu klein wird<\/span><\/b><\/p>\n Klicken wir hier auf Debuggen, sehen wir, dass die Zeile zum Einstellen der Höhe des Textfeldes den Fehler auslöst. <\/p>\n Überfahren wir die Variable mit dem zugewiesenen Wert, sehen wir, dass diese sich im negativen Bereich befindet (siehe Bild 5). Diesen Wert kann Access nicht zuweisen.<\/p>\n Bild 5: Markierung der fehlerauslösenden Zeile<\/span><\/b><\/p>\n Wir müssen also prüfen, ob lngHoeheDetailbereich <\/b>einen negativen Wert enthält und diesen gegebenenfalls auf 0 <\/b>einstellen.<\/p>\n Dazu verwenden wir eine einfache If…Then<\/b>-Bedingung mit einer Anweisung. Aber wo platzieren wir diese? Im If<\/b>-Abschnitt der If…Else…Then<\/b>-Bedingung?<\/p>\n Das behebt den Fehler zumindest beim Verkleinern des Formulars auf eine Höhe, in der kein Detailbereich mehr sichtbar ist.<\/p>\nBeispielformular<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_05\/pic_1393_002.png\")
<\/p>\nUmsetzung mit dem Ereignis „Bei Größenänderung“<\/h2>\n
Höhe der verschiedenen Bereiche<\/h2>\n
Private Sub <\/span>Form_Resize()\r\n Me.Detailbereich.Height = (Me.InsideHeight - _\r\n Me.Formularkopf.Height - Me.Formularfuß.Height) \/ 3\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2022_05\/pic_1393_003.png\")
<\/p>\nPrivate Sub <\/span>Form_Resize()\r\n Me.Detailbereich.Height = (Me.InsideHeight - _\r\n Me.Formularkopf.Height - Me.Formularfuß.Height) \/ 3\r\n Me!Inhalt.Height = Me.Detailbereich.Height\r\nEnd Sub<\/span><\/pre>\nVerkleinern oder vergrößern?<\/h2>\n
Dim <\/span>lngVorherigeHoehe As Long<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n lngVorherigeHoehe = Me.InsideHeight\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Resize()\r\n Dim <\/span>lngHoeheDetailbereich As Long<\/span>\r\n lngHoeheDetailbereich = (Me.InsideHeight - Me.Formularkopf.Height - Me.Formularfuß.Height) \/ 3\r\n If <\/span>Me.InsideHeight < lngVorherigeHoehe Then<\/span>\r\n Me!Inhalt.Height = lngHoeheDetailbereich\r\n Me.Detailbereich.Height = lngHoeheDetailbereich\r\n Else<\/span>\r\n Me.Detailbereich.Height = lngHoeheDetailbereich\r\n Me!Inhalt.Height = lngHoeheDetailbereich\r\n End If<\/span>\r\n lngVorherigeHoehe = Me.InsideHeight\r\nEnd Sub<\/span><\/pre>\nFehler bei zu kleiner Formularhöhe<\/h2>\n
![\"Fehler,](\"..\/fileadmin\/_temp_\/2022_05\/pic_1393_004.png\")
<\/p>\n![\"Markierung](\"..\/fileadmin\/_temp_\/2022_05\/pic_1393_005.png\")
<\/p>\n