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 die SelLeft-Eigenschaft , um anzugeben oder zu bestimmen, welche Spalte (Feld) im aktuellen Auswahlrechteck ganz links liegt. Long mit Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. SelLeft
expression Eine Variable, die ein Form-Objekt darstellt.
Hinweise
Die SelLeft-Eigenschaft gibt einen Wert zwischen 2 und der Anzahl der Spalten im Datenblatt + 1 zurück (Access beginnt mit der Zählung bei 0). Die ersten beiden Spalten sind bei einem Unterdatenblatt immer die Datensatzauswahlspalte und die Indikatorspalte zum Erweitern/Reduzieren eines Unterdatenblatts.
Liegt keine Markierung vor, geben diese Eigenschaften die Zeilen- und Spaltennummer der Zelle, die den Fokus besitzt, zurück. Wenn Sie (mithilfe der Datensatzmarkierer) einen oder mehrere Datensätze im Datenblatt markiert haben, können Sie die Einstellung der SelLeftSelLeft-Eigenschaft nicht ändern.
Verwenden Sie diese Eigenschaften zusammen mit den Eigenschaften SelHeight und SelWidth , um die tatsächliche Größe des Auswahlrechtecks anzugeben oder zu bestimmen.
Die Eigenschaften SelTopSelTop und SelLeftSelLeft bestimmen die Position der oberen linken Ecke des Auswahlrechtecks.
Die Eigenschaften SelHeightSelHeight und SelWidthSelWidth legen die untere rechte Ecke des Auswahlrechtecks fest.
Beispiel
Im folgenden Beispiel wird gezeigt, wie Sie mit den Eigenschaften SelHeight, SelWidth, SelTop und SelLeft die Position und Größe eines Auswahlrechtecks in der Datenblattansicht bestimmen. Die Prozedur SetHeightWidth weist die Höhe und Breite des aktuellen Auswahlrechtecks den Variablen lngNumRows, lngNumColumns, lngTopRowund lngLeftColumn weist diese Werte in einem Meldungsfenster an.
Public Sub SetHeightWidth(ByRef frm As Form)
Dim lngNumRows As Long
Dim lngNumColumns As Long
Dim lngTopRow As Long
Dim lngLeftColumn As Long
Dim strMsg As String
' Form is in Datasheet view.
If frm.CurrentView = 2 Then
' Number of rows selected.
lngNumRows = frm.SelHeight
' Number of columns selected.
lngNumColumns = frm.SelWidth
' Topmost row selected.
lngTopRow = frm.SelTop
' Leftmost column selected.
lngLeftColumn = frm.SelLeft
' Display message.
strMsg = "Number of rows: " & lngNumRows & vbCrLf
strMsg = strMsg & "Number of columns: " _
& lngNumColumns & vbCrLf
strMsg = strMsg & "Top row: " & lngTopRow & vbCrLf
strMsg = strMsg & "Left column: " & lngLeftColumn
MsgBox strMsg, vbInformation
End If
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.