Wie man eine Access Tab Control name der Seite VBA

Ich habe ein Formular in MS Access mit einem Tab-Control (genannt TabCtrl). Dieses Steuerelement verfügt über mehrere Seiten, die jeweils mit einem Unterformular.

Auf Form_Open möchte ich Abfragen der Unterformulare für die Gesamtzahl der Datensätze und legen Sie die Anzahl der tab ' s Namen. Zum Beispiel, das tab mit dem Namen MyTab werden sollte MyTab (2):

Private Sub SetTabName_MyTab()
    Dim i As Integer
    i = CurrentDb.OpenRecordset("Select count(*) from [MyQry];").Fields(0).Value
    TabCtrl.Pages("MyTab").Name = "MyTab (" & i & ")"
End Sub

Jedoch, wenn ich diesen starte, wird die Letzte Zeile gibt Run-time error 2136 ", Um diese Eigenschaft festzulegen, öffnen Sie das Formular oder Bericht in der Entwurfsansicht". Bedeutet dies, ich kann dies nicht im code? Sollte ich ein anderes Event?

InformationsquelleAutor PowerUser | 2013-03-12
  1. 3

    Sie versuchen, ändern Sie die internal Namen des Steuerelements, anstatt caption auf die Registerkarte Steuerung.

    Versuchen:

    ATabcontrol.Pages("MyTab").Caption = "MyTab(" & i & ")"

    Hinweis: ich habe dies vor und fand Probleme mit dem text nicht ändern, bis das tabcontrol-Steuerelement manipuliert wurde.

    • Bingo! Ich habe bis auf dieses detail ist lange her. Getestet habe ich diese auf dem Formular-Öffnen-Ereignis und sehe keine Probleme so weit.
    • Weiss jemand wie man das optimieren dieser code läuft also von innerhalb des Unterformulars?
    InformationsquelleAutor dmc2005
  2. 0

    Versuchen:

    Dim s as string

'To Get current Tab Caption
s = Me.TabCtl.Pages(Me.TabCtl.Value).Caption

'To Set current Tab Caption
s = "TabName"

Me.TabCtl.Pages(Me.TabCtl.Value).Caption = s
    InformationsquelleAutor KingSolutions.org.uk
Schreibe einen Kommentar