如果想要在程序运行过程中新建窗体,可以通过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