<\/p>\n
Autor: André Minhorst, Duisburg<\/b><\/p>\n
Die von Access zur Verfügung gestellten Navigationsschaltflächen lassen sich weder in ihrem Aussehen oder ihrer Größe verändern, noch können Sie deren Position beeinflussen. Es gibt allerdings gute Gründe, die eben genannten Dinge zu tun und die Navigationsschaltflächen an die eigenen Bedürfnisse anzupassen. Im vorliegenden Beitrag erfahren Sie, welche Gründe das sein können und wie Sie eigene, flexible Navigationsschaltflächen erstellen, die Sie in beliebige Formulare integrieren können.<\/b><\/p>\n
Die Navigationsschaltflächen eines Access-Formulars haben prinzipiell zwei Nachteile: Erstens ist ihr Aussehen nicht veränderbar, und zweitens können Sie ihre Position nicht verändern.<\/p>\n
Diese beiden Nachteile in Kombination führen manchmal zu etwas unübersichtlichen Formularen, z. B. wenn Sie innerhalb eines Formulars noch eines oder mehrere Unterformulare mit eigenen Navigationsschaltflächen unterbringen (siehe Bild 1) möchten.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Ein Formular mit mehreren Navigationsschaltflächen<\/span><\/b><\/p>\n Hier wäre es beispielsweise denkbar, die Navigationsschaltflächen für die Navigation zwischen den einzelnen Firmen unmittelbar unter den Firmennamen unterzubringen.<\/p>\n Neben der Positionierung haben manche Datenbankanwender spezielle Wünsche, die das Aussehen der Datenbank und ihrer Bedienelemente betreffen. So ist es z. B. möglich, dass für eine spezielle Anwendung aus irgendwelchen Gründen keine Schaltflächen mit schwarzen Symbolen verwendet werden sollen.<\/p>\n In den folgenden Kapiteln lernen Sie, wie Sie Ihre eigenen Navigationsschaltflächen erstellen und diese flexibel in Ihren Formularen einsetzen können.<\/p>\n Die neuen Navigationsschaltflächen sollen flexibel einsetzbar sein, d. h. sie sollen schnell und einfach an der gewünschten Stelle platziert werden können.<\/p>\n Daher erstellen Sie ein eigenes Formular mit den Steuerelementen, die üblicherweise zu einer Navigationsschaltfläche gehören. Dieses Formular fügen Sie dann später als Unterformular in die gewünschten Formulare ein.<\/p>\n <\/b><\/p>\n Bild 2: Entwurfsansicht der späteren Navigationsleiste<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Die Navigationsschaltflächen sind nun mit Text versehen.<\/span><\/b><\/p>\n Erstellen des Unterformulars<\/b><\/p>\n Erstellen Sie zunächst ein neues Unterformular und speichern Sie es unter dem Namen frmNavigationsschaltflaechen. öffnen Sie es anschließend in der Entwurfsansicht.<\/p>\n Anlegen der Steuerelemente<\/b><\/p>\n Hier fügen Sie nun sieben Steuerelemente ein: fünf Schaltflächen und zwei Textfelder (siehe Bild 2). Die fünf Schaltflächen dienen der Navigation zum ersten, vorherigen, nächsten und letzten Datensatz des Formulars sowie zum Anlegen eines neuen Datensatzes.<\/p>\n Die zwei Textfelder dienen zur Anzeige der Nummer des aktuellen Datensatzes sowie zur Anzeige der Gesamtzahl der Datensätze.<\/p>\n Wie bereits erwähnt, sollen die Navigationsschaltflächen flexibel sein – dementsprechend müssen Sie sich natürlich nicht an die vorgegebenen Schaltflächen halten. Sie können beispielsweise auch Schaltflächen erstellen, die den Datensatzzeiger jeweils zehn Datensätze vor- oder zurückspringen lassen. Oder Sie legen ein zusätzliches Textfeld an, in dem Sie angeben können, wie viele Datensätze der Datensatzzeiger nach vorne oder hinten springen soll.<\/p>\n Funktion<\/b><\/p>\n<\/td>\n Name<\/b><\/p>\n<\/td>\n<\/tr>\n Sprung auf den ersten Datensatz<\/p>\n<\/td>\n btnFirst<\/p>\n<\/td>\n<\/tr>\n Sprung auf den vorherigen Datensatz<\/p>\n<\/td>\n btnPrevious<\/p>\n<\/td>\n<\/tr>\n Sprung auf den nächsten Datensatz<\/p>\n<\/td>\n btnNext<\/p>\n<\/td>\n<\/tr>\n Sprung auf den letzten Datensatz<\/p>\n<\/td>\n btnLast<\/p>\n<\/td>\n<\/tr>\n Anlegen eines neuen Datensatzes<\/p>\n<\/td>\n btnNew<\/p>\n<\/td>\n<\/tr>\n Anzeige der aktuellen und Eingabe der gewünschten Datensatznummer<\/p>\n<\/td>\n txtGoto<\/p>\n<\/td>\n<\/tr>\n Anzeige der Anzahl der Datensätze<\/p>\n<\/td>\n txtAll<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Funktionen und Namen der unterschiedlichen Steuerelemente <\/p>\n Geben Sie den Schaltflächen die in Tab. 1 angegebenen Namen.<\/p>\n Künstlerische Gestaltung der Schaltflächen<\/b><\/p>\n Warum sollten Sie extra einen neuen Satz von Navigationsschaltflächen erstellen, wenn Sie diese nicht auch nach Ihren persönlichen Vorlieben gestalten können<\/p>\n Weniger anspruchsvolle Menschen können die Schaltfläche einfach mit den entsprechenden Texten versehen oder mit bestimmten Zeichen die Funktion der Schaltflächen andeuten.<\/p>\n So kommen beispielsweise die Beschriftungen |<, <, >, >| und * infrage. Schön sieht das allerdings nicht aus (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 4: Einstellen der Größe der zukünftigen Schaltflächensymbole<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Auswahl von Bildern als Schaltflächensymbole<\/span><\/b><\/p>\n Verwenden Sie einfach ein Malprogramm, um professionell aussehende Schaltflächen zu erstellen. Sie können beispielsweise das zu Windows gehörende Malprogramm Paint verwenden, um die Schaltflächensymbole zu erstellen. Sie finden das Programm in der Regel im Startmenü von Windows unter dem Menüpunkt Programme ( Zubehör\/Paint.<\/p>\n Wählen Sie eine sinnvolle Größe für die Symbole der Schaltflächen aus. Die üblichen Symbole in der Symbolleiste von Windows-Anwendungen sind in der Regel 32 x 32 Punkte groß. Selbstverständlich können Sie aber auch eine andere Größe verwenden.<\/p>\n Sie sollten also zunächst die Größe der Zeichnung an die gewünschte Symbolgröße anpassen. Wählen Sie dazu den Menübefehl Bild\/Attribute. Geben Sie hier die Bildgröße ein (siehe Bild 4).<\/p>\n Wählen Sie in Paint die Farbe aus, die der gewünschten Hintergrundfarbe der Schaltflächen entspricht. Füllen Sie dann das komplette Bild mit der Farbe aus.<\/p>\n Nun sind Ihrer Fantasie keine Grenzen mehr gesetzt: Erstellen Sie die Symbole für Ihre Schaltflächen ganz nach Ihren Wünschen. Speichern Sie die Grafik-Dateien anschließend im ..bmp-Format ab und vergeben Sie aussagekräftige Namen, z. B. symBack oder symNew.<\/p>\n Nachdem Sie alle benötigten Symbole erstellt haben, müssen Sie diese nun auf den entsprechenden Schaltflächen platzieren. Aktivieren Sie die Entwurfsansicht des Formulars mit den Navigationsschaltflächen und führen Sie die folgenden Schritte aus:<\/p>\n <\/p>\n <\/b><\/p>\n Bild 6: Einstellen der Eigenschaft Bildtyp<\/span><\/b><\/p>\n Wenn Sie das Symbol ausgewählt haben, müssen Sie sich noch entscheiden, ob Sie das Bild auf der Schaltfläche in die Datenbank einbetten wollen oder ob Access nur eine Verknüpfung zu der Bilddatei erstellen soll.<\/p>\n Im ersten Fall brauchen Sie neben der Datenbankdatei keine weiteren Dateien mehr mitschleppen. Im zweiten Fall müssen Sie das zwar tun, aber dafür wirken sich änderungen an der Bilddatei direkt auf das Symbol der Schaltfläche aus.<\/p>\n Da Sie aber nicht unbedingt oft änderungen an den Bildern durchführen werden, können Sie diese besser einbetten. Das tun Sie, indem Sie die entsprechende Eigenschaft auf den Wert Einbetten einstellen (siehe Bild 6).<\/p>\n Nun füllen Sie die Schaltflächen mit Leben: Sie hinterlegen für die Ereigniseigenschaft Beim Klicken der fünf Schaltflächen die entsprechenden Prozeduren (s. Quellcode 1 bis 5).<\/p>\n Den Kern der Prozeduren bildet jeweils die Anweisung DoCmd.GotoRecord mit unterschiedlichen Werten für ihre Parameter.<\/p>\n Der erste Parameter gibt an, auf welche Objektart sich die Methode bezieht. Im vorliegenden Fall ist das ein Formular. Die entsprechende Konstante heißt acDataForm.<\/p>\n Der zweite Parameter enthält den Namen des Objektes. Die Verschiebung des Datensatzzeigers soll sich jeweils auf das Formular beziehen, in dem sich das Unterformular mit den Navigationsschaltflächen befindet. Für den Bezug auf solche Formulare stellt Access eine spezielle Eigenschaft zur Verfügung: die Parent-Eigen-schaft. Mit ihr können Sie den Namen des übergeordneten Formulars ermitteln und anschließend dessen Datensatzzeiger verschieben.<\/p>\n Der dritte Parameter gibt an, wohin der Datensatzzeiger verschoben werden soll. Für einen Fall benötigen Sie noch einen vierten Parameter – dazu später mehr.<\/p>\n Die Navigation in größeren Datenmengen kann manchmal etwas unkomfortabel sein – vor allem, wenn Sie die Nummer des gewünschten Datensatzes nicht kennen. Dann ist mühsames Klicken durch die einzelnen Datensätze angesagt. Damit Sie sich dabei keine Sehnenscheidenentzündung holen, können Sie die Schaltfläche auch auf „Dauerfeuer“ einstellen. Wenn Sie die Schaltfläche per Maus gedrückt halten, können Sie schnell mehrere Datensätze durchblättern.<\/p>\n Da das nur für die beiden Schaltflächen btnNext und btnPrevious nötig ist, sollten Sie deren Eigenschaft Makro wiederholen auf den Wert Ja einstellen.<\/p>\n Anzeige des aktuellen Datensatzes und der Anzahl der Datensätze<\/b><\/p>\n Neben den fünf Schaltflächen haben Sie ja bereits zwei Textfelder angelegt. Beginnen wir mit dem Textfeld mit der leichteren Aufgabe: Es dient lediglich zur Anzeige der Datensatzanzahl. <\/p>\n Der Inhalt des Textfeldes soll nicht bearbeitet werden, setzen Sie daher die Eigenschaft Aktiviert auf den Wert Nein und die Eigenschaft Gesperrt auf den Wert Ja.<\/p>\n Um die Optik ein wenig an die üblicherweise verwendeten Navigationsschaltflächen anzupassen, ändern Sie die Hintergrundfarbe des Textfeldes noch so ab, dass sie der Farbe des Formularhintergrundes entspricht (siehe Bild 7).<\/p>\n Die Anzahl der aktuell vorhandenen Datensätze soll beim ersten Anzeigen des Formulars sowie bei jeder änderung aktualisiert werden. Daher hinterlegen Sie für die Ereig-niseigenschaft Beim Anzeigen des Formulars frmNavigationsschaltflächen die Prozedur aus Quellcode 6.<\/p>\n Um die Gesamtzahl der Datensätze zu ermitteln, setzten Sie den Datensatzzeiger auf den letzten Datensatz und ermitteln anschließend die Anzahl mit der Eigenschaft RecordCount.<\/p>\n <\/b><\/p>\n Bild 7: So könnten die neuen Navigationsschaltflächen aussehen.<\/span><\/b><\/p>\n Hier gibt es noch eine Besonderheit: Falls soeben ein neuer Datensatz angelegt wurde, zählt die Eigenschaft RecordCount den neuen Datensatz noch nicht mit. Daher wird der Inhalt des Textfeldes txtAll in diesem Fall um eins erhöht.<\/p>\n In der gleichen Prozedur (s. Quellcode 6) ermitteln Sie die Nummer des aktuellen Datensatzes. Dazu weisen Sie dem Textfeld txtAll die Eigenschaft CurrentRecord zu. Hierbei sind einige Besonderheiten zu beachten. Aus irgendwelchen Gründen gibt die Eigenschaft CurrentRecord als Wert des Textfeldes txtGoto beim Initialisieren des Formulars jeweils den Wert 0.<\/p>\n Bewegen Sie den Datensatzzeiger allerdings auf den nächsten Datensatz, erscheint der auf den eigentlichen Wert 1 folgende Wert 2. Daher fragt die Prozedur den Inhalt des Feldes txtGoto ab und ersetzt den Wert 0 gegebenenfalls durch den Wert 1.<\/p>\n Die dritte und letzte Aufgabe der Prozedur, die durch die Ereigniseigenschaft Beim Anzeigen ausgelöst wird, ist das Aktivieren und Deaktivieren bestimmter Schaltflächen.<\/p>\n Das ist beispielsweise dann erforderlich, wenn sich der Datensatzzeiger auf dem ersten Datensatz befindet. In diesem Fall soll die Navigationsschaltfläche, die den Datensatzzeiger in Richtung kleinerer Datensatznummern bewegt, gesperrt werden. Ebenso verhält es sich auf der anderen Seite: Befindet sich der Datensatzzeiger auf dem letzten oder einem neuen Datensatz, soll die Navigationsschaltfläche zum Vorwärtsbewegen des Datensatzzeigers deaktiviert werden.<\/p>\n Direktes Auswählen eines bestimmten Datensatzes<\/b><\/p>\n Das Textfeld txtGoto soll nicht nur die Nummer des aktuellen Datensatzes anzeigen, sondern auch zur Auswahl eines bestimmten Datensatzes dienen. Daher legen Sie für das Textfeld eine eigene Ereignisprozedur an, die nach der Aktualisierung des Textfeldes ausgelöst wird (s. Quell-code 8).<\/p>\n Die Prozedur verwendet – ebenso wie die Prozeduren der Navigationsschaltflächen – die Methode DoCmd.GotoRecord. Im Gegensatz zu den Schaltflächen benötigen Sie hier auch noch den vierten Parameter. Er gibt an, zu welchem Datensatz der Datensatzzeiger springen soll.<\/p>\n <\/b><\/p>\n Bild 8: Das Bestellungen-Formular mit neuen Navigationsschaltflächen<\/span><\/b><\/p>\n Auch diese Prozedur beginnt mit der Anweisung On Error Resume Next. Die Anweisung verhindert einen Abbruch der Prozedur beim Auftreten eines Fehlers. Ein denkbarer Fehler ist die Eingabe eines nicht vorhandenen Datensatzes. Für diesen Fall enthält die Prozedur eine Abfrage der Fehlernummer, die beim Auftreten des entsprechenden Fehlers eine Meldung ausgibt.<\/p>\n Neue Datensätze oder nicht<\/b><\/p>\n Manche Formulare erlauben das Anfügen neuer Datensätze nicht. Tragen Sie dem mit Ihren Navigationsschaltflächen Rechnung. Falls ein Formular nicht zum Anfügen neuer Datensätze dienen soll, deaktivieren Sie die Schaltfläche zum Anfügen neuer Datensätze oder machen Sie sie unsichtbar.<\/p>\n Dazu legen Sie eine neue Prozedur für die Ereigniseigenschaft Beim öffnen des Formulars an (s. Quellcode 8). Die Prozedur fragt die entsprechende Eigenschaft des Hauptformulars ab und entscheidet dann, ob die Schaltfläche btnNeu aktiviert oder deaktiviert wird. <\/p>\n Der Großteil der Arbeit ist nun erledigt. Sie müssen lediglich noch das Unterformular mit den Navigationsschaltflächen in das gewünschte Formular integrieren und einige Anpassungen am Hauptformular vornehmen.<\/p>\n Navigationsschaltflächen einbauen<\/b><\/p>\n Am schnellsten und einfachsten fügen Sie dem Hauptformular die Navigationsschaltflächen auf die in der folgenden Schritt-für-Schritt-Anlei-tung beschriebenen Art hinzu. <\/p>\n Beseitigen von Schönheitsfehlern<\/b><\/p>\n Es weist jedoch noch einen Schönheitsfehler auf – nämlich die Beschriftung des Unterformular-Steuerelements (siehe Bild 8), die Sie jedoch leicht entfernen können. Ebenso sollten Sie das Navigationsschaltflächen-Unterformular noch etwas besser in das Hauptformular integrieren, indem Sie die Eigenschaft Spezialeffekt auf den Wert Flach und die Eigenschaft Rahmenart auf den Wert Transparent ändern.<\/p>\n Navigationsschaltflächen aus der Reihenfolge nehmen<\/b><\/p>\n Neben dem Ansteuern bestimmter Steuerele-mente eines Formulars können Sie auch mit der Tastatur durch die einzelnen Steuerelemente navigieren. Vor allem die Tab-Taste erweist sich hier oft als hilfreich, um von Steuerelement zu Steuerelement zu springen. Meistens kann man mit der Leertaste die Aktion eines Steuerelements ausführen – beispielsweise das Klicken auf eine Schaltfläche. Wie bei den originalen Navigationsschaltflächen von Access sollen aber auch <\/p>\n Ihre eigenen nur per Maus und nicht per Tastatur zu erreichen sein.<\/p>\n Datensatzwechsel per Tastatur<\/b><\/p>\n Wenn Sie – wie im letzten Abschnitt beschrieben – das Unterformular mit den Navigationsschaltflächen aus der Reihenfolge der Steuerelemente genommen haben, kann folgendes passieren:<\/p>\n Der Anwender navigiert sich per Tab-Taste durch die einzelnen Felder und Steuerelemente des Formulars und erreicht das letzte Steuerelement in der Reihenfolge. Wenn Sie nun die Eigenschaft Zyklus auf den Wert Alle Datensätze eingestellt haben, springt der Datensatzzeiger des Formulars automatisch auf den nächsten Datensatz. Die Anzeige der Datensatznummer in Ihrer Navigation reagiert aber nicht darauf, sondern zeigt weiterhin die vorherige Datensatznummer an.<\/p>\n Damit das nicht passiert, müssen Sie der Ereignisprozedur Beim Anzeigen des Hauptformulars – sofern es bereits vorhanden ist – einen Befehl hinzufügen, der den Inhalt des Unterformulars aktualisiert.<\/p>\n![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic003.png\")
<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic005.png\")
<\/p>\nSymbole mit Paint erstellen<\/h3>\n
Schaltfläche mit einem Symbol versehen<\/h3>\n
\n
![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic006.png\")
<\/p>\n\n
Einbetten oder verknüpfen<\/h3>\n
Anweisung zum Verschieben desDatensatzzeigers<\/h3>\n
Datensatzzeiger verschieben mit Dauerfeuer<\/h3>\n
Private Sub btnFirst_Click()\r\n Forms(Me.Parent.Name).SetFocus\r\n DoCmd.GoToRecord acDataForm, Me.Parent.Name, acFirst\r\n Form_Current\r\nEnd Sub\r\nPrivate Sub btnLast_Click()\r\n Forms(Me.Parent.Name).SetFocus\r\n DoCmd.GoToRecord acDataForm, Me.Parent.Name, acLast\r\n Form_Current\r\nEnd Sub\r\nPrivate Sub btnNew_Click()\r\n Forms(Me.Parent.Name).SetFocus\r\n DoCmd.GoToRecord acDataForm, Me.Parent.Name, _ acNewRec\r\n Form_Current\r\nEnd Sub\r\nPrivate Sub btnNext_Click()\r\n Forms(Me.Parent.Name).SetFocus\r\n DoCmd.GoToRecord acDataForm, Me.Parent.Name, acNext\r\n Form_Current\r\nEnd Sub\r\nPrivate Sub btnPrevious_Click()\r\n Forms(Me.Parent.Name).SetFocus\r\n DoCmd.GoToRecord acDataForm, Me.Parent.Name, _ acPrevious\r\n Form_Current\r\nEnd Sub<\/pre>\n
Anzahl der Datensätze<\/h3>\n
Private Sub Form_Current()\r\n ''Ermitteln der Gesamtzahl der Datensätze\r\n Forms(Me.Parent.Name).RecordsetClone.MoveLast\r\n Me![txtAll] = Forms(Me.Parent.Name).RecordsetClone.RecordCount\r\n If Forms(Me.Parent.Name).NewRecord Then\r\n Me![txtAll] = Me![txtAll] + 1\r\n Me.btnNew.Enabled = False\r\n Me.txtGoto.SetFocus\r\n Me.btnNext.Enabled = False\r\n Else\r\n Me.btnNew.Enabled = True\r\n Me.btnNext.Enabled = True\r\n End If\r\n ''Ermitteln des aktuellen Datensatzes\r\n Me![txtGoto] = Forms(Me.Parent.Name).CurrentRecord\r\n If Me![txtGoto] = 0 Then\r\n Me![txtGoto] = 1\r\n End If\r\n If Me![txtGoto] = 1 Then\r\n Me.btnPrevious.Enabled = False\r\n Else\r\n Me.btnPrevious.Enabled = True\r\n End If\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic007.png\")
<\/p>\nAktuellen Datensatz ermitteln<\/h3>\n
Private Sub txtGoto_AfterUpdate()\r\n On Error Resume Next\r\n Forms(Me.Parent.Name).SetFocus\r\n DoCmd.GoToRecord acDataForm, Me.Parent.Name, acGoTo, Me!txtGoto\r\n If Err.Number = 2105 Then\r\n MsgBox \"Sie können nicht zu dem angegebenen Datensatz springen.\"\r\n End If\r\n Form_Current\r\nEnd Sub\r\nPrivate Sub Form_Open(Cancel As Integer)\r\n If Me.Parent.AllowAdditions = False Then\r\n Me.btnNew.Enabled = False\r\n End If\r\nEnd Sub<\/pre>\n
Aktivieren und Deaktivieren bestimmter Schaltflächen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{317B7B83-BF6F-4DC5-8683-4CE3BF031B0A}\/pic008.png\")
<\/p>\n\n