![\"Access](\"..\/tl_files\/images\/Access1920.png\")
<\/a><\/p>\nBild 1: Access maximiert auf einem Laptop-Monitor ohne Navigationsbereich<\/p>\n
Unter Excel mag dieses Verhältnis noch einigermaßen sinnvoll sein, da man es hier häufig mit zahlreichen Spalten zu tun hat. Aber Access Formulare nennen sich nicht zufällig so. Eingabeformulare haben ihr papierenes Vorbild im DIN-A4-Hochformat.<\/p>\n
Die Felder sind in der Regel mehr oder weniger untereinander angeordnet. Aber auch Datenblätter lassen sich besser lesen, wenn sie eher vertikal ausgedehnt und mehr Datensätze im Zugriff sind.<\/p>\n
Das scheint ein Rückschritt zu sein. Einerseits verbreiterten sich Monitore zunehmend, anderseits leistet der Ribbon gegenüber den früheren Menüleisten zusätzlich seinen Beitrag zu einem unpassenden Design.<\/p>\n
Damit taucht die Frage auf, ob solchen Umständen abzuhelfen ist Das Menüband kann man ausblenden, doch wie realisiert man dann eine Navigation durch die Anwendung <\/p>\n
Eine Möglichkeit wäre ein Switchboard<\/b> am linken Rand, das den eingebauten Navigationsbereich von Access ersetzte. Dafür käme ein Navigationsformular in Betracht. In der Beispieldatenbank haben wir so etwas entwickelt, ohne den Aufwand zu hoch zu treiben.<\/p>\nSwitchboard-Formular<\/h2>\n
Aussehen soll das Ganze, wie in Bild 2. Der Ribbon ist ausgeblendet und am linken Rand befindet sich das Menü, über das die Elemente der Anwendung aufgerufen werden.<\/p>\n
Bild 2: Ohne Ribbon aber mit Switchboard ändert sich die verfügbare Arbeitsfläche<\/p>\n Die Arbeitsfläche vergrößert sich damit vertikal um immerhin 135 Pixel. Dass die horizontale Ausdehnung sich durch das Switchboard verringert, ist zu verschmerzen, denn noch immer haben wir es hier mit einem Breitformat zu tun.<\/p>\n Diese Lösung sieht einfacher aus, als sie es ist. Denn wir haben es mit folgenden Anforderungen zu tun:<\/p>\n Sowohl das Switchboard-Formular, wie auch die Anwendungsformulare, müssen dazu automatisierten Positionierungsoperationen unterzogen werden. Die Basics dazu erfuhren Sie in der letzten Ausgabe.<\/p>\n Das geht mit einer Zeile VBA:<\/p>\n Lassen Sie diese Zeile beim Start der Anwendung ausführen. Ob dies über ein Startformular geschieht, oder über ein AutoExec<\/b>-Makro und eine öffentliche Funktion, das bleibt Ihnen überlassen. Einblenden können Sie den Ribbon im Zweifel wieder über den Aufruf der Methode ShowToolbar<\/b>:<\/p>\n In der Beispieldatenbank nennt sich das Switchboard-Formular frmNavi<\/b>, im Entwurf in Bild 3 dargestellt. Hier sind ein Label für den Titel und einige Schaltflächen untergebracht, die unterschiedliche Aktionen auslösen. Die Gestaltung ist willkürlich. Passen Sie sie nach ihren Vorstellungen an.<\/p>\n Bild 3: Das Switchboard-Formular frmNavi in der Entwurfsansicht<\/p>\n Wichtig jedoch ist die Einstellung Ohne<\/b> für die Eigenschaft Rahmenart<\/b> des Formulars, damit das Fenster dann nicht über die Titelzeile verschoben werden kann. Zur Sicherheit ist die Eigenschaft Verschiebbar<\/b> zusätzlich auf Nein<\/b> eingestellt und MinMaxSchaltflächen<\/b> auf Keine<\/b>. Selbstverständlich sind auch Datensatzmarkierer<\/b> und Navigationsschaltflächen<\/b> ausgeblendet.<\/p>\n öffnen Sie dieses Formular direkt, so gibt es keine Möglichkeit, es mit der Maus zu schließen. Nur die Tastenkombination STRG-F4<\/b> lässt es wieder verschwinden. Im Prinzip ließe sich auch das verhindern, indem Sie die Eigenschaft Tastenvorschau<\/b> des Formulars (Tab Ereignis<\/b> des Eigenschaftenblatts) auf Ja<\/b> stellten und in die Ereignisprozedur für Bei Taste Ab<\/b> diese Zeilen schrieben:<\/p>\n Dann hilft nur ein Ausdruck im VBA-Direktfenster weiter:<\/p>\n Damit Sie derlei während der Entwicklung nicht bewerkstelligen müssen, ist diese Zeile in das Click<\/b>-Ereignis des Detailbereichs eingebaut. Klicken Sie also auf den grauen Hintergrund des Formulars, so schließt es sich und außerdem wird der möglicherweise fehlende Ribbon wieder eingeblendet.<\/p>\n In die Click<\/b>-Prozeduren der Schaltflächen könnten Sie direkt die gewünschten Aktionen programmieren, etwa den Aufruf eines Formulars:<\/p>\n Wir wollten jedoch die Navigationsfunktionen an zentraler Stelle verwalten, weshalb im Modul mdlNavigation<\/b> die Funktion in Listing 1 zu finden ist.<\/p>\n Listing 1: Navigationsfunktion<\/p>\n Im Kopf des Moduls stehen Enumerationskonstanten<\/b>, die die Aktionen versinnbildlichen. eAppOpenFormKunden<\/b> etwa soll das Kundenformular öffnen, eAppOpenDSKunden<\/b> das Datenblatt mit Kundenadressen. Diese Konstanten können der Funktion NaviFunction<\/b> als Parameter übergeben werden. Der Vorteil besteht darin, dass nun IntelliSense<\/b> bei Schreiben des Funktionsnamens an beliebiger Stelle gleich die Konstanten auflistet. Das Kundenformular rufen Sie also so auf:<\/p>\n Genau diese Zeile steht auch im Click<\/b>-Ereignis der entsprechenden Schaltfläche des Switchboard-Formulars:<\/p>\n Die Funktion ermittelt nun über ein Select-Case<\/b>-Statement die gewünschte Aktion und übernimmt sie dann im Programmzweig. In jeden Case<\/b>-Abschnitt können Sie beliebigen VBA-Code unterbringen. Im Beispiel sind das neben dem öffnen von Formularen etwa noch Meldungen. eAppClose<\/b> ist eine Aktion, die die Anwendung schließen lassen soll. Das geschieht erst nach Bestätigung eines Nachfragedialogs. Bei Bejahung erfolgt das Application.Quit<\/b>, welches die Anwendung und Access beendet.<\/p>\n Wenn Sie das Access-Fenster vergrößern oder verkleinern, dann ändert sich auch die Arbeitsfläche. Da das Switchboard-Formular grundsätzlich den linken Rand einnehmen soll, muss es solchen Größenänderungen folgen. Doch wie kriegt es die mit<\/p>\n In der letzten Ausgabe wurde erläutert, wie Sie mithilfe einer API<\/b>-Funktion (GetWindowRect<\/b>) die Ausdehnung des Access-Fensters zurückbekommen. Diese muss regelmäßig abgefragt werden, da es leider kein Ereignis gibt, welches durch Größenänderung des Access-Fensters hervorgerufen würde. Dafür kommt, wenn man auf komplizierte API<\/b>-Routinen verzichten möchte, eigentlich nur ein Formular-Timer<\/b> infrage. Also ist die Eigenschaft Zeitgeberintervall<\/b> des Formulars frmNavi<\/b> auf den Wert 300<\/b> eingestellt. Etwa drei Mal pro Sekunde ermittelt die Timer<\/b>-Prozedur dann die Abmessungen des Rahmenfensters, um darauf gegebenenfalls reagieren zu können:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n\n
Ribbon ausblenden<\/h2>\n
DoCmd.ShowToolbar \"Ribbon\", acToolbarNo<\/pre>\n
DoCmd.ShowToolbar \"Ribbon\", acToolbarYes<\/pre>\n
Navigationselemente<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>Form_KeyDown( _\r\n KeyCode As Integer<\/span>, Shift As Integer<\/span>)\r\n If <\/span>KeyCode = 115 And Shift = 2 Then<\/span>\r\n KeyCode = 0\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDoCmd.Close acForm, \"frmNavi\"<\/pre>\n
DoCmd.OpenForm \"frmAdressen\"<\/pre>\n
Public <\/span>Enum eAppFunction\r\n eAppOpenForm1\r\n eAppOpenForm2\r\n eAppOpenForm3\r\n eAppOpenFormKunden\r\n eAppOpenDSKunden\r\n eAppMsg1\r\n eAppMsg2\r\n eAppClose\r\nEnd Enum \r\nPublic Function <\/span>NaviFunction(fu As <\/span>eAppFunction)\r\n Select Case fu\r\n Case <\/span>eAppOpenForm1\r\n DoCmd.OpenForm \"frmTest1\"\r\n Case <\/span>eAppOpenForm2\r\n DoCmd.OpenForm \"frmTest2\"\r\n Case <\/span>eAppOpenForm3\r\n DoCmd.OpenForm \"frmTest3\"\r\n Case <\/span>eAppOpenFormKunden\r\n DoCmd.OpenForm \"frmAdressen\"\r\n Case <\/span>eAppOpenDSKunden\r\n DoCmd.OpenForm \"frmAdressenDS\", acFormDS\r\n Case <\/span>eAppMsg1\r\n MsgBox<\/span> \"Das ist eine beliebige Meldung\", vbInformation\r\n Case <\/span>eAppMsg2\r\n MsgBox<\/span> \"Das ist eine weitere Meldung\", vbExclamation\r\n Case <\/span>eAppClose\r\n If MsgBox<\/span>(\"Anwendung wirklich schließen\", _\r\n vbQuestion Or vbYesNo, _\r\n \"Bestätigen:\") = vbYes Then\r\n Application.Quit acQuitSaveAll\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\nNaviFunction eAppOpenFormKunden<\/pre>\n
Private Sub <\/span>cmd4_Click()\r\n NaviFunction eAppOpenFormKunden\r\nEnd Sub<\/span><\/pre>\nFormulare an den Access-Rahmen anpassen<\/h2>\n
Private Sub <\/span>Form_Timer()\r\n AdjustSize\r\nEnd Sub<\/span><\/pre>\n
\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