Access平台开发人员帮助 > 通用函数库 > 按功能 > Access对象

函数说明

该函数可以打开一个窗体，并返回窗体对象，用法和Docmd.OpenForm类似。

注意：该函数是对Access的Docmd.OpenForm优化，gf_OpenForm可以返回打开窗体的对象。

函数原型

Public Function gf_OpenFrom(strFormName As String, _

Optional View As AcFormView = acNormal, _

Optional FilterName = Null, _

Optional WhereCondition = Null, _

Optional DataMode As AcFormOpenDataMode = acFormPropertySettings, _

Optional WindowMode As AcWindowMode = acWindowNormal, _

Optional OpenArgs = Null) As Form

语法

gf_FormOpened(strFormName [,View] [,FilterName] [,WhereCondition] [,DataMode] [,WindowMode] [,OpenArgs])

参考：gf_FormOpened("frmTest", acNormal) '打开frmTest窗体，并返回该窗体对象

参数

参数名	必需/可选	数据类型	参数说明
strFormName	必需	String	要打开的窗体名
View	可选	AcFormView	窗体打开的视图模式。默认acNormal，窗体视图。
FilterName	可选	Variant	字符串表达式，表示当前数据库中查询的有效名称。
WhereCondition	可选	Variant	筛选条件。字符串表达式，表示不包括词 WHERE 的有效 SQL WHERE 子句。
DataMode	可选	AcFormOpenDataMode	窗体的数据输入模式。它只应用于在“窗体视图”或“数据表视图”。默认acFormPropertySettings
WindowMode	可选	AcWindowMode	打开窗体时所采用的窗口模式。默认acWindowNormal。
OpenArgs	可选	Variant	字符串表达式，打开窗体要传递的信息。

返回值

返回打开窗体的Form对象，若打开错误，例如窗体不存在，则返回Nothing。

示例

Sub subTest()

'打开一个窗体，获取窗体对象，并修改窗体标题

Dim frm As Form '定义一个窗体对象

Set frm = gf_OpenForm("frmTest") '用gf_OpenForm函数打开frmTest窗体

If frm Is Nothing Then '判断打开是否成功

Msgbox "错误：frmTest 不存在"

Else

frm.Caption = "Office中国" ‘修改窗体frmTest的标题

End If

Set frm = Nothing ’程序结束，清除对象

End Sub

打开窗体并返回对象（gf_OpenForm函数）