{"id":55000322,"date":"2016-12-01T00:00:00","date_gmt":"2020-01-24T15:59:37","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=322"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Seitennavigation","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Seitennavigation.html","title":{"rendered":"Seitennavigation"},"content":{"rendered":"

Nicht nur die dynamische Positionierung von Steuerelementen zur Laufzeit eines Formulars eignet sich zur Datensatznavigation, auch das Ein- und Ausblenden dieser kann manchmal nützlich sein. Wir stellen ein Anwendungsbeispiel mit einer vertikalen Suchleiste dar, die platzsparend den Sprung zu den gewünschten Datensätzen anbietet, wobei diese über einen Mausklick sichtbar wird.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1607_Sidenavigation.accdb<\/b>.<\/p>\n

Search Bar<\/h2>\n

Bei dieser Anwendung geht es nicht mehr um ein Verschieben von Steuerelementen, sondern um das Sichtbarmachen einer Listbox, die dennoch den Eindruck einer Bewegung verursacht. Das Formular frmKunden<\/b> der Beispieldatenbank macht es vor.<\/p>\n

Nach dem öffnen sieht es aus, wie in Bild 1. Außer den Adressfeldern gibt es rechts einen blauen Balken, der scheinbar mit der Aufschrift Click Me!<\/b> versehen ist. Klicken Sie ihn an, so blendet sich eine Listbox ein, wie in Bild 2. Sie enthält die Namen aller Kunden. Wahlweise kann ein Eintrag über Mausklick oder über die Pfeiltasten der Tastatur samt abschließendem ENTER<\/b> aktiviert werden, was den entsprechenden Datensatz ins Formular bringt. Danach wird die Listbox automatisch wieder geschlossen. Sie tut das zudem auch bei der Taste ESC<\/b> und dann, wenn Sie den Fokus über die Maus in eines der Textfelder des Formulars setzen. <\/p>\n

\"Das<\/a><\/p>\n

Bild 1: Das Formular frmKunden weist rechts einen Balken zur Navigation auf<\/p>\n

\"Nach<\/a><\/p>\n

Bild 2: Nach Klick auf den Balken öffnet sich eine Listbox mit allen Kunden<\/p>\n

Dies entspricht einem Abbruch des Such- beziehungsweise Navigationsvorgangs. Das Einblenden der Listbox wirkt so, als fahre es von der rechten Seite ins Formular. Um zu verdeutlichen, wie die Sache aufgebaut ist, betrachten wir zunächst den Entwurf des Formulars (siehe Bild 3). Hier findet sich rechts die ungebundene Listbox lstFind<\/b>, welche über ihr Kontextmenü und den Eintrag Position | In den Vordergrund <\/b>über zwei weitere Steuerelemente gebracht wurde. Ihr Verankern<\/b>-Modus steht auf Nach unten dehnen<\/b>, damit sie Größenänderungen des Formulars vertikal mitmacht. Die überdeckten Steuerelemente sind einmal ein blaues Rechteck rNavi<\/b> mit dem Verankern<\/b>-Modus Quer und nach unten dehnen<\/b>, sowie ein Label LblClick<\/b> mit der Beschriftung Click Me!<\/b>. Damit es diesen Text um 90 Grad gedreht ausgibt, steht die Eigenschaft Vertikal<\/b> im Reiter Andere<\/b> des Eigenschaftenblatts auf Ja<\/b>. Damit beide Steuerelemente beim Formularstart zu sehen sind, ist die Eigenschaft Sichtbar<\/b> der überlagernden Listbox auf Nein<\/b> eingestellt. Deren Datenherkunft übrigens ergibt sich aus einer UNION<\/b>-Abfrage, die aus der Tabelle tblKunden<\/b> und zusätzlichen künstlichen Datensätzen zum Löschen und Hinzufügen von Kunden besteht. Wir erläuterten eine solche bereits in Ausgabe 03\/2016<\/b> zum Thema UNION-Abfragen<\/b>.<\/p>\n

\"Entwurfsansicht<\/a><\/p>\n

Bild 3: Entwurfsansicht des Formulars frmKunden mit Listbox rechts im Vordergrund<\/p>\n

Schreiten wir zum Code des Formulars! Listing 1 zeigt, was beim Anklicken entweder des blauen Rechtecks rNavi<\/b> oder des Labels LblClick<\/b> (Click Me!<\/b>) passiert.<\/p>\n

Private Sub <\/span>rNavi_Click()\r\n     Me!lstFind = Me!ID\r\n     Me!lstFind.Visible = True<\/span>\r\n     Me!lstFind.SetFocus\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>LblClick_Click()\r\n     rNavi_Click\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>lstFind_LostFocus()\r\n     Me.TimerInterval = 100\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Timer()\r\n     Me!cbAnrede.SetFocus\r\n     Me!lstFind.Visible = False<\/span>\r\n     Me.TimerInterval = 0\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Ein- und Ausblenden der Navigations-Listbox über das Timer-Event des Formulars<\/p>\n
LblClick_Click<\/b> enthält selbst keine Anweisungen und leitet nur an die Ereignisprozedur rNavi_Click<\/b> weiter. Dort wird der Listbox lstFind<\/b> erst der Wert des im Formular aktuell angezeigten Datensatzes über dessen ID<\/b> zugewiesen, damit sie den Kundeneintrag markiert. Dann wird sie sichtbar gemacht. Durch das Einblenden überdeckt sie nun Balkenrechteck und Label rechts. Schließlich wird der Fokus auf sie gesetzt, damit Maus- und Tastatureingaben sofort auf sie wirken können.<\/p>\n
Verliert sie den Fokus, was etwa durch Setzen des Mauszeigers in ein Formularfeld geschieht, so löst dies ihr Ereignis LostFocus<\/b> aus. Der Formularcode reagiert darauf über die Ereignisprozedur lstFind_LostFocus<\/b> und aktiviert den Formular-Timer, welcher auf 100 ms eingestellt wird. In der folglich ausgelösten Timer-Prozedur wird der Timer durch Setzen auf 0<\/b> am Ende wieder deaktiviert. Er wird also nur für ein sehr kurzes Delay verwendet, um die ersten zwei Codezeilen verzögert auszuführen.<\/p>\n
Grund für diesen Umweg ist die Tatsache, dass diese Zeilen in der LostFocus<\/b>-Prozedur nicht korrekt funktionieren würden, weil etwa die SetFocus<\/b>-Anweisung erst ausgeführt wird, wenn das alte Ereignis abgeschlossen ist. Bei Fokusverlust wird die Listbox wieder unsichtbar gemacht, blendet sich damit aus, und das erste Formularfeld für die Anrede bekommt stattdessen den Fokus. Der Ausgangszustand ist wieder hergestellt.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t