日期:2014-05-16  浏览次数:20970 次

窗体模块的问题?
access中读自己的函数(目标模块在设计模式)
1.当是类模块和标准模块时
Set obj = Modules(模块名)’就可以操作了
2.当是窗体模块时,一般命名为“Form_窗体名”
上面的方法提示模块不存在!
我试验:
DoCmd.OpenForm 窗体名, acDesign
Set fobj = Forms(窗体名)
模块名 = sobj.Module.Name
然后再
Set obj = Modules(模块名)
’是可以的

但是,不方便,每次都要打开窗体!
能否不打开窗体,直接在VBA中读到窗体模块?ACCESS本身是可以的(只要不修改代码,access并不打开窗体)
我问下,ACCESS是如何做到的?
大侠可否想想办法?



------解决方案--------------------
不需要打开窗体的

需声明PUBLIC
窗体1的模块
Public Sub Test()
MsgBox "这是窗体1的SUB"
End Sub


在窗体2调用窗体1的TEST

Private Sub Command0_Click()
 Dim a As New Form_窗体1
 Call a.Test
End Sub