调用后台数据库的"压缩修复数据库"的代码怎么写?

殷小宝　发表于：2012-07-02 09:25:44 　

在前台中因为数据表是系统自动编号,删除表中的全部记录,必须要压缩修复数据库,才能使自动编号从1开始,因为是链接表,所以必须还在对后台的数据库进行压缩与修复,不知怎么调用它.手动压缩太麻烦了.敬请老师给予解答.谢谢.

压缩数据库的代码是这样的:

Public Function Compact()

With CommandBars.Add(, msoBarFloating, , True)

.Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).ID

.Visible = True

.Controls(1).SetFocus

SendKeys "{ENTER}"

End With

End Function

韩志发表于：2012-07-02 09:38:01

封装成一个宏，用一个ADO连接去运行这个宏。

叶海峰发表于：2012-07-02 12:02:01

殷小宝发表于：2012-07-02 22:15:07

叶老师，谢谢你了。尽管代码含义还不理解，先暂时用了再说。

殷小宝发表于：2012-07-02 22:15:15

叶老师，谢谢你了。尽管代码含义还不理解，先暂时用了再说。

殷小宝发表于：2012-07-02 23:16:46

叶老师，如果后台数据库有密码，密码的代码写在哪里，怎么写？敬请告之。

麥田发表于：2012-07-03 09:57:09

压缩修复外部mdb(带密码)[Access软件网]
http://www.accessoft.com/article-show.asp?id=7070

总记录：6篇页次：1/1 9 1 :

Access交流中心