CurrentSectionLeft, CurrentSectionTop Properties

Applies To

Form.

Description

You can use these properties to determine the distance in twips from the top edge and left side of the current section to the top edge and left side of the form.

Setting

  • The CurrentSectionLeft property. An Integer value that represents the distance from the left edge of the current section to the left edge of the form.
  • The CurrentSectionTop property. An Integer value that represents the distance from the top edge of the current section to the top edge of the form.
These property settings are read-only and are available only by using a macro or Visual Basic.

Remarks

The CurrentSectionLeft and CurrentSectionTop property settings change whenever a user scrolls through a form.

For forms whose DefaultView property is set to Single Form, if the user scrolls above the upper-left corner of the section or to the right of the left edge of the form, the property settings are negative values.

For forms whose DefaultView property is set to Continuous Forms, if a section isn't visible, the CurrentSectionTop property is equal to the InsideHeight property of the form.

The CurrentSectionLeft and CurrentSectionTop properties are useful for finding the positions of detail sections displayed in Form view as continuous forms or in Datasheet view. Each detail section has a different CurrentSectionTop property setting, depending on the section's position on the form.

See Also

InsideHeight, InsideWidth properties, Left, Top properties, WindowHeight, WindowWidth properties.

Example

The following example displays the CurrentSectionLeft and CurrentSectionTop property settings for a control on a continuous form. Whenever the user moves to a new record, the property settings for the current section are displayed in the lblStatus label in the form's header.

Private Sub Form_Current()
    Dim intCurTop As Integer, intCurLeft As Integer

    intCurTop = Me.CurrentSectionTop
    intCurLeft = Me.CurrentSectionLeft
    Me!lblStatus.Caption = intCurLeft & " , " & intCurTop
End Sub