Access VBA教程: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 时才可用,且在所有视图中均具有只读属性。

说明

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

VBA示例

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

上页:Access VBA教程:CurrentSectionTop属性 下页:Access VBA教程:CurrentX属性

Access VBA教程:CurrentView属性

Access VBA教程:CurrentX属性 Access VBA教程:CurrentY属性
Access VBA教程:Custom属性 Access VBA教程:Cycle属性
Access VBA教程:DataAccessPages属性 Access VBA教程:Database属性
Access VBA教程:DataChange属性 Access VBA教程:DataEntry属性
Access VBA教程:DataOnly属性 Access VBA教程:DataSetChange属性
Access VBA教程:DatasheetBackColor属性 Access VBA教程:DatasheetBorderLineStyle属性
Access VBA教程:DatasheetCellsEffect属性 Access VBA教程:DatasheetColumnHeaderUnderlineStyle属性
Access VBA教程:DatasheetFontHeight属性 Access VBA教程:DatasheetFontItalic属性
Access VBA教程:DatasheetFontName属性 Access VBA教程:DatasheetFontUnderline属性
Access VBA教程:DatasheetFontWeight属性 Access VBA教程:DatasheetForeColor属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号