<\/p>\n
Die Navigationsschaltfläche ist so zweckmäßig, dass sie von Access-Entwicklern vermutlich oft kaum noch wahrgenommen wird: Soll der Benutzer zwischen den Datensätzen blättern oder soll er nicht Dementsprechend schaltet man die Eigenschaft Navigationsschaltflächen anzeigen entweder an oder aus. Manchmal passt die eingebaute Variante aber auch einfach nicht: Beispielsweise, wenn die Anordnung von Haupt- und Unterformular eine eher verwirrende Anzeige der Navigationsschaltflächen bewirkt oder wenn die Navigationsleiste einfach einmal ganz anders aussehen soll. <\/b><\/p>\n
Dieser Beitrag liefert gleich zweierlei für die unterschiedlichen Ansprüche: Der erste Teil zeigt, wie Sie mit wenig Aufwand eine selbst gebaute Schaltfläche – nennen wir sie der Einfachheit halber aiuNavigationsleiste <\/b>– in Ihrem Formular unterbringen, und im zweiten Teil lernen Sie, wie diese nachgebaute Variante der Navigationsleiste funktioniert.<\/p>\n
Einsatz der aiuNavigationsleiste<\/b><\/p>\n
Die Beispieldatenbank enthält einige Tabellen, auf deren Basis Sie ein Formular erstellen können. Für den Anfang verwenden Sie die Tabelle tblPersonal<\/b>: Erstellen Sie ein neues Formular und weisen Sie der Eigenschaft Datenherkunft <\/b>den Namen dieser Tabelle zu. Fügen Sie dann die gewünschten Felder aus der Feldliste in den Detailbereich ein. Wenn Sie nun in die Formularansicht wechseln, haben Sie die übliche Navigationsleiste vor sich – die können Sie auch zunächst einmal beibehalten, um das Verhalten der eingebauten mit der neu hinzugefügten selbst gebauten Navigationsleiste zu vergleichen (siehe Bild 1).<\/p>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Ein Formular mit der eingebauten Navigationsleiste<\/span><\/b><\/p>\n Wenn Sie die Navigationsleiste in einer eigenen Datenbank einsetzen möchten, brauchen Sie nur die beiden Elemente sfmNavigationsleiste <\/b>und mdlNavigationsleiste <\/b>aus der Beispieldatenbank in die Datenbank zu importieren – die übrigen Schritte sind nachfolgend beschrieben.<\/p>\n Unterformular als Navigationsleiste<\/b><\/p>\n Die selbst gebaute Navigationsleiste kommt in Form eines Unterformulars. Warum das Warum kann man die Steuerelemente nicht einfach so in das Formular integrieren Klar kann man: Wenn man sich die Arbeit jedesmal neu machen möchte … Das Unterformular hat jedoch den großen Vorteil, dass Sie die Steuerelemente nur einmal arrangieren müssen und auch deren Steuerung per VBA nur von einer Stelle innerhalb der Datenbank erfolgt.<\/p>\n Die Vorteile bei der Verwendung eines Unterformulars zeigen sich bereits beim Einbau: Sie brauchen einfach nur das Zielformular in der Entwurfsansicht zu öffnen und das Formular sfmNavigationsleiste <\/b>vom Datenbankfenster (oder, in Access 2007, vom Navigationsbereich) in den gewünschten Bereich zu ziehen. Dabei können Sie sich tatsächlich – und das ist der größte Vorteil der selbst gebauten Navigationsleiste – aussuchen, wo Sie es unterbringen. Das kann irgendwo im Detailbereich sein, aber auch im Kopf- oder im Fußbereich des Formulars (nicht jedoch im Seitenkopf oder Seitenfuß, denn diese Bereiche sind natürlich nur beim Drucken sichtbar).<\/p>\n Wenn Sie das Formular sfmNavigationsleiste <\/b>nun beispielsweise unten im Formularfuß einfügen, sieht das wie in Bild 2 aus.<\/p>\n Bild 2: Ein Formular mit frisch eingefügter Navigationsleiste<\/span><\/b><\/p>\n Das Hinzufügen der Beschriftung (hier Navigationselement) lässt sich leider nicht vermeiden, also entfernen Sie dieses Bezeichnungsfeld einfach und positionieren das Unterformular noch, sodass dieses wie in Bild 3 aussieht – hier ist aus Gründen der Optik bereits der Datensatzmarkierer ausgeblendet.<\/p>\n Bild 3: Die eingebaute Navigationsleiste in der Formularansicht<\/span><\/b><\/p>\n Außerdem wurde die Eigenschaft Rahmenart <\/b>des Unterformularsteuerelements auf Transparent <\/b>eingestellt.<\/p>\n Anpassungen<\/b><\/p>\n Es funktioniert bereits alles wie gewünscht – dies zeigt ein Vergleich der Steuerelemente der eingebauten mit denen der selbst hinzugefügten Navigationsleiste. Letztere bietet aber noch mehr Möglichkeiten, die Sie sich mit wenigen Zeilen Code erschließen können. Dazu legen Sie zunächst im Klassenmodul des Hauptformulars eine Variable an, in der Sie einen Verweis auf das Unterformular mit der Navigationsleiste speichern. Um ein Klassenmodul anzulegen, wechseln Sie in die Entwurfsansicht des Hauptformulars und legen eine Ereignisprozedur an – eine, die Sie ohnehin gleich benötigen. Es handelt sich um das Ereignis Beim Laden<\/b>, das direkt beim Ã-ffnen des Formulars ausgelöst wird.<\/p>\n Um ein solches Ereignis anzulegen, zeigen Sie das Eigenschaftsfenster des Hauptformulars an und wechseln dort zur Registerseite Ereignis<\/b>. Dort klicken Sie doppelt in die Eigenschaft Beim Laden <\/b>und dann auf die nun erscheinende Schaltfläche mit den drei Punkten.<\/p>\n Es öffnet sich der VBA-Editor und zeigt eine leere Ereignisprozedur namens Form_Load <\/b>an:<\/p>\n Oberhalb dieser Routine schreiben Sie nun die folgende Zeile hin (ohne Zeilenumbruch):<\/p>\n Damit legen Sie eine Variable an, in der Sie einen Verweis auf das Klassenmodul des Unterformulars speichern. Das Schlüsselwort WithEvents <\/b>besagt, dass es möglich ist, auf das Auslösen von Ereignissen des Unterformulars zu reagieren. Und das ist eine interessante Geschichte: Sie können so im Hauptformular beispielsweise eine Ereignisprozedur für das Unterformular anlegen, die ausgelöst wird, wenn das gleiche Ereignis im Unterformular auftritt. Wie Sie davon profitieren können, erfahren Sie gleich – zunächst einmal müssen Sie die Objektvariable objNavi<\/b> füllen.<\/p>\n Und dazu verwenden Sie genau die gerade angelegte Ereignisprozedur Beim Laden<\/b>. Hier fügen Sie dazu die folgende Zeile ein:<\/p>\n Schaltflächen anpassen<\/b><\/p>\n Die erste Möglichkeit, die sich durch das Referenzieren des Unterformulars ergibt, ist das Anpassen der angezeigten Schaltflächen. Die aiuNavigationsleiste<\/b> liefert nämlich nicht nur die Standardschaltflächen, sondern auch noch weitere. Welche das sind, erfahren Sie über die Konstanten, mit denen Sie die Schaltflächen auswählen. Dazu geben Sie einige weitere Zeilen ein, zunächst jedoch die folgenden:<\/p>\n Zwischen diese Zeilen brauchen Sie nur noch einen Punkt zu setzen, damit IntelliSense automatisch die Eigenschaften und Methoden des Unterformulars anzeigt. In Bild 4 ist dies bereits geschehen, dort wurde die Eigenschaft ButtonSet<\/b> ausgewählt. Nach Eingabe des Gleichheitszeichens finden Sie alle möglichen Konstanten für die einzelnen Schaltflächen vor:<\/p>\n Bild 4: Festlegen individueller Schaltflächen für die Navigationsleiste<\/span><\/b><\/p>\n Wenn Sie die Schaltflächen individuell zusammenstellen möchten, geben Sie die gewünschten Konstanten durch den Operator Or <\/b>getrennt an.<\/p>\n Wenn Sie dort etwa die folgende Kombination eingeben, erhalten Sie die Navigationsleiste aus Bild 5:<\/p>\n Bild 5: Navigationsleiste mit nur zwei Schaltflächen<\/span><\/b><\/p>\n Sie können auch auf fertige Sets von Navigationselementen zugreifen. Diese sind in Form weiterer Konstanten im Modul mdlNavigationsleiste <\/b>zusammengefasst. Die Standardvariante sieht beispielsweise so aus (ohne Zeilenumbruch):<\/p>\n Farbe anpassen<\/b><\/p>\n Möglicherweise hat das Hauptformular eine andere Hintergrundfarbe als das Unterformular mit den Navigationsschaltflächen. Auch für diesen Fall ist vorgesorgt: Sie können dann die Methode AdjustColor <\/b>aufrufen. Diese liest die Farbe des passenden Bereichs des Hauptformulars ein und wendet diese Farbgebung auf das Unterformular an.<\/p>\n Auf Aktionen reagieren<\/b><\/p>\n Wie oben erwähnt, wurde die Variable objNavi <\/b>als WithEvents <\/b>deklariert, um auf Ereignisse des Unterformulars reagieren und für diese eigene Funktionen implementieren zu können.<\/p>\n Das geht ganz leicht: Klicken Sie einfach einmal im Codefenster des VBA-Editors auf das Kombinationsfeld links oben und wählen Sie dort den Eintrag objNavi <\/b>aus. Der VBA-Editor legt automatisch die Ereignisprozedur objNavi_NaviClick<\/b> an (siehe Bild 6). Diese hat zwei Parameter:<\/p>\n Bild 6: Das Ereignis NaviClick wird jedesmal ausgelöst, wenn der Benutzer auf eine Schaltfläche der Navigationsleiste klickt.<\/span><\/b><\/p>\n Wir demonstrieren die Funktionsweise an einem einfachen Beispiel. Angenommen, der Benutzer soll vor dem Löschen eines Datensatzes zunächst gefragt werden, ob er diesen auch tatsächlich löschen möchte.<\/p>\n Dann legen Sie die oben genannte Ereignisprozedur an und prüfen darin, ob der Benutzer die Löschen<\/b>-Schaltfläche gedrückt hat. Falls ja, soll Access ein Meldungsfenster anzeigen, das den Benutzer fragt, ob er den Datensatz tatsächlich löschen möchte. Das sieht im Zusammenhang so wie in Listing 1 aus.<\/p>\n Listing 1: Abfrage beim Löschen eines Datensatzes<\/p>\n Schaltflächen aktivieren oder deaktivieren<\/b><\/p>\n Genau so wie Sie nur eine bestimmte Menge angezeigter Schaltflächen festlegen können, besteht auch die Möglichkeit, Schaltflächen zu aktivieren oder zu deaktivieren.<\/p>\n Dies kann zum Beispiel notwendig sein, wenn ein Benutzer keine Berechtigung hat, einen Datensatz anzulegen oder zu löschen.<\/p>\n In dem Fall verwenden Sie die Methode EnableButton<\/b>, die als Parameter die Angabe einer oder mehrerer Schaltflächen-Konstanten erwartet. Dieses Beispiel sorgt für das Ausblenden der Schaltflächen wie in Bild 7.<\/p>\n Bild 7: Deaktivierte Navigationsschaltflächen<\/span><\/b><\/p>\n <\/p>\n Schnell vor- und zurückblättern<\/b><\/p>\n Eine Erweiterung gegenüber der herkömmlichen Navigationsleiste sind die beiden Schaltflächen zum schnellen Vor- und Zurückblättern zwischen den Datensätzen. Diese aktivieren Sie mit folgenden Zeilen:<\/p>\n Die erste legt fest, dass neben den Standardschaltflächen auch noch die beiden Schaltflächen zum schnellen Vor- und Zurückblättern angezeigt werden, und die zweite stellt die Anzahl der jeweils übersprungenen Datensätze ein. Im Formular erscheint die Navigationsschaltfläche nun so wie in Bild 8.<\/p>\n Bild 8: Schnelles Vor- und Zurückblättern<\/span><\/b><\/p>\n Programmierung der aiuNavigationsleiste<\/b><\/p>\n Sie haben nun alles erfahren, was Sie zum Einsetzen der selbst gebauten Navigationsschaltfläche brauchen – nun geht es ans Eingemachte, nämlich an die dahintersteckenden Techniken.<\/p>\n Das benötigte Unterformular sieht, hier der Ãœbersicht halber mit nebeneinander angeordneten Steuerelementen dargestellt, wie in Bild 9 aus.<\/p>\n Bild 9: Das Unterformular mit den Elementen der Navigationsleiste in der Entwurfsansicht<\/span><\/b><\/p>\n Hauptformular suchen<\/b><\/p>\n Damit das Unterformular überhaupt mit dem Hauptformular interagieren kann, muss es auf dieses zugreifen können. Dies geschieht in der Regel über einen Ausdruck wie Me.Parent<\/b>.<\/p>\n Da quasi jede Routine des Unterformulars sfmNavigationsleiste<\/b> auf das Hauptformular zugreift, macht es Sinn, einen Verweis auf dieses in einer entsprechenden Objektvariablen zu speichern. Diese deklarieren Sie wie folgt:<\/p>\n Die Variable wird, wie schon bei der Objektvariablen zum Verweis auf das Unterformular im Hauptformular geschehen, mit dem Schlüsselwort WithEvents<\/b> deklariert. Dies ist hier besonders wichtig: Immerhin zeigt das Unterformular Daten an, die es aus dem Hauptformular bezieht, und um auf dem aktuellsten Stand zu bleiben, muss es mitbekommen, wenn der Benutzer im Hauptformular den Datensatz wechselt, löscht oder einen neuen Datensatz anlegt.<\/p>\n Die Zuweisung eines Verweises auf das Hauptformular geschieht in der Prozedur, die durch das Ereignis Beim Laden <\/b>ausgelöst wird. Dort passiert noch eine Menge mehr, dazu kommen wir jedoch erst später.<\/p>\n Neben der Zuweisung des Formulars weist eine zweite Zeile der Eigenschaft OnCurrent <\/b>des Hauptformulars den Wert [Event Procedure] <\/b>zu.<\/p>\n Was bedeutet das Nun: Wenn ein Objekt, das Ereignisse auslöst, mit dem Schlüsselwort WithEvents <\/b>deklariert wird, kann man sich, wie bereits oben beschrieben, in die Ereignisprozeduren dieses Objekts einklinken.<\/p>\n Manchmal weiß man aber gar nicht, ob ein solches Ereignis überhaupt eine Prozedur auslöst. So ist es hier: Man kann durchaus einem Formular das Unterformular mit der Navigationsleise zuweisen, ohne dass dieses zwingend eine Routine Form_Current <\/b>enthält.<\/p>\n Damit das Unterformular nun trotzdem darauf reagieren kann, legt es diese Ereignisprozedur einfach selbst an – und zwar in zwei Schritten: Der erste ist das Hinzufügen des Werts [Event Procedure] <\/b>zu der gewünschten Ereigniseigenschaft, der zweite das Anlegen einer Ereignisprozedur für dieses Ereignis. Der erste Schritt ist getan, der zweite folgt sogleich – nämlich die Implementierung der Ereignisprozedur, die durch das Ereignis Beim Anzeigen <\/b>des Hauptformulars ausgelöst wird:<\/p>\n Dieses deaktiviert die beiden Schaltflächen zum Speichern des aktuellen Datensatzes und zum Rückgängigmachen von Ónderungen und ruft die Routine GetCounter <\/b>auf, welche die der aktuellen Position des Datensatzzeigers entsprechende Zahl ermittelt und in das Textfeld zur Anzeige dieser Zahl einträgt.<\/p>\n Nummer des aktuellen Datensatzes<\/b><\/p>\n Diese Routine finden Sie in Listing 2. Sie prüft zunächst, ob das übergeordnete Formular schon der Objektvariablen objNavi <\/b>zugeordnet ist, und holt dies gegebenenfalls nach. Dann prüft sie die Eigenschaft NewRecord <\/b>des Hauptformulars, die Aufschluss darüber gibt, ob der aktuell im Hauptformular angezeigte Datensatz soeben angelegt und noch nicht gespeichert wurde. In diesem Fall trägt die Routine einfach ein Plus-Zeichen in das Textfeld txtCounter <\/b>ein (siehe Bild 10).<\/p>\n Listing 2: Zählen und Eintragen der aktuellen Datensatznummer<\/p>\n Bild 10: Beim Anlegen eines neuen Datensatzes zeigt das Formular statt einer Datensatznummer das Plus-Zeichen an.<\/span><\/b><\/p>\n Falls der Datensatz nicht neu ist, geschieht Folgendes: Die Variable n <\/b>erhält den Wert der Eigenschaft CurrentRecord <\/b>des Hauptformulars. Diese Eigenschaft ermittelt die Nummer des aktuellen Datensatzes, wobei die Datensätze entsprechend der Reihenfolge der Datenherkunft durchnummeriert sind. Der Wert landet dann im Textfeld txtCounter<\/b>.<\/p>\n Wie es weitergeht, hängt davon ab, ob das Bezeichnungsfeld zur Anzeige der Gesamtzahl der Datensätze im Formular angezeigt werden soll. Dazu wird der Ausdruck m_Buttons And eButtonSet.eButtonNo <\/b>untersucht.<\/p>\n mButtons <\/b>ist der Wert, der die Zusammenstellung der anzuzeigenden Steuerelemente enthält (beispielsweise eButtonStd <\/b>oder wie in einem Beispiel oben angegeben eButtonStd Or eButtonFastNext Or eButtonFastPrev<\/b>).<\/p>\n Der Ausdruck verwendet die logische Konjunktion (And<\/b>, mehr Informationen im Beitrag Rund um Binärzahlen<\/b>, Shortlink 556), um zu ermitteln, ob die Konstante eButtonSet.eButtonNo <\/b>in m_Buttons <\/b>enthalten ist. Falls ja, soll das Bezeichnungsfeld angezeigt werden, und dann füllt die Routine GetCounter <\/b>dieses auch. Sie erzeugt dazu ein neues Recordset auf Basis der Eigenschaft RecordsetClone <\/b>des Hauptformulars, springt mit MoveLast <\/b>zum letzten Datensatz und ermittelt dann mit RecordCount <\/b>die Anzahl der enthaltenen Datensätze. Für das Bezeichnungsfeld zur Ausgabe der Anzahl der Datensätze gibt es zwei mögliche Positionen, wobei je nach Position ein spezieller Text angezeigt werden soll – dies erledigen die übrigen Zeilen der Routine.<\/p>\n Parameter des <\/b><\/p>\n Die Variablen m_Buttons <\/b>und m_InfoPos <\/b>aus der zuvor vorgestellten Routine sind zwei von mehreren Member-Variablen, die das Aussehen der Navigationsleiste einstellen. Diese Variablen werden wie folgt deklariert:<\/p>\n Diese Variablen können Sie alle vom Hauptformular aus über entsprechende öffentliche Property<\/b>-Prozeduren einstellen, die Sie in Listing 3 finden. Eine dieser Propery<\/b>-Prozeduren erledigt mehr, als nur die Member-Variable zu füllen: Die Prozedur Windfactor <\/b>weist nicht nur die Anzahl der Datensätze, die beim schnellen Vor- beziehungsweise Zurückblättern übersprungen werden soll, zu, sondern aktualisiert auch noch den Text, der im Formular beim Ãœberfahren der entsprechenden Schaltflächen angezeigt wird, auf die entsprechende Anzahl (siehe Bild 8).<\/p>\n Listing 3: Property-Prozeduren zum Einstellen der Membervariablen<\/p>\n Die öffentlichen Property-Prozeduren zeigen sich beim Einstellen der Eigenschaften vom Hauptformular aus dann wie in Bild 11.<\/p>\n Bild 11: Auswirkung der öffentlichen Property-Prozeduren<\/span><\/b><\/p>\n Aktionen der einzelnen Schaltflächen<\/b><\/p>\n Das Formular enthält für jede der Schaltflächen eine Ereignisprozedur, die beim Klicken ausgelöst wird. Den Start macht die Schaltfläche, die einen Sprung auf den ersten Datensatz der Datenherkunft des Hauptformulars erlaubt:<\/p>\n Gleich die erste Anweisung dieser Routine stellt Einsteiger vor Rätsel: Eine Funktion namens RaiseEvent <\/b>findet sich im gesamten Quellcode nicht, also muss es eine VBA-Anweisung sein – doch wozu Vielleicht erinnern Sie sich: Weiter oben haben Sie vom Hauptformular aus Ereignisprozeduren des Unterformulars implementiert, in diesem speziellen Fall die Prozedur für das Ereignis NaviClick<\/b>. Und genau die Anweisung If m_Events Then RaiseEvent NaviClick(eButtonFirst, b) <\/b>löst ein solches Ereignis aus. <\/p>\n Dieses muss allerdings noch definiert werden und zwar durch die folgende Zeile:<\/p>\n Für den ersten Parameter übergibt die Routine den Wert der Konstanten eButtonFirst <\/b>(für die auslösende Schaltfläche btnFirst<\/b>), für den zweiten die Variable b<\/b>, die als Rückgabewert entweder True <\/b>oder False <\/b>erwartet, je nachdem, ob die Aktion abgebrochen werden soll oder nicht.<\/p>\n Danach folgt eine weitere Membervariable namens m_Automatic<\/b>, deren Sinn noch nicht erläutert wurde: Mit ihr kann der Entwickler festlegen, ob die durch die Schaltflächen der Navigationsleiste ausgelösten Aktionen komplett selbst im Hauptformular implementieren möchte oder die Implementierung im Unterformular verwenden will. Ãœblicherweise sollte Letzteres der Fall sein. Hat m_Automatic <\/b>den Wert True <\/b>und b <\/b>auch, wird die MoveFirst<\/b>-Methode des Recordset-Objekts im Hauptformular ausgeführt, was einen Sprung zum ersten Datensatz des Hauptformulars bewirkt.<\/p>\n Die Methode zum Anspringen des letzten Datensatzes der Datenherkunft sieht ähnlich aus. Der einzige Unterschied ist der Einsatz der Methode MoveLast<\/b>:<\/p>\n Der Weg zum nächsten Datensatz führt über die Methode MoveNext<\/b>. Die passende Routine prüft noch, ob möglicherweise gerade ein neuer Datensatz angelegt wurde oder ob der Datensatzzeiger ohnehin auf dem letzten Datensatz steht.<\/p>\n Óhnlich sieht es beim Auswählen des vorherigen Datensatzes aus. Dort ist allerdings eine Prüfung notwendig, ob sich der Datensatzzeiger gerade auf einem neuen Datensatz befindet; in dem Fall soll er zum letzten vorhandenen Datensatz springen. Ist das nicht der Fall, sorgt MovePrevious <\/b>für einen Sprung auf den vorherigen Datensatz – vorausgesetzt, der Datensatzzeiger befindet sich gerade nicht ohnehin auf dem ersten Datensatz.<\/p>\n Schnell vor- und zurückblättern<\/b><\/p>\n Die beiden Schaltflächen btnForward <\/b>und btnRewind <\/b>sollen dafür sorgen, dass der Datensatzzeiger die für die Variable m_Windfactor <\/b>angegebene Anzahl Datensätze nach vorne beziehungsweise nach hinten blättert. Die beiden Routinen verwenden die Eigenschaft der DoCmd.GotoRecord<\/b>-Methode, mehrere Datensätze gleichzeitig überspringen zu können. Dabei kann es vorkommen, dass der Datensatzzeiger einfach nicht mehr so weit wie gewünscht verschoben werden kann, weil er sich schon zu nahe am ersten beziehungsweise letzten Datensatz befindet. In dem Fall löst DoCmd.GotoRecord <\/b>einen Fehler aus, der durch die vorherige On Error Resume Next<\/b>-Anweisung zwar nicht angezeigt wird, sich aber durch einen Wert für Err.Number <\/b>ungleich 0 <\/b>bemerkbar macht. Und dann wird der Datensatz einfach auf den ersten beziehungsweise letzten Datensatz verschoben.<\/p>\n Neuen Datensatz anlegen<\/b><\/p>\n Das Anlegen eines neuen Datensatzes erledigt die Schaltfläche btnNew<\/b>. Diese setzt den Fokus auf das Hauptformular, speichert den aktuellen Datensatz und legt mit der GotoRecord<\/b>-Methode des DoCmd<\/b>-Objekts mit den entsprechenden Parametern einen neuen Datensatz an (hier könnte man auch die AddNew<\/b>-Methode des Recordset<\/b>-Objekts des Formulars einsetzen, dies führt jedoch in Verbindung mit den Attachment<\/b>-Feldern von Access 2007 oder OLE-Feldern früherer Versionen unter Umständen zu Problemen).<\/p>\n Diese Routine löst übrigens das Ereignis DataChanged <\/b>aus, das wie folgt deklariert ist und gegebenenfalls vom Hauptformular aus abgefangen werden kann.<\/p>\n Löschen des aktuellen Datensatzes<\/p>\n Mit btnDelete<\/b> bietet die Navigationsleiste auch die Möglichkeit zum Löschen des aktuellen Datensatzes. Die passende Ereignisprozedur finden Sie in Listing 4. Die Routine löst zunächst das Ereignis NaviClick<\/b> aus, um bei einer möglicherweise im Hauptformular vorhandenen Implementierung dieses Ereignisses dem Benutzer die Gelegenheit zu geben, den Löschen<\/b>-Vorgang abzubrechen (wie das im Hauptformular funktioniert, haben Sie bereits weiter vorne gelesen).<\/p>\n Listing 4: Löschen des aktuellen Datensatzes<\/p>\n Ist der aktuelle Datensatz ein neuer Datensatz, bricht die Routine an dieser Stelle ab – ein neuer Datensatz ist noch nicht gespeichert, kann also auch nicht gelöscht werden.<\/p>\n Hat b<\/b>, der Rückgabewert der Ereignisprozedur NaviClick<\/b>, den Wert False<\/b>, weil die Ereignisprozedur entweder gar nicht ausgelöst wurde oder der Benutzer diesen Wert zurückgeliefert hat, kann der Löschvorgang beginnen.<\/p>\n Dazu setzt die Routine zunächst den Fokus auf das Hauptformular und durchläuft alle im Detailbereich enthaltenen Steuerelemente, bis sie ein Textfeld findet und den Fokus auf dieses setzt. Dies ist notwendig, weil die nachfolgende Löschen<\/b>-Anweisung nur funktioniert, wenn der zu löschende Datensatz mit dem Datensatzmarkierer markiert wurde (was nicht funktionieren kann, weil dieser ausgeblendet ist) oder dies automatisch geschieht, was aber nur funktioniert, wenn eines der Felder der Datenherkunft den Fokus besitzt (die Routine geht wohlwollend davon aus, dass sich nur gebundene Textfelder im Detailbereich befinden).<\/p>\n Schließlich markiert die Routine den Datensatz mit DoCmd.RunCommand acCmdSelectRecord <\/b>und löscht ihn mit DoCmd.RunCommand acCmdDeleteRecord<\/b>. Durch den Aufruf von btnPrevious_Click <\/b>wird der Datensatzzeiger auf den vorherigen Datensatz gesetzt.<\/p>\n Aktuellen Datensatz speichern<\/b><\/p>\n Die Routine zum Speichern des aktuellen Datensatzes arbeitet ähnlich wie die zum Löschen: Sie sucht sich zunächst eines der Textfelder im Detailbereich des Hauptformulars heraus und setzt den Fokus auf dieses, bevor es den Datensatz mit DoCmd.RunCommand acCmdSaveRecord <\/b>speichert:<\/p>\n Datensatz über den Counter auswählen<\/b><\/p>\n Der Benutzer kann nicht nur über diverse Schaltflächen, sondern auch durch Eingabe der gewünschten Position des Datensatzzeigers zu einem anderen Datensatz springen. Dafür sorgt die folgende Ereignisprozedur:<\/p>\n Speichern und Rückgängig-Funktionen <\/b><\/p>\n Eine weitere implementierte Ereignisprozedur des Hauptformulars wird beim Bearbeiten eines Datensatzes ausgelöst. Sie sorgt dafür, dass die Schaltflächen zum Speichern und zum Rückgängigmachen von Ónderungen aktiviert werden.<\/p>\n Sonstige Funktionen<\/b><\/p>\n Die Navigationsleiste enthält noch weitere interessante Funktionen, die wir aus Platzgründen leider nicht alle abdrucken können.<\/p>\n Wichtig ist noch die Funktion Redraw<\/b>, die für die Positionierung sowie für das Ein- und Ausblenden der Steuerelemente des Navigationsformulars verantwortlich ist und die vor allem beim Laden des Formulars aufgerufen wird.<\/p>\n Die Funktion AdjustColor<\/b> sorgt dafür, dass die Hintergrundfarbe des Unterformulars mit der des Hauptformulars übereinstimmt.<\/p>\n Nicht nur für die Optik sind die Prozeduren, die durch die Ereigniseigenschaft Bei Mausbewegung <\/b>aller Schaltflächen der Navigationsleiste ausgelöst werden: Sie sorgen dafür, dass die jeweils überstrichene Schaltfläche den Fokus erhält.<\/p>\n Ohne dieses Feature wären nämlich unter Umständen zwei Klicks notwendig, wenn Sie sich in einem Feld des Hauptformulars befinden: Einer setzt den Fokus auf das Navigationsunterformular und erst danach löst ein Klick auf eine Schaltfläche das Click<\/b>-Ereignis aus.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Das aiuNavigationsleiste<\/b>-Formular lässt sich leicht in eigene Anwendungen integrieren – einfach mitsamt dem dazugehörenden Modul in die Datenbank kopieren und wie oben beschrieben konfigurieren.<\/p>\n Die Vorteile stehen in einem guten Verhältnis zum Aufwand: das individuelles Design der Schaltflächen, das Positionieren der Navigationsleiste an beliebiger Stelle, das Abfangen von Ereignissen und die zusätzlichen Schaltflächen sprechen für sich.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Navigationsleiste.zip<\/p>\n![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic002_opt.jpeg\")
<\/p>\n![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic003_opt.jpeg\")
<\/p>\nPrivate Sub Form_Load()\r\n End Sub<\/pre>\n
Private WithEvents objNavi As\r\nForm_sfmNavigationsleiste<\/pre>\n
Private Sub Form_Load()\r\n Set objNavi = Me!Navigationselement.Form\r\n End Sub<\/pre>\n
With objNavi\r\nEnd With<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic004_opt.jpeg\")
<\/p>\n\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic005_opt.jpeg\")
<\/p>\nWith objNavi\r\n.ButtonSet = eButtonPrev Or eButtonNext\r\nEnd With<\/pre>\n
Public Const eButtonStd = eButtonFirst Or\r\neButtonLast Or eButtonNext Or eButtonPrev Or eButtonCount Or eButtonNo Or eButtonNew<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic006_opt.jpeg\")
<\/p>\n\n
Private Sub objNavi_NaviClick(Button As eButtonSet, Cancel As Boolean)\r\n Select Case Button\r\n Case eButtonSet.eButtonDel\r\n If MsgBox(€œMöchten Sie den Datensatz tatsächlich löschen€, vbYesNo Or vbCritical, _\r\n €œLöschbestätigung€) = vbNo Then\r\n Cancel = True\r\nEnd If\r\nEnd Select\r\nEnd Sub<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic007_opt.jpeg\")
<\/p>\nPrivate Sub Form_Load()\r\n Set objNavi = Me!Navigationselement.Form\r\n With objNavi\r\n .EnableButton eButtonDel Or _\r\n eButtonNew, False\r\n End With\r\n End Sub<\/pre>\n
With objNavi\r\n.ButtonSet = eButtonStd Or eButtonFastNext _\r\nOr eButtonFastPrev\r\n.WindFactor = 5\r\nEnd With<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic008_opt.jpeg\")
<\/p>\n![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic009_opt.jpeg\")
<\/p>\nPrivate WithEvents m_frm As Access.Form<\/pre>\n
Private Sub Form_Load()\r\n ...\r\n Set m_frm = Me.Parent\r\n m_frm.OnCurrent = €œ[Event Procedure]€\r\n ...\r\n End Sub<\/pre>\n
Private Sub m_frm_Current()\r\n Me!btnStore.Enabled = False\r\n Me!btnUndo.Enabled = False\r\n If flagDelete Then Exit Sub\r\n GetCounter\r\n End Sub<\/pre>\n
Private Sub GetCounter()\r\n Dim n As Long\r\n flagCounter = True\r\n If m_frm Is Nothing Then Set m_frm = Me.Parent.Form\r\n If m_frm.NewRecord Then\r\n txtCounter = €œ+€\r\n LblInfo.Caption = €œ()€\r\n Else\r\n DoEvents\r\n n = m_frm.CurrentRecord\r\n txtCounter = n\r\n If (m_Buttons And eButtonSet.eButtonNo) <> 0 Then\r\n Dim rs As DAO.Recordset\r\n On Error Resume Next\r\n Set rs = m_frm.RecordsetClone\r\n rs.MoveLast\r\n n = rs.RecordCount\r\n If n < 0 Then n = 0\r\n If m_InfoPos = 1 Then\r\n LblInfo.Caption = €œ(€œ & n & €œ Datensätze)€\r\n Else\r\n LblInfo.Caption = €œvon €œ & n & €œ gesamt€\r\n End If\r\n Set rs = Nothing\r\n End If\r\n End If\r\n flagCounter = False\r\n End Sub<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic010_opt.jpeg\")
<\/p>\nUnterformulars<\/pre>\n
Private m_Buttons As Long\r\nPrivate m_InfoPos As Long\r\nPrivate m_Automatic As Boolean\r\nPrivate m_FastFactor As Long\r\nPrivate m_ShowBmps As Boolean\r\nPrivate m_Events As Boolean\r\nPrivate flagCounter As Boolean\r\nPrivate flagDelete As Boolean<\/pre>\n
Public Property Set PForm(AForm As Access.Form)\r\nIf m_frm Is Nothing Then Set m_frm = AForm\r\nEnd Property\r\nPublic Property Let ButtonSet(ASet As eButtonSet)\r\nm_Buttons = ASet\r\nRedraw\r\nEnd Property\r\nPublic Property Let InfoPosition(pos As eInfoPosition)\r\nm_InfoPos = pos\r\nRedraw\r\nEnd Property\r\nPublic Property Let AutoMode(OnOff As Boolean)\r\nm_Automatic = OnOff\r\nEnd Property\r\nPublic Property Let ShowBmps(OnOff As Boolean)\r\nm_ShowBmps = OnOff\r\nRedraw\r\nEnd Property\r\nPublic Property Let WindFactor(count As Long)\r\nm_FastFactor = count\r\nMe.btnForward.ControlTipText = m_FastFactor & €œ Datensätze€ _\r\n& €œ vorwärts€\r\nMe.btnRewind.ControlTipText = m_FastFactor & €œ Datensätze€ _\r\n& €œ zurück€\r\nEnd Property\r\nPublic Property Get FormWidth() As Long\r\nFormWidth = Me.Width\r\nEnd Property\r\nPublic Property Let Allowevents(OnOff As Boolean)\r\nm_Events = OnOff\r\nEnd Property<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/Navigationsleiste-web-images\/pic011_opt.jpeg\")
<\/p>\nPrivate Sub btnFirst_Click()\r\n Dim b As Boolean\r\n If m_Events Then RaiseEvent _\r\n NaviClick(eButtonFirst, b)\r\n On Error Resume Next\r\n If m_Automatic Then If Not b Then m_frm.Recordset.MoveFirst\r\n End Sub<\/pre>\n
Public Event NaviClick(Button As eButtonSet, _\r\nCancel As Boolean)<\/pre>\n
Private Sub btnLast_Click()\r\n ...\r\n m_frm.Recordset.MoveLast\r\n ...\r\n End Sub<\/pre>\n
Private Sub btnNext_Click()\r\n ...\r\n If m_frm.NewRecord Then Exit Sub\r\n If m_frm.CurrentRecord <> _\r\n m_frm.Recordset.RecordCount Then _\r\n m_frm.Recordset.MoveNext\r\n ...\r\n End Sub<\/pre>\n
Private Sub btnPrev_Click()\r\n ...\r\n If m_frm.NewRecord Then\r\n m_frm.Recordset.MoveLast\r\n Else\r\n If m_frm.CurrentRecord > 1 Then _\r\n m_frm.Recordset.MovePrevious\r\n End If\r\n ...\r\n End Sub<\/pre>\n
Private Sub btnForward_Click()\r\n ...\r\n On Error Resume Next\r\n ...\r\n DoCmd.GoToRecord acDataForm, m_frm.Name, _\r\n acNext, m_FastFactor\r\n If Err.Number <> 0 Then _\r\n m_frm.Recordset.MoveLast\r\n Me.Parent.Refresh\r\n m_frm.Recordset.Move 0\r\n ...\r\n End Sub\r\nPrivate Sub btnRewind_Click()\r\n ...\r\n On Error Resume Next\r\n ...\r\n DoCmd.GoToRecord acDataForm, _\r\n m_frm.Name, acPrevious, m_FastFactor\r\n If Err.Number <> 0 Then _\r\n m_frm.Recordset.MoveFirst\r\n Me.Parent.Refresh\r\n m_frm.Recordset.Move 0\r\n ...\r\n End Sub<\/pre>\n
Private Sub btnNew_Click()\r\n ...\r\n On Error Resume Next\r\n ...\r\n Forms(m_frm.Name).SetFocus\r\n RunCommand acCmdSaveRecord\r\n DoEvents\r\n DoCmd.GoToRecord acDataForm, m_frm.Name, _\r\n acNewRec\r\n RaiseEvent DataChanged\r\n ...\r\n End Sub<\/pre>\n
Public Event DataChanged()<\/pre>\n
Private Sub btnDelete_Click()\r\n Dim b As Boolean, ctl As Access.Control\r\n If m_Events Then RaiseEvent NaviClick(eButtonDel, b)\r\n If m_Automatic Then\r\n If m_frm.NewRecord Then Exit Sub\r\n If Not b Then\r\n On Error Resume Next\r\n m_frm.Form.SetFocus\r\n On Error Resume Next\r\n For Each ctl In m_frm.Section(acDetail).Controls\r\n If (ctl.ControlType = acTextBox) Then\r\n Err.Clear\r\n ctl.SetFocus\r\n If Err.Number = 0 Then Exit For\r\n End If\r\n Next ctl\r\n On Error GoTo 0\r\n flagDelete = True\r\n DoCmd.RunCommand acCmdSelectRecord\r\n DoCmd.RunCommand acCmdDeleteRecord\r\n DoEvents\r\n flagDelete = False\r\n btnPrev_Click\r\n RaiseEvent DataChanged\r\n End If\r\n End If\r\n Set ctl = Nothing\r\n End Sub<\/pre>\n
Private Sub btnStore_Click()\r\n Me.Parent.SetFocus\r\n If Err.Number <> 0 Then\r\n Dim ctl As Access.Control\r\n For Each ctl In Me.Parent.Controls\r\n Err.Clear\r\n ctl.SetFocus\r\n If Err.Number = 0 Then Exit For\r\n Next ctl\r\n End If\r\n On Error GoTo 0\r\n RunCommand acCmdSaveRecord\r\n Me!btnNext.SetFocus\r\n Me!btnStore.Enabled = False\r\n Me!btnUndo.Enabled = False\r\n End Sub<\/pre>\n
Private Sub txtCounter_AfterUpdate()\r\n If flagCounter Then Exit Sub\r\n On Error Resume Next\r\n m_frm.Recordset.AbsolutePosition = _\r\n CLng(txtCounter) - 1\r\n End Sub<\/pre>\n
aktivieren<\/pre>\n
Private Sub m_frm_Dirty(Cancel As Integer)\r\n Me!btnStore.Enabled = True\r\n Me!btnUndo.Enabled = True\r\n End Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n