全部显示

应用于 AccessObject 对象的 CurrentView 属性。

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

expression.CurrentView

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

应用于 DataAccessPage 对象的 CurrentView 属性。

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

expression.CurrentView

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

应用于 Form 对象的 CurrentView 属性。

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

expression.CurrentView

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

设置

CurrentView 属性使用以下设置：

 

注释  该属性仅在使用宏或 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