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

olderdream2007@

下面的代码来自于一本老外写的数据,作用是可以生成一个新的窗体.

不过,在我的电脑中使用这段代码用不了, 帮助中查询Form_Projects似乎也没有讯息.

请高人看看 错在那里?(是否需要引用什么东西---) . 非常感谢!


Sub createObject1()
Dim frm as Form_Projects
Set frm=New Form_Projects
frm.Visible=True
End Sub

olderdream2007@

zpy2 发表于 2014-7-5 13:31
我前面发的贴没出来？？？
FORM_projects是一个带代码的窗体，作为一个类来用。
相当于vB中隐含的FORM1， ...

谢谢了,刚才自己看了下 的确如此.  非常感谢!

zpy2

我前面发的贴没出来？？？
FORM_projects是一个带代码的窗体，作为一个类来用。
相当于vB中隐含的FORM1，用NEW关键词创建一个新的实例。所以，首先要有projects这样一个窗体才行。

olderdream2007@

盗梦 发表于 2014-7-5 12:39
Dim frm As Form
    Dim strName As String
   

谢谢高人指点,要的就是这个. 谢谢

盗梦

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     '窗体重命名

olderdream2007@

盗梦 发表于 2014-7-5 08:30
用Application.CreateForm 即可创建窗体

谢谢高人指点 如果想创建一个名字为NEW的窗体, 如何用CREATEFROM实现呢?
(好像没有命名的地方)

olderdream2007@

zpy2,谢谢 按照你说的放到SUB外也不行.

出现提示内容为 用户定义类型错误  难到ACCESS中没有Form_Projects这个类型么? 谢谢


Sub createObject1()
Dim frm as Form_Projects
Set frm=New Form_Projects
frm.Visible=True
End Sub

盗梦

用Application.CreateForm 即可创建窗体

zpy2

把Dim 这句放到sub外，成为模块级变量，窗体不会直接关了。

zpy2

刚才没看仔细，是把Form_projects作为一个类来用，该窗体一定要含有代码才行，也是动态产生窗体。