一段生成新的窗体代码请教

盗梦

用Application.CreateForm 即可创建窗体

盗梦

olderdream2007@ 发表于 2014-7-5 11:27
谢谢高人指点 如果想创建一个名字为NEW的窗体, 如何用CREATEFROM实现呢?
(好像没有命名的地方)

    Dim frm As Form
    Dim strName As String
   
    Set frm = Application.CreateForm '获取创建的窗体
    strName = frm.Name               '保存窗体名
   
    DoCmd.Close acForm, frm.Name, acSaveYes '关闭并保存窗体
    DoCmd.Rename "New", acForm, strName     '窗体重命名