<\/p>\n
Wenn Benutzer in Access l\u00e4ngere Inhalte von Textfeldern editieren, hilft das Zoomfenster oft weiter. Es zeigt den Inhalt in einem meist gr\u00f6\u00dferen Steuerelement und erlaubt das Einstellen der Schriftart und -gr\u00f6\u00dfe. Es hat allerdings zwei Nachteile: Man kann seine Gr\u00f6\u00dfe nicht anpassen und au\u00dferdem ist es nicht in der Runtime von Access 2007 verf\u00fcgbar. Zwei Gr\u00fcnde, ein eigenes Zoomfenster zu bauen.<\/b><\/p>\n
Das gravierendste Problem des originalen Zoomfensters von Access (siehe Bild 1) ist wohl seine beharrliche Weigerung, sich dem Benutzer unter Access 2007 zu zeigen. Das Zoomfenster befindet sich unter Access 2007 in der Datenbank Utility.accda<\/b>, auf die Access-Anwendungen unter der Runtime aus unbekannten Gr\u00fcnden nicht zugreifen k\u00f6nnen.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/Zoomfenster-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Das Zoomfenster von Access<\/span><\/b><\/p>\n Das bezieht sich ausschlie\u00dflich auf Systeme, auf denen die Runtime-Version tats\u00e4chlich installiert ist. Die Aussage, man k\u00f6nne die Runtime-Version einer Datenbank unter Access 2007 ganz einfach testen, indem man ihre Dateiendung in .accdr <\/b>\u00e4ndert, stimmt daher nicht ganz: Immerhin funktioniert dies, wenn die Vollversion auf dem betreffenden System installiert ist.<\/p>\n Gelegentlich m\u00f6chte man das Zoomfenster vielleicht auch mal gr\u00f6\u00dfer ziehen, um etwa bestimmte Texte im urspr\u00fcnglichen Umbruch lesen zu k\u00f6nnen – dies w\u00fcrde zum Beispiel f\u00fcr Listings Sinn machen.<\/p>\n Sollten Sie aus irgendeinem der genannten Gr\u00fcnde mit dem eingebauten Zoomfenster nicht mehr zufrieden sein, bauen Sie sich halt ein neues.<\/p>\n Dazu brauchen Sie ein einfaches Formular, welches das Access Zoomfenster nachbildet, ein Makro namens Autokeys <\/b>zum Abfangen der Tastenkombination Umschalt + F2 <\/b>sowie ein wenig Code, der den aktuellen Steuerelementinhalt ausliest und diesen sp\u00e4ter zur\u00fcckschreibt.<\/p>\n Das Formular sollte in der Gr\u00f6\u00dfe skalierbar sein, sowie das Anpassen der Schriftgr\u00f6\u00dfe und der Schriftart erlauben. Dazu rufen Sie den entsprechenden Systemdialog auf.<\/p>\n Zun\u00e4chst bauen Sie das Formular mit den enthaltenen Steuerelementen nach: Dazu ben\u00f6tigen Sie ein gro\u00dfes Textfeld und drei Schaltfl\u00e4chen, die Sie mit txtZoom<\/b>, cmdOK<\/b>, cmdAbbrechen <\/b>und cmdSchriftart <\/b>benennen. Die Steuerelemente ordnen Sie wie in Bild 2 an.<\/p>\n Bild 2: Das nachgebaute Zoomfenster in der Entwurfsansicht<\/span><\/b><\/p>\n Stellen Sie die Formulareigenschaften Bildlaufleisten<\/b>, Datensatzmarkierer<\/b>, Navigationsschaltfl\u00e4chen <\/b>und Trennlinien <\/b>auf Nein <\/b>ein.<\/p>\n K\u00fcmmern Sie sich dann zun\u00e4chst um das Anpassen der Gr\u00f6\u00dfe. Dies erledigen Sie mit einer Prozedur, die durch die Ereigniseigenschaft Bei Gr\u00f6\u00dfen\u00e4nderung <\/b>ausgel\u00f6st wird (s. Listing 1).<\/p>\n Listing 1: Anpassen der Gr\u00f6\u00dfe und Position der Steuerelemente beim \u00e4ndern der Formulargr\u00f6\u00dfe<\/p>\n Bevor wir uns an die Funktionen der einzelnen Schaltfl\u00e4chen wagen, sind ein paar Gedanken \u00fcber die Vorgehensweise angebracht. Wie ruft man das Zoomfenster \u00fcberhaupt auf? Wir haben es bereits angedeutet: Die Tastenkombination Umschalt + F2 <\/b>soll durch ein Tastaturmakro abgefangen werden. Doch was macht das Makro dann am besten zuerst mal eine VBA-Funktion aufrufen. Von dort aus programmiert es sich doch viel leichter. Diese nennen wir ShowZoom<\/b>, dementsprechend sieht das Makro aus wie in Bild 3.<\/p>\n Bild 3: Das Tastaturmakro in der Entwurfsansicht<\/span><\/b><\/p>\n Ein kleiner Test nach dem Speichern des Makros unter der Bezeichnung AutoKeys <\/b>sollte nun einen Fehler ausl\u00f6sen, da die ben\u00f6tigte Funktion noch nicht vorhanden ist.<\/p>\n Und was bewirkt diese Funktion nun eigentlich braucht sie doch nur das Formular aufzurufen, oder Mitnichten: Woher wei\u00df das Formular denn, woher es den anzuzeigenden Text nehmen soll Die Funktion muss beim Aufrufen zumindest den Textfeldinhalt per OpenArgs<\/b> an das Zoom-Formular \u00fcbergeben.<\/p>\n An den Inhalt muss man aber auch erstmal herankommen. Es gibt allerdings eine Methode namens Screen.ActiveControl<\/b>, die einen Verweis auf das aktuell im Fokus stehende Steuerelement liefert. Diesen greifen Sie sich und schicken den enthaltenen Text per OpenArgs <\/b>an das Formular, das als modaler Dialog ge\u00f6ffnet wird; das hei\u00dft, dass der Benutzer keine anderen Access-Objekte verwenden kann, solange dieses Formular ge\u00f6ffnet ist. Au\u00dferdem l\u00e4uft der aufrufende Code nicht weiter, bis das Formular den Fokus verliert. Im Formular kann der Benutzer den Text dann anpassen und das Formular dann entweder mit der OK<\/b>-Taste oder der Abbrechen<\/b>-Taste schlie\u00dfen. Bei OK <\/b>wird das Formular nur unsichtbar gemacht, es verliert aber dennoch den Fokus. Die aufrufende Prozedur liest dann den neuen Inhalt des Textfeldes aus, schreibt diesen in das Ausgangstextfeld und schlie\u00dft das Formular endg\u00fcltig. Um das Verhalten des Original-Zoomfensters m\u00f6glichst genau nachzubilden, soll die Einf\u00fcgemarke am Ende des Ausdrucks landen. Im letzten Schritt schlie\u00dft die Funktion das Zoom-Formular endg\u00fcltig (s. Listing 2).<\/p>\n Listing 2: Anzeigen des Zoom-Formulars und Auslesen des Hinhalts<\/p>\n Ob der Benutzer \u00fcberhaupt die OK<\/b>-Schaltfl\u00e4che zum Schlie\u00dfen verwendet hat, pr\u00fcft die aufrufende Funktion anhand des Formular-Status: Ist es noch ge\u00f6ffnet, muss es nun unsichtbar sein, also hat der Benutzer auf OK <\/b>geklickt. Ist es geschlossen, war die Abbrechen<\/b>-Schaltfl\u00e4che f\u00fcr das Schlie\u00dfen des Formulars verantwortlich.<\/p>\n Mittendrin gibt es noch eine Fehlerbehandlung: Diese sorgt daf\u00fcr, dass das Zoomfenster nicht ge\u00f6ffnet wird, wenn das beim Bet\u00e4tigen von Umschalt + F2 <\/b>aktive Steuerelement keine Text<\/b>-Eigenschaft aufweist.<\/p>\n Es fehlt noch der im Formularmodul enthaltene Code. Die Ereignisprozedur, die beim Laden des Formulars ausgel\u00f6st wird, liest die per OpenArgs<\/b> \u00fcbergebene Zeichenkette ein und schreibt diese in das Textfeld des Zoomfensters:<\/p>\n Die Abbrechen<\/b>-Schaltfl\u00e4che schlie\u00dft das Formular:<\/p>\n Die OK<\/b>-Schaltfl\u00e4che schlie\u00dflich macht das Formular unsichtbar, was – wie oben erw\u00e4hnt – dazu f\u00fchrt, dass das Formular zwar den Fokus verliert, aber noch ge\u00f6ffnet ist, sodass die aufrufende Funktion weiterlaufen und den Textfeldinhalt auslesen kann:<\/p>\n Die Schriftart stellen Sie mit der eingebauten Dialogfunktion ein. Dazu brauchen Sie entweder das CommonDialog<\/b> ActiveX-Steuerelement im Formular oder eine Klasse, die aus dem Buch Access 2002 Developer Handbook <\/b>von Litwin, Getz und Gunderloy stammt. Diese finden Sie unter dem Namen CommonDialog <\/b>in der Beispieldatenbank zu diesem Artikel.<\/p>\n Mit dieser Klasse im Gep\u00e4ck ist der Aufruf des gew\u00fcnschten Dialogs ganz einfach. Sie deklarieren einfach eine Objektvariable auf Basis dieser Klasse und instanzieren diese. Mit einigen Eigenschaften wie etwa FontName <\/b>\u00fcbergeben Sie die aktuellen Einstellungen des Zoom-Textfeldes an die Klasse, damit der Dialog diese direkt anzeigt (siehe Bild 4).<\/p>\n Bild 4: Mit diesem Dialog stellen Sie die Schriftart f\u00fcr das Zoom-Textfeld ein.<\/span><\/b><\/p>\n Mit der Methode ShowFont <\/b>\u00f6ffnen Sie den Dialog. Die folgenden Anweisungen wenden die vorgenommenen Einstellungen auf das Textfeld txtZoom <\/b>an.<\/p>\n Formulare, die mit dem Parameter WindowMode:=acDialog <\/b>als modale Dialoge ge\u00f6ffnet wurden, erlauben leider keine \u00e4nderung ihrer Gr\u00f6\u00dfe durch Ziehen der Rahmen.<\/p>\n Also f\u00fcgen Sie noch vier Steuerelemente hinzu, die das Formular jeweils um 10 Prozent nach rechts beziehungsweise unten vergr\u00f6\u00dferen oder verkleinern. Die Anordnung entnehmen Sie Bild 5; die Funktionen sind wie die folgende aufgebaut:<\/p>\nFormular f\u00fcr das Access Zoomfenster<\/b><\/h2>\n
![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/Zoomfenster-web-images\/pic002_opt.jpeg\")
<\/p>\nPrivate Sub Form_Resize()\n Const cRand As Integer = 100\n Dim i As Integer\n With Me!txtZoom\n .Left = cRand\n .Width = Me.InsideWidth - 3 * cRand - Me.cmdOK.Width\n .Height = Me.InsideHeight - 2 * cRand - 10\n .Top = cRand\n End With\n With Me.cmdOK\n .Left = Me.InsideWidth - cRand - .Width\n .Top = cRand\n End With\n With Me.cmdAbbrechen\n .Left = Me.InsideWidth - cRand - .Width\n .Top = Me.cmdOK.Height + 2 * cRand\n End With\n With Me.cmdSchriftart\n .Left = Me.InsideWidth - cRand - .Width\n .Top = 0\n .Top = (Me.InsideHeight - cRand - .Height - 5)\n End With\nEnd Sub<\/pre>\n
Zoom-Funktion<\/b><\/h2>\n
![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/Zoomfenster-web-images\/pic003_opt.jpeg\")
<\/p>\nPublic Function ShowZoom()\n Dim str As String\n On Error Resume Next\n str = Screen.ActiveControl.Text\n If Err.Number = 0 Then\n DoCmd.OpenForm \"frmZoom\", windowMode:=acDialog, _\n OpenArgs:=str\n If (SysCmd(acSysCmdGetObjectState, acForm, _\n \"frmZoom\") > 0) Then\n Screen.ActiveControl.Text = _\n Nz(Forms!frmZoom!txtZoom, \"\")\n Screen.ActiveControl.SelStart = 32000\n DoCmd.Close acForm, \"frmZoom\"\n End If\n End If\nEnd Function<\/pre>\n
Formularfunktionen des\u00a0<\/b>Zoomfensters<\/span><\/h2>\n
Private Sub Form_Load()\n Me!txtZoom = Me.OpenArgs\n Me!txtZoom.SetFocus\n Me!txtZoom.SelStart = 32000\n End Sub<\/pre>\n
Private Sub cmdAbbrechen_Click()\n DoCmd.Close acForm, Me.Name\n End Sub<\/pre>\n
Private Sub cmdOK_Click()\n Me.Visible = False\n End Sub<\/pre>\n
Schriftart einstellen<\/b><\/h2>\n
![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/Zoomfenster-web-images\/pic005_opt.jpeg\")
<\/p>\nPrivate Sub cmdSchriftart_Click()\n Dim cdl As CommonDialog\n Set cdl = New CommonDialog\n With cdl\n .FontBold = Me.txtZoom.FontBold\n .FontItalic = Me.txtZoom.FontItalic\n .FontName = Me.txtZoom.FontName\n .FontSize = Me.txtZoom.FontSize\n .FontUnderline = Me.txtZoom.FontUnderline\n .FontWeight = Me.txtZoom.FontWeight\n .FontColor = Me.txtZoom.ForeColor\n .ShowFont\n Me.txtZoom.FontBold = .FontBold\n Me.txtZoom.FontItalic = .FontItalic\n Me.txtZoom.FontName = .FontName\n Me.txtZoom.FontSize = .FontSize\n Me.txtZoom.FontUnderline = .FontUnderline\n Me.txtZoom.FontWeight = .FontWeight\n Me.txtZoom.ForeColor = .FontColor\n End With\nEnd Sub<\/pre>\n
Formular f\u00fcr das Access Zoomfenster vergr\u00f6\u00dfern und verkleinern<\/b><\/h2>\n
![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/Zoomfenster-web-images\/pic004_opt.jpeg\")
<\/p>\n