CurrentView 属性

应用于 AccessObject 对象的 CurrentView 属性。

对于指定的 Microsoft Access 对象，返回当前视图。AcCurrentView，只读。

AcCurrentView 可以是下列 AcCurrentView 常量之一：

acCurViewDatasheet

acCurViewDesign

acCurViewFormBrowse

acCurViewPivotChart

acCurViewPivotTable

acCurViewPreview

expression.CurrentView

expression 必需。返回一个 AccessObject 对象的表达式。

应用于 DataAccessPage 对象的 CurrentView 属性。

使用 CurrentView 属性可以确定数据访问页的当前显示方式。Integer 型，只读。

expression.CurrentView

expression 必需。返回一个 DataAccessPage 对象的表达式。

应用于 Form 对象的 CurrentView 属性。

使用 CurrentView 属性可以确定窗体的当前显示方式。Integer 型，可读写。

expression.CurrentView

expression 必需。返回一个 Form 对象的表达式。

设置

CurrentView 属性使用以下设置：

设置	窗体显示位置：	数据访问页显示位置：
0	“设计”视图	“设计”视图
1	“窗体”视图	“页”视图
2	“数据表”视图	不可用

该属性仅在使用宏或 Visual Basic 时才可用，且在所有视图中均具有只读属性。

说明

使用该属性可以根据当前视图的不同而执行不同的操作。例如，事件过程可以确定窗体正以哪种视图显示，并且在“窗体”视图中显示可以执行某一操作，在“数据表”视图中显示则可执行另一操作。

示例

下面的示例使用 GetCurrentView 子程序来决定窗体是在“窗体”视图还是在“数据表”视图中。如果在“窗体”视图中，则在窗体上的文本框中向用户显示一条消息；如果在“数据表”视图中，则在消息框中显示同一消息。

GetCurrentView Me, "Please contact system administrator."

Sub GetCurrentView(frm As Form, strDisplayMsg As String)
    Const conFormView = 1
    Const conDataSheet = 2
    Dim intView As Integer
    intView = frm.CurrentView
    Select Case intView
        Case conFormView
            frm!MessageTextBox.SetFocus
            ' Display message in text box.
            frm!MessageTextBox = strDisplayMsg
        Case conDataSheet
            ' Display message in message box.
            MsgBox strDisplayMsg
    End Select
End Sub