Propiedad Form.SelLeft (Access)

Utilice la propiedad SelLeft para especificar o determinar qué columna (campo) está más a la izquierda en el rectángulo de selección actual. Long de lectura y escritura.

Sintaxis

expresión. SelLeft

expresión Variable que representa un objeto Form.

Comentarios

La propiedad SelLeft devuelve un valor entre 2 y el número de columnas de la hoja de datos + 1 (Access comienza a contar en 0). Las dos primeras columnas son siempre la columna del selector de registros y la columna de indicador expand/collapse de una hoja de datos secundaria.

Si no hay selección, el valor devuelto por estas propiedades es la fila y columna de la celda que tenga el enfoque. Si se han seleccionado uno o más registros en la hoja de datos (usando los selectores de registros), no se puede cambiar el valor de la propiedad SelLeft.

Use estas propiedades con las propiedades SelHeight y SelWidth para especificar o determinar el tamaño real del rectángulo de selección.

Las propiedades SelTop y SelLeft determinan la posición de la esquina superior izquierda del rectángulo de selección.

Las propiedades SelHeight y SelWidth determinan la esquina inferior derecha 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 lngLeftColumn muestra 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.