Member
Beiträge: 22
| Hi Stephan,
wenn ich es richtig verstehe möchtest Du die Tabs durchlaufen. Application.Screen ist schreibgeschützt, da kann man nicht einfach weiter wandern.
Vielleicht als andere Idee: Wie wäre es mit einem Hauptformular, und darin ein Registersteuerelement? Auf jedem Register dann ein Unterformular, mit einer Instanz Deines Grundformulars. Die einzelnen Register kann man dynamisch erstellen, über ein MyRegisterCtrl as TabControl und MyRegisterCtrl.pages.add . Durch MyRegisterCtrl.pages kann man per Schleife durchlaufen.
Die Unterformulare lassen sich ungefähr so erstellen:
dim unterformular as control
Set unterformular = CreateControl(Form.Name, acSubform, acDetail, , , 10, 10, 3000, 2000)
With unterformular
.Name = "Unterformular_" & seitenNr
.SourceObject = "frm_Test" ' Der Name des Formulars, das als Unterformular verwendet wird
.Parent = "Register_" & seitenNr ' Weise das Unterformular der neuen Registerkarte zu
End With
Viele Grüße
Nick |
