Поделиться через

Свойство Screen.ActiveDatasheet (Access)

  • Статья

Используйте свойство ActiveDatasheet вместе с объектом Screen , чтобы идентифицировать таблицу с фокусом или ссылаться на нее. Объект Form , доступный только для чтения.

Синтаксис

expression. ActiveDatasheet

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

Замечания

Параметр свойства ActiveDatasheet содержит объект таблицы с фокусом во время выполнения.

Используйте это свойство для ссылки на активную таблицу вместе с одним из ее свойств или методов. Например, следующий код использует свойство ActiveDatasheet для ссылки на верхнюю строку выделения в активной таблице.

TopRow = Screen.ActiveDatasheet.SelTop

Пример

В следующем примере свойство ActiveDatasheet используется для идентификации ячейки таблицы с фокусом или, если выбрано несколько ячеек, расположение первой строки и столбца в выделенном фрагменте.

Public Sub GetSelection() 
 ' This procedure demonstrates how to get a pointer to the 
 ' current active datasheet. 
 
 Dim objDatasheet As Object 
 Dim lngFirstRow As Long 
 Dim lngFirstColumn As Long 
 Const conNoActiveDatasheet = 2484 
 
 On Error GoTo GetSelection_Err 
 
 Set objDatasheet = Screen.ActiveDatasheet 
 
 lngFirstRow = objDatasheet.SelTop 
 lngFirstColumn = objDatasheet.SelLeft 
 MsgBox "The first item in this selection is located at " & _ 
 "Row " & lngFirstRow & ", Column " & _ 
 lngFirstColumn, vbInformation 
 
GetSelection_Bye: 
 Exit Sub 
GetSelection_Err: 
 If Err = conNoActiveDatasheet Then 
 MsgBox "No data sheet is active.", vbExclamation 
 Resume GetSelection_Bye 
 End If 
End Sub

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

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