通过代码创建新的窗体

时　间: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