Access VBA教程:ActiveDatasheet属性

使用 ActiveDatasheet属性可以和Screen对象一起来标识或引用获得焦点的数据表。Form对象,只读。

expression.ActiveDatasheet

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

ActiveDatasheet属性设置包含了在运行时获得焦点的数据表对象。

此属性仅在使用Visual Basic 时才可用,并且在所有视图中具有只读属性。

说明

您可以使用该属性来引用活动数据表及其一个属性或方法。例如,下面的代码使用 ActiveDatasheet属性引用活动数据表中选定区域的第一行。


TopRow = Screen.ActiveDatasheet.SelTop

VBA示例

下面的示例使用 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

上页:Access VBA教程:ActiveDataAccessPage属性 下页:Access VBA教程:ActiveForm属性

Access VBA教程:ActiveDatasheet属性

Access VBA教程:ActiveForm属性 Access VBA教程:ActiveReport属性
Access VBA教程:AddColon属性 Access VBA教程:Address属性
Access VBA教程:AfterBeginTransaction属性 Access VBA教程:AfterCommitTransaction属性
Access VBA教程:AfterDelConfirm属性 Access VBA教程:AfterFinalRender属性
Access VBA教程:AfterInsert属性 Access VBA教程:AfterLayout属性
Access VBA教程:AfterRender属性 Access VBA教程:AfterUpdate属性
Access VBA教程:Alias属性 Access VBA教程:AllDataAccessPages属性
Access VBA教程:AllDatabaseDiagrams属性 Access VBA教程:AllForms属性
Access VBA教程:AllFunctions属性 Access VBA教程:AllMacros属性
Access VBA教程:AllModules属性 Access VBA教程:AllowAdditions属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号