通过代码创建新的窗体

通过代码创建新的窗体
来源:www.accessoft.com 点击数:625 评论数:0　评论 | 收藏 | 复制
时　间:2017-08-29 12:28:10
作　者:杨雪 ID：42182 城市：南京
摘　要:通过代码创建新的窗体
正　文:
如果想要在程序运行过程中新建窗体，可以通过VBA 代码来实现。常用的方法有俩种，一种是引用菜单进行，另一种是使用CreatForm 方法进行。使用CreatForm 方法的语法格式如下所示：
CreatForm([数据库],[窗体模板])
如果在当前数据库中创建窗体，CreatForm方法的第一个参数可以省略；如果创建的是空白窗体，即使没有窗体模板，CreatForm 方法的第二个参数也可以省略。
示例：
在当前数据库中创建一个名为”F_新建的窗体” 的空白窗体。
源码：
‘在当前窗体创建一个空白窗体
Private Sub cmd_创建_Click()
Dim Frm As Form
‘创建窗体
Set Frm = CreateForm
‘保存新建的窗体，同时为其命名
DoCmd.Save , “F_新建的窗体”
‘关闭新建的窗体
DoCmd.Close acForm, “F_新建的窗体”
‘刷新数据库
RefreshDatabaseWindow
End Sub