Form.SelLeft-Eigenschaft (Access)

Verwenden Sie die SelLeft-Eigenschaft , um anzugeben oder zu bestimmen, welche Spalte (Feld) im aktuellen Auswahlrechteck am weitesten links liegt. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. SelLeft

expression Eine Variable, die ein Form-Objekt darstellt.

HinwBemerkungeneise

Die SelLeft-Eigenschaft gibt einen Wert zwischen 2 und der Anzahl der Spalten im Datenblatt + 1 zurück (Access beginnt bei 0 zu zählen). Die ersten beiden Spalten sind 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 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

Das folgende Beispiel zeigt, wie die Eigenschaften SelHeight, SelWidth, SelTop und SelLeft verwendet werden, um die Position und Größe eines Auswahlrechtecks in der Datenblattansicht zu bestimmen. Die SetHeightWidth-Prozedur weist die Höhe und Breite des aktuellen Auswahlrechtecks den Variablen lngNumRows, lngNumColumns, lngTopRowund lngLeftColumn zu und zeigt diese Werte in einem Meldungsfeld 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.