不断增长的MS Access文件大小问题

Question

我有一个大型的MS Access应用程序,在VBA代码中有很多计算.当我运行它时,它最终会因文件过大而崩溃.创建并随后删除了许多中间表和查询,但Access不会回收空间.我已经努力关闭所有中间记录集并将所有临时对象设置为空,但没有任何帮助.我可以运行代码的唯一方法是运行部分代码,停止并修复/压缩文件,然后重新启动代码.

有没有更好的方法？

谢谢

Answer 1

您应该能够在VBA代码中运行compact函数.

从很久以前我正在进行访问工作时,我有下面的代码片段.

Public Sub CompactDB() 
    CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction 
End Sub 

你可以把它放在你的代码中来解决它.

注意:如果您遇到这些类型的扩展问题,您可能还会考虑扩展到更大的数据库系统.

Answer 2

我不是 MVP，但 Google 发现了这些。也许他们会帮助你：

http://www.mvps.org/access/general/gen0041.htm http://forums.devarticles.com/microsoft-access-development-49/compact-database-via-vba-24958.html