Свойство Form.SelLeft (Access)

Используйте свойство SelLeft , чтобы указать или определить, какой столбец (поле) находится в текущем прямоугольнике выделения. Для чтения и записи, Long.

Синтаксис

expression. SelLeft

выражение: переменная, представляющая объект Form.

Замечания

Свойство SelLeft возвращает значение между 2 и числом столбцов в таблице + 1 (Access начинает подсчет с 0). Первые два столбца всегда являются столбцом селектора записей и столбцом индикатора развертывания и сворачивания для подтаблицы.

Если выбор отсутствует, значение, возвращаемое этими свойствами, — это строка и столбец ячейки с фокусом. Если вы выбрали одну или несколько записей в таблице (с помощью селекторов записей), вы не сможете изменить параметр свойства SelLeft .

Используйте эти свойства со свойствами SelHeight и SelWidth , чтобы указать или определить фактический размер прямоугольника выделения.

Свойства SelTop и SelLeft определяют положение левого верхнего угла прямоугольника выделения.

Свойства SelHeight и SelWidth определяют правый нижний угол прямоугольника выделения.

Пример

В следующем примере показано, как использовать свойства SelHeight, SelWidth, SelTop и SelLeft для определения положения и размера прямоугольника выделения в представлении таблицы. Процедура SetHeightWidth присваивает высоту и ширину текущего прямоугольника выделения переменным lngNumRows, lngNumColumns, lngTopRowи lngLeftColumn отображает эти значения в окне сообщения.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.