应用于 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 对象的表达式。
CurrentView 属性使用以下设置:
设置 | 窗体显示位置: | 数据访问页显示位置: |
---|---|---|
0 | “设计”视图 | “设计”视图 |
1 | “窗体”视图 | “页”视图 |
2 | “数据表”视图 | 不可用 |
使用该属性可以根据当前视图的不同而执行不同的操作。例如,事件过程可以确定窗体正以哪种视图显示,并且在“窗体”视图中显示可以执行某一操作,在“数据表”视图中显示则可执行另一操作。
下面的示例使用 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