Auf Englisch lesen

Freigeben über


Pages.Add-Methode (Access)

Die Add-Methode fügt der Pages-Auflistung eines Registerkartensteuerelements ein neues Page-Objekt hinzu.

Syntax

Ausdruck. Hinzufügen (vor)

Ausdruck Eine Variable, die ein Pages-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Before Optional Variant Ein Integer-Wert, der den Index des Page-Objekts angibt, vor dem das neue Page-Objekt hinzugefügt werden soll. Der Index des Page-Objekts entspricht dem Wert der PageIndex-Eigenschaft für dieses Page-Objekt . Wenn Sie dieses Argument weglassen, wird das neue Page-Objekt am Ende der Auflistung angefügt.

Rückgabewert

Seite

Hinweise

Das erste Page-Objekt in der Pages-Auflistung entspricht der ganz links stehenden Seite im Registerkartensteuerelement und hat einen Index von 0. Das zweite Page-Objekt befindet sich direkt rechts von der ersten Seite und hat einen Index von 1 usw. für alle Page-Objekte im Registerkartensteuerelement.

Wenn Sie 0 für das Argument Vor angeben, wird das neue Page-Objekt vor dem ersten Page-Objekt in der Pages-Auflistung hinzugefügt. Das neue Page-Objekt wird dann zum ersten Page-Objekt in der Auflistung mit einem Index von 0.

Sie können ein Page-Objekt zur Pages-Auflistung eines Registersteuerelements nur dann hinzufügen, wenn sich das Formular in der Entwurfsansicht befindet.

Beispiel

Das folgende Beispiel fügt eine Seite zu einem Registersteuerelement auf einem Formular hinzu, das sich in der Entwurfsansicht befindet. Um dieses Beispiel auszuprobieren, erstellen Sie ein neues Formular mit dem Namen Form1 mit einem Registerkartensteuerelement namens TabCtl0. Fügen Sie den folgenden Code in ein Standardmodul ein, und führen Sie ihn aus.

Function AddPage() As Boolean 
 Dim frm As Form 
 Dim tbc As TabControl, pge As Page 
 
 On Error GoTo Error_AddPage 
 Set frm = Forms!Form1 
 Set tbc = frm!TabCtl0 
 tbc.Pages.Add 
 AddPage = True 
 
Exit_AddPage: 
 Exit Function 
 
Error_AddPage: 
 MsgBox Err & ": " & Err.Description 
 AddPage = False 
 Resume Exit_AddPage 
End Function

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.