通过

Screen.ActiveDatasheet 属性 (Access)

  • 项目

将 ActiveDatasheet 属性与 Screen 对象一起使用，以标识或引用具有焦点的数据表。 只读 窗体 对象。

语法

表达式。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 支持和反馈，获取有关如何接收支持和提供反馈的指南。