Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Verwenden Sie diese Eigenschaft, um den Abstand in Twips von der oberen Kante des aktuellen Abschnitts bis zur oberen Kante des Formulars zu bestimmen. Ganze Zahl mit Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. CurrentSectionTop
expression Eine Variable, die ein Form-Objekt darstellt.
Hinweise
Die Einstellung der CurrentSectionTop-Eigenschaft ändert sich immer dann, wenn ein Benutzer einen Bildlauf durch ein Formular durchführt.
Bei Formularen, deren DefaultView-Eigenschaft auf Einzelnes Formular festgelegt ist, sind die Eigenschafteneinstellungen negative Werte, wenn der Benutzer über die obere linke Ecke des Abschnitts scrollt.
Wenn bei Formularen, deren DefaultView-Eigenschaft auf Kontinuierliche Formulare festgelegt ist, kein Abschnitt sichtbar ist, entspricht die CurrentSectionTop-Eigenschaft der InsideHeight-Eigenschaft des Formulars.
Die CurrentSectionTopCurrentSectionTop-Eigenschaft ist hilfreich, um die Position von in der Formularansicht angezeigten Detailausschnitten zu finden, die als Endlosformulare oder in der Datenblattansicht angezeigt werden. Jeder Detailausschnitt verfügt über eine eigene Einstellung der CurrentSectionTopCurrentSectionTop-Eigenschaft, die von der Position des Bereichs im Formular abhängt.
Beispiel
Im folgenden Beispiel werden die Einstellungen der CurrentSectionLeft - und CurrentSectionTop-Eigenschaft für ein Steuerelement in einem Endlosformular angezeigt. Immer wenn der Benutzer zu einem neuen Datensatz wechselt, werden die Eigenschaftseinstellungen für den aktuellen Abschnitt in der Beschriftung lblStatus in der Kopfzeile des Formulars angezeigt.
Private Sub Form_Current()
Dim intCurTop As Integer
Dim intCurLeft As Integer
intCurTop = Me.CurrentSectionTop
intCurLeft = Me.CurrentSectionLeft
Me!lblStatus.Caption = intCurLeft & " , " & intCurTop
End Sub
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.