Form.CurrentView 属性 (Access)

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

语法

表达式。CurrentView

expression：表示 Form 对象的变量。

备注

CurrentView 属性使用下列设置。

Setting	窗体显示在：
0	“设计”视图
1	“窗体”视图
2	数据表视图
7	布局视图

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

示例

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。