Propiedad Form.SelWidth (Access)

Utilice la propiedad SelWidth para especificar o determinar el número de columnas (campos) seleccionadas en el rectángulo de selección actual. Long de lectura y escritura.

Sintaxis

expresión. SelWidth

expresión Variable que representa un objeto Form.

Comentarios

Si no hay selección, el valor devuelto por esta propiedad será cero. Estableciendo a 0 esta propiedad se elimina la selección de la hoja de datos o del formulario.

Si ha seleccionado uno o más registros en la hoja de datos (usando los selectores de registros), no puede cambiar la configuración de la propiedad SelWidth (excepto para establecerla a 0).

Use estas propiedades con las propiedades SelTop y SelLeft para especificar o determinar la posición real del rectángulo de selección en la hoja de datos. Si no hay ninguna selección, las propiedades SelTop y SelLeft devuelven el número de fila y el número de columna de la celda con el foco.

Las propiedades SelHeight y SelWidth contienen la posición de la esquina inferior derecha del rectángulo de selección.

Los valores de propiedad SelTop y SelLeft determinan la esquina superior izquierda del rectángulo de selección.

Ejemplo:

En el ejemplo siguiente se muestra cómo usar las propiedades SelHeight, SelWidth, SelTop y SelLeft para determinar la posición y el tamaño de un rectángulo de selección en la vista Hoja de datos. El procedimiento SetHeightWidth asigna el alto y el ancho del rectángulo de selección actual a las variables lngNumRows, lngNumColumns, lngTopRowy , y lngLeftColumnmuestra esos valores en un cuadro de mensaje.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.