求助：VB打印ACCESS报表多份，无法释放内存！

GDLJLYF

VB打印ACCESS报表多份，无法释放内存！求助高手指点，谢谢！

'用循环方式进行多份打印，X数值来自AA文本框

    Dim X%
     X = AA
    For X = 1 To AA

       Dim objacc As Object
        Set objacc = CreateObject("access.application")
        objacc.OpenCurrentDatabase "" + App.Path + "\data\快递管理.mdb"           '要打印报表的数据库数径
        objacc.DoCmd.OpenReport Comboxkdm '打印与Combo对应的报表名称
                 Next
           objacc.Quit
                Set objacc = Nothing      

AA是文本框“份数”

zhidao

没有释放内存应该是关闭语句没有运行，你再看看你的循环语句，是否有错误，

GDLJLYF

zhidao 发表于 2015-1-27 15:51
没有释放内存应该是关闭语句没有运行，你再看看你的循环语句，是否有错误，

就是打印多少份就访问ACCESS多少次，但是打印完后，ACCESS后台没有关闭，没法释放，如果打了几十份，机子就拖得垮掉了！不知怎么改了！

zhidao

你把附件传上来，我看看

风中漫步

            objacc.Quit
                 Set objacc = Nothing   
  Next

roych

GDLJLYF 发表于 2015-1-27 15:55
就是打印多少份就访问ACCESS多少次，但是打印完后，ACCESS后台没有关闭，没法释放，如果打了几十份，机子 ...

1. Dim X%
   
2.      X = AA
   
3.     For X = 1 To AA
   
4. 
   
5.        Dim objacc As Object
   
6.         Set objacc = CreateObject("access.application")
   
7.         objacc.OpenCurrentDatabase "" + App.Path + "\data\快递管理.mdb"           '要打印报表的数据库数径
   
8.         objacc.DoCmd.OpenReport Comboxkdm '打印与Combo对应的报表名称
   
9. objacc.Quit
   
10. Set objacc = Nothing
    
11.                  Next

复制代码

放在循环体内才可以及时删除组件的。

GDLJLYF

风中漫步 发表于 2015-1-27 16:02
objacc.Quit
                 Set objacc = Nothing   
  Next

这样会出错呢，老兄！

风中漫步

GDLJLYF 发表于 2015-1-27 16:39
这样会出错呢，老兄！

提示是什么?

GDLJLYF

zhidao 发表于 2015-1-27 16:00
你把附件传上来，我看看

谢谢！终于可以了，今天上午试了一上午，都不行，刚才一试又行了！再次谢谢！

GDLJLYF

风中漫步 发表于 2015-1-27 16:02
objacc.Quit
                 Set objacc = Nothing   
  Next

谢谢！终于可以了，今天上午试了一上午，都不行，刚才一试又行了！再次谢谢！