<\/p>\n
Das Registersteuerelement ist ein probates Mittel, überfüllte Formulare zu entschlacken und Eingabesteuerelemente zu strukturieren. Wir zeigen Ihnen, wie Sie das Registersteuerelement einsetzen, wie Sie auf die Ereignisse reagieren, die das Steuerelement etwa beim Wechseln der Registerseite auslöst, und wie Sie ihm ein ganz anderes Aussehen als gewohnt geben.<\/b><\/p>\n
Das Registersteuerelement fällt in erster Linie durch die Registerlaschen auf, über die der Benutzer per Mausklick die einzelnen Registerseiten aufrufen kann. Ein Registersteuerelement fügen Sie wie jedes andere eingebaute Steuerelement über den entsprechenden Eintrag der Werkzeug-Symbolleiste (bis Access 2003) beziehungsweise den entsprechenden Ribbon-Eintrag zu einem Formular hinzu. Dazu klicken Sie den jeweiligen Eintrag an und ziehen dann im Formularentwurf einen Rahmen in der gewünschten Größe auf.<\/p>\n
Markieren der einzelnen Registersteuerelement-Bestandteile<\/b><\/p>\n
Auch wenn dies trivial erscheint: Es ist zumindest für Einsteiger gar nicht so einfach, das komplette Registersteuerelement oder eine der Registerseiten zu markieren. Wenn Sie einfach in die aktuell angezeigte Registerseite klicken, geschieht gar nichts: Sofern Sie nicht gerade ein auf der Registerseite enthaltenes Steuerelement anklicken, meldet das Eigenschaftsfenster, dass aktuell der Detailbereich des Formulars markiert ist. Erst ein Klick auf einen der Registerreiter markiert die entsprechende Registerseite. Das Registersteuerelement selbst markieren Sie, indem Sie entweder, soweit vorhanden, auf den freien Bereich rechts neben der letzten Registerlasche klicken oder indem Sie an einer leeren Stelle im Detailbereich beginnend einen Rahmen aufziehen, der über dem Registersteuerelement endet. Auch hier erkennen Sie am besten im Eigenschaftsfenster, welches Steuerelement aktuell markiert ist.<\/p>\n
Hinzufügen und Entfernen von Registerseiten<\/b><\/p>\n
Wenn Sie dem Registersteuerelement eine Seite hinzufügen möchten, gelingt dies am schnellsten über das Kontextmenü des Steuerelements selbst. Markieren Sie das Steuerelement wie oben angegeben und klicken Sie auf die rechte Maustaste, können Sie aus dem Kontextmenü den Eintrag Seite einfügen <\/b>auswählen (siehe Bild 1). Eine vorhandene Registerseite entfernen Sie, indem Sie diese zuerst markieren und dann den Eintrag Seite löschen <\/b>aus dem entsprechenden Kontextmenü auswählen.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Über das Kontextmenü des Registersteuerelements fügen Sie Seiten hinzu oder entfernen diese.<\/span><\/b><\/p>\n Reihenfolge der Registerseiten einstellen<\/b><\/p>\n Ein weiterer Eintrag des Kontextmenüs öffnet den Dialog Seitenreihenfolge <\/b>(siehe Bild 2). Mit diesem Dialog können Sie die Reihenfolge einstellen, indem Sie den zu verschiebenden Eintrag markieren und diesen mit den beiden Schaltflächen Nach oben <\/b>oder Nach unten <\/b>verschieben.<\/p>\n Bild 2: Einstellung der Reihenfolge der Registerreiter<\/span><\/b><\/p>\n Wichtige Eigenschaften von Registersteuerelementen<\/b><\/p>\n Wie jedem anderen Steuerelement auch, sollten Sie die Name<\/b>-Eigenschaft des Registersteuerelements auf einen Wert einstellen, der mit dem entsprechenden Präfix beginnt – zum Beispiel tabBeispiel<\/b>. Wenn Sie per VBA auf die einzelnen Seiten zugreifen möchten, sollten Sie auch diesen entsprechende Namen geben. Hier können Sie etwa das Präfix pge <\/b>(für Page<\/b>) verwenden: pgeErsteSeite<\/b>, pgeZweiteSeite<\/b>. Wichtig ist auch die Überschrift: Mit der Eigenschaft Beschriftung <\/b>(unter VBA: Caption<\/b>) stellen Sie den im Registerreiter angezeigten Text ein. Genau genommen sollten Sie unbedingt eine Überschrift einstellen, denn sonst zeigt das Registersteuerelement den Namen der Seite als Beschriftung an.<\/p>\n Zeilenweise<\/b><\/p>\n Wenn das Registersteuerelement mehr Registerseiten enthält, als es Registerreiter anzeigen kann, erscheinen am rechten Rand zwei Schaltflächen, mit denen der Benutzer nach links oder rechts blättern kann (siehe Bild 3). In diesem Fall können Sie durch Einstellen der Eigenschaft Mehrere Zeilen <\/b>(VBA: MultiRow<\/b>) auf den Wert Ja <\/b>erreichen, dass die Registerreiter auf mehrere Zeilen verteilt werden (siehe Bild 4).<\/p>\n Bild 3: Die einzeilige Darstellung der Registerreiter reicht manchmal nicht aus.<\/span><\/b><\/p>\n Bild 4: Registersteuerelement mit mehrspaltigem Register<\/span><\/b><\/p>\n Wenn Sie sehr viele Registerseiten verwenden, könnte der Platz im Registersteuerelement ein wenig eng werden. Dem können Sie mit den beiden Eigenschaften Feste Registerbreite <\/b>(TabFixedHeight<\/b>) und Feste Registerhöhe <\/b>(TabFixedWidth<\/b>) abhelfen: Legen Sie alle Beschriftungen an, ermitteln Sie die maximal notwendige Breite und stellen Sie diese als Wert der Eigenschaft Feste Registerbreite <\/b>ein. Zusätzlich lässt sich auch noch über eine kleinere Schriftart und\/oder eine geringere Zeilenhöhe (Eigenschaft Feste Registerhöhe<\/b>) zusätzlicher Platz gewinnen.<\/p>\n Schaltflächen statt Registerreiter<\/b><\/p>\n Wenn Ihnen Schaltflächen optisch eher zusagen als Registerreiter, stellen Sie die Eigenschaft Formatvorlage <\/b>auf Schaltflächen <\/b>statt auf Register <\/b>ein. Unter der Kombination Windows XP\/Access 2007 macht dies allerdings kaum einen Unterschied, unter Access 2003 schon eher.<\/p>\n Sie können auch die Eigenschaft Formatvorlage <\/b>auf den Wert Keine <\/b>einstellen – die Registerreiter verschwinden dann vollständig. Auch dann noch ist das Registersteuerelement sinnvoll einsetzbar: Stellen Sie sich vor, Sie würden einen Assistenten etwa zum Anlegen von Kundendaten in mehreren Schritten programmieren. Sie könnten dann alle notwendigen Steuerelemente auf die einzelnen Registerseiten aufteilen und die jeweils benötigten durch einen programmatischen Wechsel der Registerseite anzeigen. Der Anwender könnte dann über Schaltflächen mit der Beschriftung Vorwärts <\/b>und Rückwärts <\/b>zwischen den einzelnen Stationen des Assistenten hin- und herwechseln.<\/p>\n Registerseiten ein- und ausblenden<\/b><\/p>\n Jede Registerseite kann im Entwurf über die Eigenschaft Sichtbar <\/b>ein- und ausgeblendet werden, zur Laufzeit erledigen Sie dies mit der Eigenschaft Visible<\/b>.<\/p>\n Bilder auf Registerreitern<\/b><\/p>\n Sie können jeden Registerreiter mit einem eigenen Bild ausstatten. Dazu wählen Sie über die Eigenschaft Bild<\/b> die entsprechende Bilddatei aus. In unseren Versuchen funktionierte dies jedoch ausschließlich mit .bmp<\/b>-Dateien. Diese enthalten jedoch keinen transparenten Hintergrund, sodass beim Wechseln der Registerseite und der damit verbundenen farblichen Hervorhebung der aktiven Seite unschöne Effekte entstehen. Bilder in Registerreitern sind aber ohnehin eher ungewöhnlich und in der freien Wildbahn kaum anzutreffen.<\/p>\n Steuerelemente auf Registerseiten platzieren<\/b><\/p>\n Das Platzieren eines Steuerelements auf einer Registerseite geschieht in der Regel wie bei einer Optionsgruppe. Klicken Sie die Schaltfläche für das einzufügende Element an und fahren Sie dann mit der Maus über die Zielseite des Registersteuerelements. Dieses färbt sich dann wie in Bild 5 schwarz ein. Klicken Sie zu diesem Zeitpunkt mit der Maus, wird das Steuerelement auf der aktuellen Registerseite angelegt.<\/p>\n Bild 5: Einfügen eines Steuerelements auf einer Registerseite<\/span><\/b><\/p>\n <\/p>\n Wenn Sie ein Steuerelement auf einer anderen Registerseite anlegen möchten, müssen Sie diese zuvor zur aktuellen Registerseite machen. Dies können Sie allerdings auch erledigen, während Sie das anzulegende Steuerelement schon „geladen“ haben – auf den Registerreitern lassen sich nämlich keine Steuerelemente ablegen.<\/p>\n Steuerelemente über den Registerseiten platzieren<\/b><\/p>\n Gegebenenfalls soll ein Steuerelement auf allen Seiten des Registersteuerelements erscheinen. Sie brauchen es dann nicht auf jeder Registerseite separat anzulegen, sondern platzieren es einfach über dem Registersteuerelement selbst. Das will natürlich nicht so einfach gelingen, denn schließlich färbt dieses beim Überfahren mit der Maus immer gleich die aktuelle Registerseite ein, um es als Ziel zu markieren. Daher gehen wir einen Umweg: Lassen Sie das Steuerelement einfach neben dem Registersteuerelement fallen und verschieben Sie es dann über das Registersteuerelement. Egal, welche Registerseite Sie anschließend aufrufen – ein oberhalb des Registersteuerelements platziertes anderes Steuerelement bleibt immer sichtbar. Und wenn ein solches Steuerelement nur auf fast allen Registerseiten sichtbar sein soll, blenden Sie es eben zur Laufzeit mit der Visible<\/b>-Eigenschaft ein und aus. Für Steuerelemente, die auf jeder Registerseite die gleiche Funktion anbieten, ist das ohnehin die sinnvollste Lösung.<\/p>\n Register im Register<\/p>\n Manchmal soll es vorkommen, dass Benutzer nach einem Register im Register verlangen. Leider ist es nicht möglich, ein Registersteuerelement direkt auf einer Registerseite abzulegen. Die Betonung liegt hier auf „direkt“, denn über einen Umweg fügen Sie das Registersteuerelement doch noch auf einer Registerseite ein. Der Trick ist, dass Sie der betroffenen Registerseite ein Unterformular unterjubeln, das seinerseits das weitere Registersteuerelement enthält.<\/p>\n Wenn Sie dies vorhaben, erstellen Sie zunächst ein Unterformular und fügen diesem das untergeordnete Registersteuerelement hinzu. Verkleinern Sie den Detailbereich des Unterformulars bis auf die Größe des Registersteuerelements, damit sich dieses nahtlos in die übergeordnete Registerseite einfügt. Das Ergebnis sieht – ohne jegliche Schönheitsoperation – wie in Bild 6 aus.<\/p>\n Bild 6: Ein Registersteuerelement im Registersteuerelement – ein Unterformular macht“s möglich<\/span><\/b><\/p>\n Per VBA auf Registersteuerelemente zugreifen<\/b><\/p>\n Früher oder später werden Sie Registersteuerelemente per VBA steuern, etwa um auf benutzergesteuerte Seitenwechsel zu reagieren. Ein gutes Beispiel ist der bereits oben erwähnte Assistent, dessen Zurück- und Weiter-Schaltflächen je nach der aktuell ausgewählten Seite aktiviert oder deaktiviert werden sollen.<\/p>\n Zunächst jedoch schauen wir uns an, wie wir grundsätzlich auf die Elemente eines Registersteuerelements zugreifen können. Davon ausgehend, dass der Zugriff vom Klassenmodul des Formulars ausgeht, in dem sich das Steuerelement befindet, referenzieren Sie dieses mit folgender Anweisung:<\/p>\n Lassen Sie uns beim Laden des Formulars einige Informationen über das Registersteuerelement und die enthaltenen Seiten ausgeben. Dazu legen wir eine Ereignisprozedur an, die durch das Ereignis Beim Laden <\/b>ausgelöst wird. Fügen Sie dieser Eigenschaft des Formularentwurfs im Eigenschaftsfenster den Wert [Ereignisprozedur] <\/b>hinzu und klicken Sie auf die Schaltfläche mit den drei Punkten (…) neben der entsprechenden Eigenschaft. Im nun erscheinenden VBA-Editor ergänzen Sie die frisch angelegte Ereignisprozedur mit folgenden Codezeilen:<\/p>\n Dies gibt beim Öffnen des Formulars den Namen des Registersteuerelements und die Anzahl der enthaltenen Registerseiten aus. Schauen wir uns nun die einzelnen Registerseiten an. Die Pages<\/b>-Auflistung, mit deren Count<\/b>-Eigenschaft wir oben bereits die Anzahl der enthaltenen Seiten ermittelt haben, bietet über die Items<\/b>-Eigenschaft Zugriff auf alle enthaltenen Page<\/b>-Objekte. Wenn Sie Informationen zu einer bestimmten Seite erhalten möchten, können Sie dies etwa so erreichen:<\/p>\n Die Zahl 0 <\/b>entspricht dabei dem Index des Item-Elements. Auf ein Page<\/b>-Objekt können Sie auch über den Steuerelementnamen zugreifen, also beispielsweise pgeSeite1<\/b>:<\/p>\n Falls Sie Informationen über alle Page<\/b>-Elemente eines Registersteuerelements benötigen oder diese aus anderen Gründen per VBA durchlaufen möchten, gelingt dies am besten über eine entsprechende Objektvariable, die Sie wie folgt deklarieren:<\/p>\n Die folgende For Each<\/b>-Schleife durchläuft alle Elemente der Pages<\/b>-Auflistung und füllt objPage <\/b>jeweils mit einem Verweis auf die aktuelle Seite. Innerhalb der Schleife gibt die Prozedur die Beschriftung, den Index und den Visible<\/b>-Zustand im Direktfenster aus:<\/p>\n Reihenfolge der Tabs zur Laufzeit ändern<\/b><\/p>\n Der PageIndex <\/b>gibt unter anderem die Reihenfolge der Page<\/b>-Elemente im Registersteuerelement an. Diesen können Sie zur Laufzeit ändern. Um diesen Effekt direkt betrachten zu können, positionieren Sie das Access-Fenster und den VBA-Editor nebeneinander, öffnen das Formular mit dem Registersteuerelement und setzen dann folgende Anweisung im Direktfenster ab:<\/p>\n Dies vertauscht die Seite mit dem PageIndex 0 <\/b>mit der Seite mit PageIndex 1<\/b>. Generell gilt die Regel, dass der PageIndex <\/b>aller Seiten, deren PageIndex <\/b>größer ist als der PageIndex <\/b>der Seite, deren PageIndex <\/b>geändert wird, um eins in Richtung des PageIndexes <\/b>der geänderten Seite rutscht.<\/p>\n PageIndex der aktuellen Seite ermitteln<\/b><\/p>\n Sie werden vermutlich auf die Anforderung treffen, dass Sie zu einem bestimmten Zeitpunkt ermitteln müssen, welche Seite des Registersteuerelements aktuell angezeigt wird. Das ist außerordentlich einfach: Sie brauchen nur den Wert des Registersteuerelements zu ermitteln. Und das geht so:<\/p>\n Möglicherweise kennen Sie dies schon von der Optionsgruppe: Statt eines PageIndexes <\/b>enthält dort jede Option einen Optionswert, wobei der Wert der aktuell markierten Option als Wert des Optionsgruppen-Steuerelements ausgelesen werden kann. Vom PageIndex <\/b>aus ermitteln wir gleich noch den Namen der ausgewählten Seite:<\/p>\n Seiten zur Laufzeit zum Registersteuerelement hinzufügen<\/b><\/p>\n Was bei den meisten Steuerelementen etwas aufwendiger ist, gelingt beim Registersteuerelement ganz leicht: Sie können ihm in der Entwurfsansicht leicht per VBA-Code weitere Seiten hinzufügen und diese auch wieder entfernen.<\/p>\n Als Beispiel verwenden wir die Artikel und Kategorien der Südsturm-Datenbank. Fügen Sie einem leeren Formular ein Registersteuerelement hinzu und nennen Sie es tabArtikel<\/b>. Stellen Sie seine Eigenschaft Mehrere Zeilen <\/b>auf Ja <\/b>ein. Das Registersteuerelement soll für jede Kategorie der Tabelle tblKategorien<\/b> einen Registerreiter erhalten. Später soll ein Unterformular die zur aktuellen Kategorie gehörenden Artikel anzeigen.<\/p>\n Die einzelnen Registerseiten sollen Sie nun nicht von Hand anlegen, sondern per VBA-Code – und zwar in der Entwurfsansicht. Dies erledigt die Prozedur aus Listing 1 (in der Beispieldatenbank im Modul mdlRegister <\/b>zu finden). Die Routine füllt zunächst eine Variable des Typs TabControl <\/b>mit einem Verweis auf das Registersteuerelement des Formulars in der Entwurfsansicht (befindet sich das Formular nicht in der Entwurfsansicht, wird weiter unten ein Fehler ausgelöst).<\/p>\n Listing 2: Speichern von Anlagen im Dateisystem<\/p>\n Dann öffnet die Prozedur eine Datensatzgruppe und füllt diese mit den Datensätzen der Tabelle tblKategorien<\/b>, wobei nur die Felder KategorieID <\/b>und Kategoriename <\/b>berücksichtigt werden. Nach der Ermittlung der Anzahl der enthaltenen Datensätze werden drei Do While<\/b>-Schleifen durchlaufen. Die erste prüft jeweils, ob die Anzahl der im Registersteuerelement enthaltenen Page<\/b>-Objekte größer ist als die Anzahl der Datensätze im Recordset. Falls ja, wird jeweils ein Page<\/b>-Objekt gelöscht – bis schließlich genau ein Page<\/b>-Objekt je Datensatz vorliegt. Gegebenenfalls enthält das Registersteuerelement beim Aufruf der Prozedur weniger Page<\/b>-Elemente als benötigt. In dem Fall füllt die zweite Schleife die Page<\/b>-Elemente auf.<\/p>\n Fehlt noch die dritte Do While<\/b>-Schleife: Diese ändert beim Durchlaufen der Datensätze der Tabelle tblKategorien <\/b>die Eigenschaften der vorhandenen Page<\/b>-Elemente, indem sie die Beschriftung auf den Wert des Feldes Kategoriename <\/b>und den Namen auf die Zeichenkette pge <\/b>plus der KategorieID <\/b>des aktuellen Datensatzes einstellt. Das Ergebnis sieht nun, egal wie das Registersteuerelement zuvor beschaffen war, wie in Bild 7 aus.<\/p>\n Bild 7: Registersteuerelement mit einer Seite je Kategorie der Kategorien-Tabelle<\/span><\/b><\/p>\n Nun soll noch ein Unterformular die Artikel für die aktuell ausgewählte Registerseite beziehungsweise Kategorie anzeigen. Fügen wir also zunächst jeder Seite des Registersteuerelements ein Unterformular hinzu … oder doch nicht Nein: Wir legen das Unterformular einfach über das Registersteuerelement – genau, wie es weiter oben bereits einmal beschrieben wurde! Die Daten sollen ohnehin immer an der gleichen Position angezeigt werden, egal, welche Kategorie der Benutzer nun über die Registerreiter ausgewählt hat.<\/p>\n Erstellen Sie also ein Unterformular namens sfmArtikelNachKategorien<\/b> und fügen Sie diesem als Datenherkunft die Tabelle tblArtikel <\/b>hinzu. Ziehen Sie alle gewünschten Felder in den Detailbereich und stellen Sie die Standardansicht auf Datenblatt ein. Speichern Sie das Unterformular und schließen Sie es. Ziehen Sie es nun vom Datenbankfenster beziehungsweise aus dem Navigationsbereich in den Entwurf des Formulars frmArtikelNachKategorien<\/b>. Verschieben Sie es dann so über das Registersteuerelement, dass es so aussieht, als ob es in einer Seite des Registersteuerelements angezeigt würde.<\/p>\n Ereignisse des Registersteuerelements<\/b><\/p>\n Praktischerweise können wir hier sehr schön die Ereigniseigenschaft Bei änderung <\/b>des Registersteuerelements vorführen. Hinterlegen Sie für dieses Ereignis die folgende Prozedur:<\/p>\n Die einzige Anweisung ruft eine weitere Prozedur auf, die so aussieht:<\/p>\n Diese Prozedur liest über Me.tabKategorien.Value <\/b>den PageIndex <\/b>der aktuellen Seite aus und ermittelt für die Seite mit diesem Index den Namen, der zum Beispiel pge5 <\/b>lautet. Die Mid<\/b>-Funktion filtert hier die 5 <\/b>heraus, die dem Primärschlüsselwert der gewählten Kategorie entspricht. Mit diesem Wert filtern wir die Datenherkunft des Unterformulars, welches daraufhin die Artikel der ausgewählten Kategorie anzeigt (siehe Bild 8).<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic002_opt.jpeg\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic005_opt.jpeg\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic006_opt.jpeg\")
<\/p>\nMe!<Registersteuerelementname><\/pre>\n
Private Sub Form_Load()\r\n Debug.Print Me!tabBeispiel.Name\r\n Debug.Print Me!tabBeispiel.Pages.Count\r\nEnd Sub<\/pre>\n
Debug.Print Me!tabBeispiel.Pages.Item(0).Caption<\/pre>\n
Debug.Print Me!tabBeispiel.Pages.Item("pgeSeite1").Caption<\/pre>\nDim objPage As Page<\/pre>\n
For Each objPage In Me!tabBeispiel.Pages\r\n Debug.Print objPage.Caption,\r\n objPage.PageIndex, objPage.Visible\r\nNext objPage<\/pre>\n
Forms!frmRegister!tabBeispiel.Pages.Item(1).PageIndex = 0<\/pre>\n
Debug.Print Forms!frmRegister!tabBeispiel.Value<\/pre>\n
Debug.Print Forms!frmRegister!tabBeispiel.Pages(Forms!frmRegister!tabBeispiel.Value).Name<\/pre>\n
Public Sub KategorieseitenAnlegen()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim objTabControl As TabControl\r\n Dim lngKategorien As Long\r\n Dim i As Integer\r\n Set objTabControl = Forms!frmArtikelNachKategorien.tabKategorien\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("SELECT KategorieID, Kategoriename FROM tblKategorien " _\r\n & "ORDER BY Kategoriename", dbOpenDynaset)\r\n rst.MoveLast\r\n rst.MoveFirst\r\n lngKategorien = rst.RecordCount\r\n Do While objTabControl.Pages.Count > lngKategorien\r\n objTabControl.Pages.Remove objTabControl.Pages.Count - 1\r\n Loop\r\n Do While objTabControl.Pages.Count < lngKategorien\r\n objTabControl.Pages.Add 0\r\n Loop\r\n Do While Not rst.EOF\r\n objTabControl.Pages.Item(i).Caption = rst!Kategoriename\r\n objTabControl.Pages.Item(i).Name = "pge" & rst!KategorieID\r\n i = i + 1\r\n rst.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic007_opt.jpeg\")
<\/p>\nPrivate Sub tabKategorien_Change()\r\n ArtikelFiltern\r\nEnd Sub<\/pre>\n
Private Sub ArtikelFiltern()\r\n Dim lngKategorieID As Long\r\n lngKategorieID = Mid(Me.tabKategorien.\r\n Pages(Me.tabKategorien.Value).Name, 4)\r\n With Me.sfmArtikelNachKategorien.Form\r\n .Filter = "KategorieID = "\r\n & lngKategorieID\r\n .FilterOn = True\r\n End With\r\nEnd Sub<\/pre>\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Registersteuerelement-web-images\/pic008_opt.jpeg\")
<\/p>\n