如何动态引用ACCESS的类对象

zyp

管理员andymark在回复站长tmtony 关于"在MDE中动态设置报表纸张及页边距"(http://www.office-cn.net/forum.p ... hlight=%D6%BD%D5%C5)用到以下代码:

Dim Rpt As Report
Set Rpt = New Report_Test

用set---new  为access类对象Report_Test(也就是报表Test)新建了一个实例
请问其中的Test可不可以采用动态的输入,  比如新增一个函数,将报表名以参数变量的方式输入,比如输入"test",就等于Set Rpt=New Report_Test,输入"aaa"就等于Set Rpt=New Report_aaa
其实问题就出在如何引用Access类对象的问题

请各位帮忙, 谢谢!

t小宝

应该不行，因为不能使用 New Reports("Test") 这样的形式来声明报表对象

zyp

谢谢T小宝
类对象它不能像引用窗体那样application.allforms("窗体名称")那样来引用
这样就造成这个公用函数做不了了,必须一个报表对应一个程序, 代码就多了

不知有没有其它的方法可以实现?

请大家支支招,谢谢!