<\/p>\n
Das Navigationssteuerelement ermöglicht ein einfaches Handling von Unterformularen. Sie können damit etwa immer das gleiche Formular als Unterformular anzeigen und die Daten je nach gedrückter Navigationsschaltfläche filtern – beispielsweise um Artikel nach Kategorien zu sortieren oder nach dem Alphabet zu filtern. Dieser Beitrag zeigt, wie Sie eine solche Lösung erstellen – aber auch, wie Sie sich die Arbeit beim Erstellen des Formulars per VBA vereinfachen können.<\/b><\/p>\n
Wenn Sie beispielsweise ein Navigationssteuerelement erstellen, mit dem Sie die Artikel oder Kunden in einer Datenbank nach dem Alphabet filtern möchten, ist erstmal umfangreiche Handarbeit gefragt: Immerhin wollen zumindest 26 Schaltflächen für den Aufruf eines Formulars mit den entsprechenden Filterkriterien erstellt werden.<\/p>\n
Da diese Aufgabe eines Access-Entwicklers unwürdig ist, werden wir diese natürlich per VBA automatisieren. Um dies zu erledigen, sind ein paar Grundlagen erforderlich, die wir in einem einfachen Beispiel betrachten.<\/p>\n
Ziel ist es, ein einfaches Navigationssteuerelement mit zwei Einträgen in der ersten Ebene und jeweils zwei Einträgen in der zweiten Ebene zu erstellen. Dieses sieht nach der Fertigstellung wie in Bild 1 aus.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_06\/NavigationssteuerelementPraxis-web-images\/pic001.png\")
<\/p>\n
Bild 1: Navigationssteuerelement mit verschachtelten Elementen<\/span><\/b><\/p>\n Die zur Erstellung dieses Formulars verwendete Prozedur nutzt eine Hilfsfunktion, die sich nur um das reine Formular kümmert. Diese heißt NeuesFormular<\/b>, erwartet den Namen des zu erstellenden Formulars und sieht wie folgt aus:<\/p>\n Die Funktion schließt zunächst ein eventuell vorhandenes Formular gleichen Namens und löscht dieses aus der Datenbank. Danach erstellt sie mit der CreateForm<\/b>-Methode ein Formular<\/b>-Objekt und speichert den Namen dieses neuen Formulars in der Variablen strFormTemp <\/b>zwischen. Dies ist nötig, da das Formular im geöffneten Zustand nicht umbenannt werden kann. Also schließt die Funktion das Formular und benennt es dann mit der Rename<\/b>-Funktion um. Anschließend startet die eigentliche Erstellung des verschachtelten Navigationssteuerelements. Die dazu verwendete Prozedur finden Sie in Listing 1<\/a><\/span>.<\/p>\n Listing 1: Erstellen eines Formulars mit verschachtelter Navigation<\/p>\n Die Prozedur ruft zunächst die bereits beschriebene Funktion zum Erstellen des eigentlichen Formulars auf. Dann öffnet sie dieses Formular in der Entwurfsansicht und referenziert es mit der Objektvariablen frm<\/b>.<\/p>\n Die CreateControl<\/b>-Methode des Application<\/b>-Objekts erstellt ein Steuerelement des Typs acNavigationControl<\/b>, und zwar in dem mit dem dritten Parameter angegebenen Formularbereich – hier dem Detailbereich (acDetail<\/b>).<\/p>\n Dieses Steuerelement referenziert die Prozedur dann mit der als NavigationControl <\/b>deklarierten Objektvariablen ctlNavigation<\/b>. Über die Name<\/b>-Eigenschaft dieser Variablen legt die Funktion die Bezeichnung nav <\/b>für das Steuerelement fest.<\/p>\n Wir möchten dem Navigationssteuerelement ein weiteres Navigationssteuerelement unterordnen, was weniger Aufwand als erwartet bedeutet: Sie brauchen dazu nämlich einfach nur ein weiteres Navigationssteuerelement zum Formular hinzuzufügen. Es ist keine Angabe des übergeordneten Navigationssteuerelements nötig, diese Eigenschaft wird automatisch auf das bereits vorhandene Navigationssteuerelement eingestellt.<\/p>\n <\/p>\n Allerdings ist diese Eigenschaft weder per VBA noch im Eigenschaftsfenster zu finden – Sie können diese höchstens einsehen, wenn Sie den Quelltext des Formulars per SaveAsText <\/b>speichern – etwa so:<\/p>\n Dort finden Sie dann die Eigenschaft NavigationChild <\/b>für das übergeordnete Navigationssteuerelement (s. Bild 2) und NavigationParent <\/b>für das untergeordnete Element vor. In der Anwendung können Sie diese Beziehung nur über die Reihenfolge beim Hinzufügen beeinflussen – genauso wie im vorliegenden VBA-Beispiel.<\/p>\n Bild 2: Quellcode des Formulars frmNaviPerVBA<\/span><\/b><\/p>\n Das untergeordnete Navigationssteuerelement wird schließlich mit der Variablen ctlSubnavigation <\/b>referenziert und navSub <\/b>benannt.<\/p>\n Nun kümmern wir uns um die Schaltflächen. Um diese in das richtige Verhältnis zueinander zu bringen, müssen Sie die Reihenfolge beim Anlegen unter VBA streng einhalten. Als Erstes legen Sie mit der Methode CreateControl <\/b>das erste Steuerelement des übergeordneten Navigationssteuerelements an. Der erste Parameter dieser Methode erwartet wieder den Namen des Formulars, in dem das Steuerelement landen soll, der zweite den Steuerelementtyp – hier acNavigationButton <\/b>-, der dritte den Zielbereich und der vierte den Namen des Steuerelements, dem das zu erstellende Steuerelement untergeordnet werden soll.<\/p>\n Die erste Navigationsschaltfläche der ersten Ebene erhält den Namen nab1 <\/b>und die Beschriftung Button 1<\/b>.<\/p>\n Bevor wir nun das nächste Element dieser Ebene erstellen, müssen erst die untergeordneten Elemente für das erste Element angelegt werden. Der Grund ist, dass Access beim Anlegen einer Navigationsschaltfläche immer das zuletzt angelegte Element des übergeordneten Navigationssteuerelements als Parent-Element erkennt.<\/p>\n Also legt die Prozedur zunächst die beiden Navigationsschaltflächen nab11 <\/b>und nab12 <\/b>mit den Beschriftungen Button 1-1 <\/b>und Button 1-2 <\/b>an.<\/p>\n Erst danach werden die zweite Navigationsschaltfläche im ersten Navigationssteuerelement und die beiden diesem untergeordneten Navigationsschaltflächen im zweiten Navigationssteuerelement angelegt.<\/p>\n Schließlich schließt die Prozedur das frisch erstellte Formular.<\/p>\n Artikel alphabetisch sortieren<\/b><\/p>\n Den praxisbezogenen Teil dieses Beitrags deckt die Lösung aus Bild 3 ab. Dieses Formular enthält 27 Navigationsschaltflächen, von denen eine alle Artikel der Tabelle tblArtikel <\/b>anzeigen soll und die übrigen jeweils alle Artikel, die mit dem angegebenen Buchstaben beginnen.<\/p>\n Bild 3: Formular zum Filtern von Artikeln nach dem Alphabet<\/span><\/b><\/p>\n Auch hier soll das Grundgerüst des Formulars mit einer VBA-Prozedur erstellt werden, bevor wir einige Feinheiten hinzufügen. Die Prozedur sieht wie in Listing 2<\/a><\/span> aus und nutzt wiederum die oben vorgestellte Funktion NeuesFormular<\/b>, um ein neues, leeres Formular zu erstellen und dieses unter dem Namen frmArtikelNachAlphabet <\/b>zu speichern.<\/p>\n Listing 2: Erstellen eines Formulars mit Register-Schaltflächen<\/p>\n Danach öffnet es das Formular in der Entwurfsansicht und referenziert es mit der Objektvariablen frm<\/b>. Danach legt es das Navigationssteuerelement mit dem Namen navArtikel <\/b>im Detailbereich des soeben erzeugten Formulars an.<\/p>\n Die folgende Anweisung fügt die Navigationsschaltfläche mit der Beschriftung Alle <\/b>und dem Namen nabAlle <\/b>hinzu. Außerdem stellt die Prozedur für dieses mit der Variablen ctlButton <\/b>referenzierte Steuerelement die Breite 750 Twips (Eigenschaft Width<\/b>), das Formular frmArtikel <\/b>als Unterformular (NavigationTargetName<\/b>) und den Filter für das Unterformular auf eine leere Zeichenkette ein (NavigationWhereClause<\/b>).<\/p>\n Dann folgt eine For…Next<\/b>-Schleife über die Zahlen von 1 bis 26. Schwer zu erraten, dass damit die Schaltflächen für die Buchstaben des Alphabets hinzugefügt werden sollen.<\/p>\n Den Buchstaben ermittelt die Prozedur mit der Chr<\/b>-Funktion, welche für den Wert 65 <\/b>den Buchstaben A<\/b>, für 66 <\/b>den Buchstaben B <\/b>und so weiter zurückliefert.<\/p>\n Der jeweilige Buchstabe wird in der Variablen strBuchstabe <\/b>gespeichert und im Anschluss gleich mehrfach verwendet. Als Erstes wird der Name der in diesem Durchlauf der Schleife erstellten Navigationsschaltfläche auf die Zeichenkette nab <\/b>und den aktuellen Buchstaben eingestellt, also beispielsweise nabA<\/b>, nabB <\/b>und so weiter. Die Beschriftung wird über die Eigenschaft Caption <\/b>ebenfalls mit dem Buchstaben gefüllt. Die Breite fällt mit 250 Pixeln etwas geringer aus als für den ersten Eintrag Alle<\/b>, aber dies reicht bei der Standardschriftart aus, damit alle Zeichen komplett sichtbar sind. Als anzuzeigendes Unterformular wird das Formular frmArtikel <\/b>eingestellt. Schließlich fehlt noch der Filter, der dafür sorgen soll, dass das Unterformular beim Klick auf eine der Navigationsschaltflächen nach dem angeklickten Buchstaben gefiltert werden soll. Diesen fügen Sie mit dem folgenden Ausdruck für die Eigenschaft NavigationWhereClause <\/b>hinzu:<\/p>\n Damit ist das Grundgerüst des Formulars fertig (s. Bild 4).<\/p>\n Bild 4: Grundgerüst des Formulars frmArtikelNachAlphabet im Entwurf<\/span><\/b><\/p>\n Schaltflächen aktivieren und deaktivieren<\/p>\n Nun kann es vorkommen, dass es für einen Buchstaben keine passenden Einträge gibt – ein Klick auf die entsprechende Schaltfläche liefert dann ein leeres Unterformular.<\/p>\n Das ist natürlich nicht besonders ergonomisch – man sollte den Benutzer auf irgendeine Weise darauf aufmerksam machen, dass sich hinter der entsprechenden Navigationsschaltfläche keine Datensätze verbergen.<\/p>\n Auch das ist kein Problem – Sie müssen lediglich beim Laden des Formulars prüfen, für welchen Anfangsbuchstaben überhaupt Datensätze vorliegen und die Navigationsschaltflächen entsprechend aktivieren oder deaktivieren.<\/p>\nPublic Function NeuesFormular(strForm As String)\r\n Dim strFormTemp As String\r\n Dim frm As Form\r\n On Error Resume Next\r\n DoCmd.Close acForm, strForm\r\n DoCmd.DeleteObject acForm, strForm\r\n On Error GoTo 0\r\n Set frm = Application.CreateForm\r\n strFormTemp = frm.Name\r\n DoCmd.Close acForm, frm.Name, acSaveYes\r\n DoCmd.Rename strForm, acForm, strFormTemp\r\nEnd Function<\/pre>\n
Public Sub FormularErstellen()\r\n Dim frm As Form\r\n Dim strForm As String\r\n Dim ctlNavigation As NavigationControl\r\n Dim ctlSubnavigation As NavigationControl\r\n Dim ctlButton As NavigationButton\r\n strForm = "frmNaviPerVBA"\r\n NeuesFormular strForm\r\n DoCmd.OpenForm strForm, acDesign\r\n Set frm = Forms(strForm)\r\n Set ctlNavigation = Application.CreateControl(strForm, acNavigationControl, acDetail)\r\n ctlNavigation.Name = "nav"\r\n Set ctlSubnavigation = Application.CreateControl(strForm, acNavigationControl, acDetail)\r\n ctlSubnavigation.Name = "navSub"\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, ctlNavigation.Name)\r\n With ctlButton\r\n .Name = "nab1"\r\n .Caption = "Button 1"\r\n End With\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, ctlSubnavigation.Name)\r\n With ctlButton\r\n .Name = "nab11"\r\n .Caption = "Button 1-1"\r\n End With\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, ctlSubnavigation.Name)\r\n With ctlButton\r\n .Name = "nab12"\r\n .Caption = "Button 1-2"\r\n End With\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, ctlNavigation.Name)\r\n With ctlButton\r\n .Name = "nab2"\r\n .Caption = "Button 2"\r\n End With\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, ctlSubnavigation.Name)\r\n With ctlButton\r\n .Name = "nab21"\r\n .Caption = "Button 2-1"\r\n End With\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, ctlSubnavigation.Name)\r\n With ctlButton\r\n .Name = "nab22"\r\n .Caption = "Button 2-2"\r\n End With\r\n DoCmd.Close acForm, strForm, acSaveYes\r\nEnd Sub<\/pre>\n
SaveAsText acForm, "frmNaviPerVBA", currentproject.Path & "\\frmNaviPerVBA.txt"<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_06\/NavigationssteuerelementPraxis-web-images\/pic002.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_06\/NavigationssteuerelementPraxis-web-images\/pic003.png\")
<\/p>\nPublic Sub frmArtikelNachAlphabetErstellen()\r\n Dim strForm As String\r\n Dim ctlNavigation As NavigationControl\r\n Dim ctlButton As NavigationButton\r\n Dim i As Integer\r\n Dim strBuchstabe As String\r\n strForm = "frmArtikelNachAlphabet"\r\n NeuesFormular strForm\r\n DoCmd.OpenForm strForm, acDesign\r\n Set ctlNavigation = Application.CreateControl(strForm, acNavigationControl, acDetail)\r\n ctlNavigation.Name = "navArtikel"\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, _\r\n ctlNavigation.Name)\r\n With ctlButton\r\n .Name = "nabAlle"\r\n .Caption = "Alle"\r\n .Width = 750\r\n .NavigationTargetName = "frmArtikel"\r\n .NavigationWhereClause = ""\r\n End With\r\n For i = 1 To 26\r\n strBuchstabe = Chr(64 + i)\r\n Set ctlButton = Application.CreateControl(strForm, acNavigationButton, acDetail, _\r\n ctlNavigation.Name)\r\n With ctlButton\r\n .Name = "nab" & strBuchstabe\r\n .Caption = strBuchstabe\r\n .Width = 250\r\n .NavigationTargetName = "frmArtikel"\r\n .NavigationWhereClause = "Artikelname LIKE ''" & strBuchstabe & "*''"\r\n End With\r\n Next i\r\n DoCmd.Close acForm, strForm, acSaveYes\r\nEnd Sub<\/pre>\n
Artikelname LIKE ''" & strBuchstabe & "*''"<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_06\/NavigationssteuerelementPraxis-web-images\/pic004.png\")
<\/p>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_06\/NavigationssteuerelementPraxis-web-images\/pic005.png\")
<\/p>\n