Form.CurrentSectionTop プロパティ (Access)
現在のセクションの上端からフォームの上端までの距離を twip 単位で決定するには、このプロパティを使用します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。
構文
式。CurrentSectionTop
expressionForm オブジェクトを表す変数です。
注釈
CurrentSectionTop プロパティの設定値は、フォームをスクロールするたびに変化します。
DefaultView プロパティが [単一フォーム] に設定されているフォームの場合、ユーザーがセクションの左上隅をスクロールした場合、プロパティの設定は負の値になります。
DefaultView プロパティが Continuous Forms に設定されているフォームの場合、セクションが表示されない場合、CurrentSectionTop プロパティはフォームの InsideHeight プロパティと等しくなります。
CurrentSectionTop プロパティは、帳票フォームのフォーム ビューまたはデータシート ビューに表示される詳細セクションの位置を調べるときに便利です。 各 [詳細] セクションには、フォームのセクションの位置に従って、異なる CurrentSectionTop プロパティの設定値があります。
例
次の使用例では、帳票フォームに配置されたコントロールの CurrentSectionLeft プロパティおよび CurrentSectionTop プロパティの設定値を表示します。 新しいレコードに移動するたびに、カレント セクションのこれらのプロパティの値が、フォームのヘッダーに配置された lblStatus ラベルに表示されます。
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
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。