全部显示

CurrentView 属性

       

应用于 AccessObject 对象的 CurrentView 属性。

应用于 DataAccessPage 对象的 CurrentView 属性。

应用于 Form 对象的 CurrentView 属性。

设置

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