Form.SelWidth-Eigenschaft (Access)

Verwenden Sie die SelWidth-Eigenschaft , um die Anzahl der ausgewählten Spalten (Felder) im aktuellen Auswahlrechteck anzugeben oder zu bestimmen. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. SelWidth

expression Eine Variable, die ein Form-Objekt darstellt.

HinwBemerkungeneise

Besteht keine Markierung, gibt diese Eigenschaft den Wert 0 zurück. Wird diese Eigenschaft auf 0 festgelegt, wird die Markierung aus dem Datenblatt oder Formular entfernt.

Wenn Sie einen oder mehrere Datensätze im Datenblatt ausgewählt haben (mithilfe der Datensatzauswahl), können Sie die Einstellung der SelWidth-Eigenschaft nicht ändern (außer sie auf 0 festzulegen).

Verwenden Sie diese Eigenschaften mit den SelTop - und SelLeft-Eigenschaften , um die tatsächliche Position des Auswahlrechtecks im Datenblatt anzugeben oder zu bestimmen. Wenn keine Auswahl vorhanden ist, geben die SelTop - und SelLeft-Eigenschaften die Zeilen- und Spaltennummer der Zelle mit dem Fokus zurück.

Die Eigenschaften SelHeightSelHeight und SelWidthSelWidth enthalten die Position der rechten unteren Ecke des Auswahlrechtecks.

Die Werte der Eigenschaften SelTopSelTop und SelLeftSelLeft bestimmen die linke obere Ecke des Auswahlrechtecks.

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 lngLeftColumnzu 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.