Mit „AllowZooming“ und „ZoomResizesWindow“ hat Microsoft zwei Formulareigenschaften eingeführt, die sich ausschließlich über die Properties-Auflistung ansprechen lassen – und das auch nur, wenn das Formular in der Entwurfsansicht geöffnet ist. Wer diese Eigenschaften für eine gewachsene Anwendung mit einigen Dutzend Formularen einstellen möchte, hat stumpfe Fleißarbeit vor sich. Ein guter Anlass, sich ein Werkzeug zu bauen, das beliebige Eigenschaften für alle Formulare und Berichte einer Anwendung ausliest, sichert und setzt. Dieser Beitrag zeigt, wie das gelingt – und wofür sich so ein Werkzeug jenseits der Zoom-Funktion noch alles einsetzen lässt.<\/b><\/p>\n
Wofür braucht man so etwas?<\/h2>\n
Die neuen Zoom-Eigenschaften, auf die wir im Beitrag Zoomen in Access, Teil 2 <\/b>(www.access-im-unternehmen.de\/1614<\/b>) eingehen, sind nur der aktuelle Anlassfall. Wenn Sie einmal darüber nachdenken, welche Einstellungen in einer Anwendung eigentlich für alle<\/b> Formulare gleich sein sollten, kommt schnell eine ansehnliche Liste zusammen:<\/p>\n Der letzte Punkt zeigt schon, dass wir nicht nur schreiben, sondern auch lesen wollen. Ein Werkzeug, das uns erst einmal auflistet, wie die Dinge stehen, ist oft nützlicher als eines, das blind überall den gleichen Wert einträgt.<\/p>\n Der Ablauf ist bei allen Eigenschaften derselbe: Formular in der Entwurfsansicht öffnen, Eigenschaft setzen, Formular speichern und schließen. In der einfachsten Form sieht das aus wie in Listing 1.<\/p>\n Listing 1: Das Grundmuster in seiner einfachsten Form<\/span><\/b><\/p>\n Die Schleife läuft über die Auflistung AllForms<\/b> des CurrentProject<\/b>-Objekts. Diese enthält alle Formulare der Anwendung – im Gegensatz zur Auflistung Forms<\/b>, die nur die aktuell geöffneten Formulare liefert.<\/p>\n Der Parameter acHidden<\/b> sorgt dafür, dass das Formular unsichtbar geöffnet wird, was den Vorgang deutlich beschleunigt.<\/p>\n Rufen wir diese Prozedur wie folgt auf, finden wir im Eigenschaftenfenster aller Formulare nun den neuen Wert für die Eigenschaft Zoom ändert die Fenstergröße <\/b>vor (siehe Bild 1).<\/p>\n Bild 1: Per VBA-Code eingestellte Eigenschaft<\/span><\/b><\/p>\n Die meisten Formulareigenschaften lassen sich direkt ansprechen, etwa mit Me.AllowEdits = False<\/b>. Bei neu hinzugekommenen Eigenschaften funktioniert das jedoch meist nicht: Sie sind noch nicht im Objektmodell hinterlegt, sodass der Compiler den Ausdruck bereits beim Übersetzen bemängelt.<\/p>\n Das ist auch bei einigen älteren Eigenschaften der Fall. Der Umweg über die Properties<\/b>-Auflistung löst das Problem, weil der Eigenschaftsname dort als Zeichenkette übergeben wird und erst zur Laufzeit ausgewertet wird.<\/p>\n Genau daraus ergibt sich aber auch die erste Fehlerquelle. Läuft die Anwendung unter einer älteren Access-Version, in der es die Eigenschaft noch gar nicht gibt, quittiert Access den Zugriff mit dem Laufzeitfehler 3270 (Eigenschaft nicht gefunden<\/b>) beziehungsweise mit Fehler 2455.<\/p>\n Da unsere Schleife dann mittendrin abbricht, bleibt womöglich ein Formular in der Entwurfsansicht offen zurück.<\/p>\n Weitere Schwachstellen des einfachen Musters:<\/p>\n Diese vier Punkte arbeiten wir nun der Reihe nach ab.<\/p>\n Zunächst kapseln wir den Vorgang für ein einzelnes Formular in einer eigenen Funktion. Sie liefert 0 <\/b>zurück, wenn alles geklappt hat, und andernfalls die Fehlernummer.<\/p>\n Wichtig ist der Fehlerbehandler: Er schließt das Formular ohne zu speichern, damit kein halb bearbeiteter Entwurf zurückbleibt (siehe Listing 2).<\/p>\n Listing 2: Setzen einer Eigenschaft mit Fehlerbehandlung<\/span><\/b><\/p>\n Darauf setzt die eigentliche Hauptprozedur auf. Sie erwartet den Eigenschaftsnamen, den gewünschten Wert und optional eine durch Semikolon getrennte Liste von Formularen, die übersprungen werden sollen.<\/p>\n Zurückgeliefert wird die Anzahl der geänderten Formulare – Listing 3 zeigt den Code.<\/p>\n Listing 3: Die Hauptprozedur mit Ausnahmeliste und Fortschrittsanzeige<\/span><\/b><\/p>\n Application.Echo False<\/b> unterdrückt die Bildschirmaktualisierung – ohne diese Zeile flackert der Bildschirm während des gesamten Durchlaufs. Entscheidend ist, dass Echo<\/b> in jedem Fall wieder eingeschaltet wird, auch im Fehlerfall; genau dafür sorgt die Sprungmarke Ende<\/b> in Verbindung mit Resume Ende<\/b>.<\/p>\n Die drei Zeilen zur Statusleiste innerhalb der Schleife sehen umständlich aus, sind aber nötig. Der naheliegende Aufruf SysCmd acSysCmdSetStatus<\/b> bleibt bei abgeschalteter Bildschirmaktualisierung wirkungslos, weil Access die Statusleiste dann ebenfalls nicht neu zeichnet.<\/p>\n Der zweite Parameter von Application.Echo<\/b> setzt dagegen den Text der Statusleiste, und das kurze Einschalten erzwingt genau eine Aktualisierung. DoEvents<\/b> lässt sie durch, danach geht die Anzeige wieder aus. Weil die Formulare ohnehin unsichtbar geöffnet werden, ist von diesem Umschalten auf dem Bildschirm nichts zu sehen.<\/p>\n Aus demselben Grund braucht es am Ende kein SysCmd acSysCmdClearStatus<\/b>: Das abschließende Application.Echo True<\/b> ohne Textparameter setzt die Statusleiste selbst wieder zurück.<\/p>\n Die Abfrage von IsLoaded<\/b> schließt ein bereits geöffnetes Formular, bevor wir es in der Entwurfsansicht öffnen.<\/p>\n Die Hilfsfunktion zum Prüfen der Ausnahmeliste fällt kurz aus. Indem wir sowohl die Liste als auch den Suchwert in Semikola einfassen, verhindern wir, dass frmKunde<\/b> auch frmKundeDetail<\/b> trifft:<\/p>\n Der Aufruf sieht dann zum Beispiel so aus, wobei zwei Formulare unangetastet bleiben sollen:<\/p>\n Bevor wir eine Anwendung mit 50 Formularen umbauen, sollten wir wissen, wie der Zustand vorher war. Dazu legen wir eine kleine Tabelle namens tblEigenschaften<\/b> an. Sie enthält neben dem Primärschlüsselfeld die Felder Sicherung<\/b> (Datum\/Uhrzeit<\/b>), Formular<\/b>, Eigenschaft<\/b> und Wert<\/b> – alle drei letzteren vom Typ Kurzer Text<\/b>. Bild 2 zeigt die Tabelle mit den Werten eines Durchlaufs.<\/p>\n Bild 2: Die gesicherten Eigenschaftswerte in der Tabelle tblEigenschaften<\/span><\/b><\/p>\n Die Prozedur zum Sichern öffnet jedes Formular ebenfalls in der Entwurfsansicht, liest die gewünschten Eigenschaften aus und schließt es anschließend ohne<\/b> zu speichern – wir wollen ja nichts verändern. Existiert eine Eigenschaft nicht, landet Null<\/b> in der Tabelle, was uns später das Wiederherstellen erleichtert (siehe Listing 4).<\/p>\n Listing 4: Sichern beliebig vieler Eigenschaften aller Formulare<\/span><\/b><\/p>\n Aufgerufen wird die Funktion mit einer Liste von Eigenschaftsnamen:<\/p>\n Das Gegenstück greift auf die jüngste Sicherung zurück (siehe Listing 5). Die Unterabfrage im SQL-Ausdruck ermittelt den höchsten Zeitstempel, sodass wir uns eine Verwaltung von Laufnummern sparen können. Datensätze ohne Wert überspringen wir, denn dort gab es die Eigenschaft zum Zeitpunkt der Sicherung noch nicht.<\/p>\n Listing 5: Wiederherstellen der zuletzt gesicherten Werte<\/span><\/b><\/p>\n Da wir alle Werte als Text gesichert haben, brauchen wir noch eine kleine Rückwandlung.<\/p>\n Sie erkennt die beiden Wahrheitswerte sowie Zahlen und liefert alles übrige unverändert zurück.<\/p>\n Beachten Sie, dass der Vergleich bewusst gegen CStr(True)<\/b> läuft und nicht gegen die Zeichenkette True<\/b> – so bleibt die Funktion unabhängig von der Sprachversion:<\/p>\n Eine Einschränkung bleibt: Eine numerische Eigenschaft mit dem Wert 0<\/b> wird als False<\/b> zurückgeliefert.<\/p>\n Für Access sind beide Werte identisch, sodass sich daraus in der Praxis kein Problem ergibt.<\/p>\n Berichte lassen sich auf dieselbe Weise behandeln – die Auflistung heißt AllReports<\/b>, geöffnet wird mit acViewDesign<\/b>.<\/p>\n Ein Anwendungsfall, der reihenweise Supportanfragen erzeugt, ist der fest gespeicherte Drucker: Beim Kunden existiert das Gerät nicht, und der Bericht bricht ab oder landet auf dem falschen Ausgabegerät. Listing 6 stellt alle Berichte auf den Standarddrucker um.<\/p>\n Listing 6: Alle Berichte auf den Standarddrucker umstellen<\/span><\/b><\/p>\n Der Fehlerbehandler nutzt hier Resume Next<\/b>, damit ein einzelner problematischer Bericht den Durchlauf nicht stoppt. In der Hauptprozedur für Formulare haben wir uns bewusst anders entschieden, weil dort jeder Fehler über die Rückgabe der Funktion EigenschaftSetzen<\/b> ohnehin protokolliert wird.<\/p>\n Mit dem Werkzeug in der Hand lassen sich viele wiederkehrende Aufgaben auf eine Zeile eindampfen.<\/p>\n Ein paar Beispiele:<\/p>\n Besonders lohnend ist der lesende Einsatz. Wer einmal alle Formulare auf FilterOnLoad<\/b> untersucht und das Ergebnis in der Tabelle betrachtet, findet erfahrungsgemäß mindestens einen Kandidaten, bei dem beim Entwickeln ein Filter hängen geblieben ist.<\/p>\n In Bild 3 sehen Sie eine solche Auswertung.<\/p>\n Bild 3: Auswertung der gespeicherten Filter aller Formulare<\/span><\/b><\/p>\n So praktisch das Werkzeug ist – es greift tief in die Anwendung ein. Die folgenden Punkte sollten Sie im Hinterkopf behalten:<\/p>\n Der Aufwand für dieses Modul rechnet sich bereits beim ersten Einsatz. Statt 50 Formulare von Hand zu öffnen, die Eigenschaft zu suchen und den Wert zu ändern, genügt ein Aufruf im Direktbereich – und weil die alten Werte in der Tabelle liegen, ist der Weg zurück jederzeit offen.<\/p>\n Der eigentliche Gewinn liegt aber in der Wiederverwendbarkeit: Sobald Microsoft die nächste Formulareigenschaft nachrüstet – angekündigt ist etwa eine Eigenschaft für abgerundete Ecken von Steuerelementen -, ist Ihre Anwendung mit einem Einzeiler auf dem neuesten Stand. Für Steuerelemente müssen Sie das Modul allerdings noch um eine innere Schleife über die Controls<\/b>-Auflistung erweitern – aber das ist eine andere Geschichte.<\/p>\n Enthaltene Beispieldateien:<\/p>\n FormulareigenschaftenGlobalAendern.accdb<\/p>\n\n
Das Grundmuster<\/h2>\n
Public Sub <\/span>ZoomResizesWindowSetzen(ByVal blnWert As Boolean<\/span>)\r\n Dim <\/span>strFormular As String<\/span>\r\n Dim <\/span>i As Long<\/span>\r\n For i = 0 To CurrentProject.AllForms.Count - 1\r\n strFormular = CurrentProject.AllForms(i).Name\r\n DoCmd.OpenForm strFormular, acDesign, , , , acHidden\r\n Forms(strFormular).Properties(\"ZoomResizesWindow\") = blnWert\r\n DoCmd.Close acForm, strFormular, acSaveYes\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n![\"Per](\"..\/fileadmin\/_temp_\/2026_05\/pic_1615_001.png\")
<\/p>\nWarum über die Properties-Auflistung?<\/h2>\n
\n
Eine Eigenschaft für ein Formular setzen<\/h2>\n
Private Function <\/span>EigenschaftSetzen(ByVal strFormular As String<\/span>, ByVal strEigenschaft As String<\/span>, _\r\n ByVal varWert As Variant<\/span>) As Long<\/span>\r\n On Error GoTo<\/span> Fehler\r\n DoCmd.OpenForm strFormular, acDesign, , , , acHidden\r\n Forms(strFormular).Properties(strEigenschaft) = varWert\r\n DoCmd.Close acForm, strFormular, acSaveYes\r\n Exit Function<\/span>\r\nFehler:\r\n EigenschaftSetzen = Err.Number\r\n On Error Resume Next<\/span>\r\n DoCmd.Close acForm, strFormular, acSaveNo\r\nEnd Function<\/span><\/pre>\nDer Durchlauf über alle Formulare<\/h2>\n
Public Function <\/span>EigenschaftFuerAlleFormulare(ByVal strEigenschaft As String<\/span>, ByVal varWert As Variant<\/span>, _\r\n Optional<\/span> ByVal strAusnahmen As String<\/span> = \"\") As Long<\/span>\r\n Dim <\/span>strFormular As String<\/span>\r\n Dim <\/span>lngFehler As Long<\/span>\r\n Dim <\/span>lngGeaendert As Long<\/span>\r\n Dim <\/span>i As Long<\/span>\r\n On Error GoTo<\/span> Fehler\r\n Application.Echo False<\/span>\r\n For i = 0 To CurrentProject.AllForms.Count - 1\r\n strFormular = CurrentProject.AllForms(i).Name\r\n ' Statusleiste aktualisieren\r\n Application.Echo True, \"Bearbeite \" & strFormular & \" ...\"\r\n DoEvents\r\n Application.Echo False<\/span>\r\n If <\/span>Not<\/span> IstInListe(strFormular, strAusnahmen) Then<\/span>\r\n If <\/span>CurrentProject.AllForms(i).IsLoaded Then<\/span>\r\n DoCmd.Close acForm, strFormular, acSaveYes\r\n End If<\/span>\r\n lngFehler = EigenschaftSetzen(strFormular, strEigenschaft, varWert)\r\n If <\/span>lngFehler = 0 Then<\/span>\r\n lngGeaendert = lngGeaendert + 1\r\n Else<\/span>\r\n Debug.Print<\/span> \"Fehler \" & lngFehler & \" bei \" & strFormular\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> i\r\nEnde:\r\n Application.Echo True<\/span>\r\n EigenschaftFuerAlleFormulare = lngGeaendert\r\n Exit Function<\/span>\r\nFehler:\r\n MsgBox<\/span> \"Fehler \" & Err.Number & \": \" & _\r\n Err.Description, vbExclamation\r\n Resume Ende\r\nEnd Function<\/span><\/pre>\nPrivate Function <\/span>IstInListe( _\r\n ByVal strWert As String<\/span>, _\r\n ByVal strListe As String<\/span>) As Boolean<\/span>\r\n IstInListe = InStr<\/span>(1, \";\" & strListe & \";\", _\r\n \";\" & strWert & \";\", vbTextCompare) \\> 0\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> EigenschaftFuerAlleFormulare( _\r\n \"ZoomResizesWindow\", True, _\r\n \"frmIntro;frmEigenschaften\")<\/pre>\nErst sichern, dann ändern<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_05\/pic_1615_002.png\")
<\/p>\nPublic Function <\/span>EigenschaftenSichern(ByVal strEigenschaften As String<\/span>) As Long<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>varListe As Variant<\/span>\r\n Dim <\/span>strFormular As String<\/span>\r\n Dim <\/span>varWert As Variant<\/span>\r\n Dim <\/span>datSicherung As Date<\/span>\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n Dim <\/span>i As Long<\/span>, j As Long<\/span>\r\n On Error GoTo<\/span> Fehler\r\n datSicherung = Now\r\n varListe = Split<\/span>(strEigenschaften, \";\")\r\n Set<\/span> rst = CurrentDb.OpenRecordset(\"tblEigenschaften\", dbOpenDynaset, dbAppendOnly)\r\n Application.Echo False<\/span>\r\n For i = 0 To CurrentProject.AllForms.Count - 1\r\n strFormular = CurrentProject.AllForms(i).Name\r\n DoCmd.OpenForm strFormular, acDesign, , , , acHidden\r\n For j = 0 To UBound<\/span>(varListe)\r\n varWert = Null\r\n On Error Resume Next<\/span>\r\n varWert = Forms(strFormular).Properties(Trim<\/span>(varListe(j)))\r\n On Error GoTo<\/span> Fehler\r\n rst.AddNew<\/span>\r\n rst!Sicherung = datSicherung\r\n rst!Formular = strFormular\r\n rst!Eigenschaft = Trim<\/span>(varListe(j))\r\n If <\/span>Not<\/span> IsNull(varWert) Then<\/span>\r\n rst!Wert = CStr(varWert)\r\n End If<\/span>\r\n rst.Update\r\n lngAnzahl = lngAnzahl + 1\r\n Next<\/span> j\r\n DoCmd.Close acForm, strFormular, acSaveNo\r\n Next<\/span> i\r\nEnde:\r\n Application.Echo True<\/span>\r\n If <\/span>Not<\/span> rst Is Nothing Then<\/span> rst.Close\r\n Set<\/span> rst = Nothing\r\n EigenschaftenSichern = lngAnzahl\r\n Exit Function<\/span>\r\nFehler:\r\n MsgBox<\/span> \"Fehler \" & Err.Number & \": \" & Err.Description, vbExclamation\r\n Resume Ende\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> EigenschaftenSichern( _\r\n \"AllowZooming;ZoomResizesWindow;AllowEdits\")<\/pre>\nZurück auf Anfang<\/h2>\n
Public Function <\/span>EigenschaftenWiederherstellen() As Long<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n strSQL = \"SELECT Formular, Eigenschaft, Wert FROM tblEigenschaften \" & _\r\n \"WHERE Wert Is Not<\/span> Null AND Sicherung = (SELECT Max(Sicherung) \" & _\r\n \"FROM tblEigenschaften) ORDER BY Formular\"\r\n Set<\/span> rst = CurrentDb.OpenRecordset(strSQL)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>EigenschaftSetzen(rst!Formular, rst!Eigenschaft, WertKonvertieren(rst!Wert)) = 0 Then<\/span>\r\n lngAnzahl = lngAnzahl + 1\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n EigenschaftenWiederherstellen = lngAnzahl\r\nEnd Function<\/span><\/pre>\nPrivate Function <\/span>WertKonvertieren( _\r\n ByVal strWert As String<\/span>) As Variant<\/span>\r\n Select Case True<\/span>\r\n Case <\/span>strWert = CStr(True<\/span>), strWert = \"-1\"\r\n WertKonvertieren = True<\/span>\r\n Case <\/span>strWert = CStr(False<\/span>), strWert = \"0\"\r\n WertKonvertieren = False<\/span>\r\n Case <\/span>IsNumeric(strWert)\r\n WertKonvertieren = CDbl(strWert)\r\n Case Else<\/span>\r\n WertKonvertieren = strWert\r\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\nDas Gleiche für Berichte<\/h2>\n
Public Function <\/span>BerichteAufStandarddrucker() As Long<\/span>\r\n Dim <\/span>strBericht As String<\/span>\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n Dim <\/span>i As Long<\/span>\r\n On Error GoTo<\/span> Fehler\r\n Application.Echo False<\/span>\r\n For i = 0 To CurrentProject.AllReports.Count - 1\r\n strBericht = CurrentProject.AllReports(i).Name\r\n DoCmd.OpenReport strBericht, acViewDesign\r\n Reports(strBericht).UseDefaultPrinter = True<\/span>\r\n DoCmd.Close acReport, strBericht, acSaveYes\r\n lngAnzahl = lngAnzahl + 1\r\n Next<\/span> i\r\nEnde:\r\n Application.Echo True<\/span>\r\n BerichteAufStandarddrucker = lngAnzahl\r\n Exit Function<\/span>\r\nFehler:\r\n Debug.Print<\/span> strBericht & \": \" & Err.Description\r\n Resume Next<\/span>\r\nEnd Function<\/span><\/pre>\nAnwendungsfälle aus der Praxis<\/h2>\n
' Zoom-Fenstergroesse ueberall aktivieren\r\nEigenschaftFuerAlleFormulare \"ZoomResizesWindow\", True<\/span>\r\n' Gespeicherte Filter zuruecksetzen\r\nEigenschaftFuerAlleFormulare \"FilterOnLoad\", False<\/span>\r\nEigenschaftFuerAlleFormulare \"OrderByOnLoad\", False<\/span>\r\n' Nur-Lese-Variante der Anwendung erzeugen\r\nEigenschaftFuerAlleFormulare \"AllowEdits\", False<\/span>\r\nEigenschaftFuerAlleFormulare \"AllowAdditions\", False<\/span>\r\nEigenschaftFuerAlleFormulare \"AllowDeletions\", False<\/span>\r\n' Einheitliches Ribbon zuweisen\r\nEigenschaftFuerAlleFormulare \"RibbonName\", _\r\n \"rbnHauptmenue\"\r\n' Kontextmenues abschalten\r\nEigenschaftFuerAlleFormulare \"ShortcutMenu\", False<\/span><\/pre>\n![\"Auswertung](\"..\/fileadmin\/_temp_\/2026_05\/pic_1615_003.png\")
<\/p>\nWas Sie beachten sollten<\/h2>\n
\n
Zusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n