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 支持和反馈,获取有关如何接收支持和提供反馈的指南。