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 verwendet werden. SelWidth

expression Eine Variable, die ein Form-Objekt darstellt.

Hinweise

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 (mit den Datensatzselektoren), können Sie die Einstellung der SelWidth-Eigenschaft nicht ändern (es sei denn, Sie können sie auf 0 setzen).

Verwenden Sie diese Eigenschaften zusammen mit den Eigenschaften SelTop und SelLeft, um die tatsächliche Position des Auswahlrechtecks auf dem Datenblatt anzugeben oder zu bestimmen. Wenn keine Auswahl vorhanden ist, geben die Eigenschaften SelTop und SelLeft 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

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 den Variablen lngNumRows, lngNumColumnslngTopRowlngLeftColumn, und , die Höhe und Breite des aktuellen Auswahlrechtecks zu und zeigt 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.