{"id":55000177,"date":"2013-12-01T00:00:00","date_gmt":"2020-01-24T15:58:43","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=177"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Das_Registersteuerelement_in_der_Praxis","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Das_Registersteuerelement_in_der_Praxis.html","title":{"rendered":"Das Registersteuerelement in der Praxis"},"content":{"rendered":"

Bereits ohne den Einsatz von VBA können Sie das Registersteuerelement prima nutzen, um die Steuerelemente eines Formulars platzsparend auf mehrere Registerseiten aufzuteilen. Aber erst VBA entfaltet die vollen Möglichkeiten dieses Steuerelements: Sie können damit programmgesteuert ermittelten, welche Registerseite gerade aktiv ist, diese automatisch einstellen oder sogar per VBA Registerseiten hinzufügen und entnehmen, wenn Sie dies nicht von Hand erledigen möchten.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1212_RegistersteuerelementPraxis.mdb<\/b>.<\/p>\n

Registersteuerelement programmieren<\/h2>\n

Bevor wir zu den Praxisbeispielen kommen, schauen wir uns an, wie Sie das Aussehen, das Verhalten und die Interaktion des Registersteuerelements per VBA beeinflussen können.<\/p>\n

Aktuelle Seite abfragen<\/h2>\n

Wenn Sie für ein Registersteuerelement namens tab-BeispielVBA <\/b>in einem Formular wie frmBeispiel-VBA <\/b>aus Bild 1 die aktuell angezeigte Seite abfragen möchten, erledigen Sie dies etwa im Direktfenster mit folgender Anweisung:<\/p>\n

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

Bild 1: Beispielregistersteuerelement<\/p>\n

Debug.Print<\/span> Forms!frmBeispielVBA!tabBeispielVBA.Value\r\n 0 <\/pre>\n
Ist die erste Seite aktiviert, liefert dies den Index der Seite, nämlich 0<\/b>. Für die zweite Seite würde dies den Wert 1 <\/b>liefern und so weiter. Da Value die Standardeigenschaft dieses Steuerelements ist, können Sie auch die Kurzform ohne Angabe der Eigenschaft verwenden:<\/p>\n
Debug.Print<\/span> Forms!frmBeispielVBA!tabBeispielVBA<\/pre>\n
Aktuelle Seite einstellen<\/h2>\n
Wenn Sie per VBA die aktuell sichtbare Registerseite einstellen möchten, gelingt dies auf ähnliche Weise, wie dieser Aufruf zeigt – ebenfalls testweise im Direktfenster abzusetzen:<\/p>\n
Forms!frmBeispielVBA!tabBeispielVBA = 0<\/pre>\n
Damit aktivieren Sie die erste Registerseite, durch die Angabe anderer Werte die entsprechend indizierte Seite.<\/p>\n
Informationen einer Seite ermitteln<\/h2>\n
Wenn Sie Informationen wie Name, Beschriftung et cetera einer bestimmten Seite des Registersteuerelements ermitteln möchten, können Sie dies mit der Pages<\/b>-Auflistung erledigen. Damit greifen Sie über den Index oder den Namen der Registerseite auf alle enthaltenen Seiten zu.<\/p>\n
Den Namen der ersten Registerseite erhalten Sie über das Direktfenster etwa so:<\/p>\n
  Forms!frmBeispielVBA!tabBeispielVBA.Pages(0).Name\r\npge1<\/pre>\n
Die Beschriftung erhalten Sie auf ähnliche Weise:<\/p>\n
 Forms!frmBeispielVBA!tabBeispielVBA.Pages(0).Caption<\/pre>\n
Die Beschriftung etwa der ersten Seite des Registersteuerelements stellen Sie wie folgt ein:<\/p>\n
Forms!frmBeispielVBA!tabBeispielVBA.Pages(0)._\r\n    Caption = \"Seite 1\"<\/pre>\n
Informationen zu allen Seiten, die sich aktuell im Registersteuerelement befinden, können Sie mit einer For Each<\/b>-Schleife durchlaufen und ausgeben (diese Prozedur finden Sie im Beispielformular frmBeispielVBA<\/b>):<\/p>\n
Private Sub <\/span>cmdAlleSeitennamen_Click()\r\n     Dim <\/span>pge As <\/span>Page\r\n     For Each pge In Me.tabBeispielVBA.Pages\r\n         Debug.Print<\/span> pge.Name\r\n     Next<\/span> pge\r\nEnd Sub<\/span><\/pre>\n
Aktuelle Seite beim Klicken ausgeben<\/h2>\n
Wenn Sie beim Wechseln der Registerseite auswerten möchten, welche die aktuelle Seite ist, legen Sie dafür eine entsprechende Ereignisprozedur an. Aber für welches Ereignis Das Registersteuerelement liefert zwei, die dafür in Frage kommen könnten – Beim Klicken <\/b>und Bei änderung<\/b>.<\/p>\n
Um herauszufinden, welches Ereignis beim Wechseln der Registerseite ausgelöst wird, legen Sie einfach für beide Ereigniseigenschaften den Wert [Ereignisprozedur] <\/b>an und klicken je einmal auf die Schaltfläche mit den drei Punkten, um die entsprechende Ereignisprozedur anzulegen (siehe Bild 4).<\/p>\n
\"Anlegen<\/a><\/p>\n
Bild 2: Anlegen von Ereignisprozeduren für die Ereigniseigenschaften des Registersteuerelements<\/p>\n
Fügen Sie im VBA-Editor für beide Prozeduren einen Haltepunkt hinzu, indem Sie auf die graue Leiste links vom Code klicken (siehe Bild 2).<\/p>\n
\"Ereignisprozeduren<\/a><\/p>\n
Bild 3: Ereignisprozeduren mit Haltepunkten<\/p>\n
Zeigen Sie das Formular dann in der Formularansicht an und wechseln Sie die Registerseite. Dies öffnet den VBA-Editor, wobei die Prozedur tabBeispielVBA_Change <\/b>gelb markiert ist (siehe Bild 3). Ein Klick auf die Taste F5 lässt den Code weiterlaufen. Die Prozedur tabBeispielVBA_Click<\/b> wird jedoch nicht mehr gestartet. Dies bedeutet, dass nur das Ereignis Beim ändern <\/b>durch den Wechsel der Registerseite ausgelöst wird.<\/p>\n
\"Nur<\/a><\/p>\n
Bild 4: Nur diese Prozedur wird beim Wechsel der Registerseite ausgelöst.<\/p>\n
Fügen wir dieser Prozedur doch eine Anweisung hinzu, welche den Index der aktuellen Registerseite in einem Meldungsfenster ausgibt:<\/p>\n
Private Sub <\/span>tabBeispielVBA_Change()\r\n     MsgBox<\/span> Me!tabBeispielVBA\r\nEnd Sub<\/span><\/pre>\n
Danach wollen wir aus dem Indexwert noch den Namen der Registerseite sowie die Beschriftung entnehmen. Dies gelingt durch die folgende Erweiterung – diesmal mit Debug.Print <\/b>zur Ausgabe im Direktfenster:<\/p>\n
Private Sub <\/span>tabBeispielVBA_Change()\r\n     Debug.Print<\/span> Me!tabBeispielVBA, _\r\n         Me!tabBeispielVBA.Pages(Me!tabBeispielVBA).Name\r\nEnd Sub<\/span><\/pre>\n
Der erste Ausdruck liefert den Index (also den Wert der Value<\/b>-Eigenschaft), der zweite Ausdruck den Namen der Registerseite. Dazu verwendet er die Pages<\/b>-Auflistung, über die Sie mit der Angabe des Indexwertes auf alle Registerseiten zugreifen können. Name <\/b>wiederum gibt den Namen des Registerseite-Elements aus.<\/p>\n
Wann aber wird die Beim Klicken<\/b>-Ereigniseigenschaft des Registersteuerelements ausgelöst Dies gelingt ausschließlich, wenn Sie auf den freien Bereich im Kopf des Registersteuerelements klicken.<\/p>\n
Registersteuerelement als Assistent<\/h2>\n
Die einzelnen Seiten des Registersteuerelements eignen sich hervorragend, um die einzelnen Schritte eines Assistenten abzubilden. Das gilt insbesondere, da Sie die Steuerelemente zum Abarbeiten der einzelnen Schritte so bequem auf verschiedenen Seiten des Registersteuerelements unterbringen und Schritt für Schritt bearbeiten können.<\/p>\n
Bild 5 zeigt ein schematisches Beispiel für einen solchen Assistenten. Hier wird vereinfachend nur je ein Text auf jeder Seite des Assistenten angezeigt. Der Benutzer soll mit den beiden Schaltflächen Zurück <\/b>und Weiter <\/b>durch die einzelnen Schritte navigieren können. Die Besonderheit ist, dass nicht nur das Anklicken der beiden Schaltflächen die Anzeige der aktuellen Seite des Registersteuerelements beeinflussen soll. Andersherum soll die Zurück<\/b>-Schaltfläche bei aktivierter erster Registerseite deaktiviert werden, denn weiter zurück kann der Benutzer an dieser Stelle nicht mehr gehen (siehe Bild 6). Und die Weiter<\/b>-Schaltfläche soll, wenn der Benutzer die letzte Seite des Assistenten aufgerufen hat, den Text Beenden <\/b>erhalten und umgekehrt (siehe Bild 7).<\/p>\n
\"Beispiel<\/a><\/p>\n
Bild 5: Beispiel für den Einsatz in einem Assistenten<\/p>\n
\"Ausblenden<\/a><\/p>\n
Bild 6: Ausblenden der Zurück-Schaltfläche für den ersten Schritt<\/p>\n
\"ändern<\/a><\/p>\n
Bild 7: ändern der Beschriftung der Weiter-Schaltfläche im letzten Schritt des Assistenten<\/p>\n
Damit dies gleich mit dem Laden des Formulars reibungslos klappt, ruft die durch die Ereigniseigenschaft Beim Laden <\/b>ausgelöste Prozedur Form_Load <\/b>eine weitere Prozedur namens SchaltflaechenEinstellen <\/b>auf:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Call<\/span> SchaltflaechenEinstellen\r\nEnd Sub<\/span><\/pre>\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