网友殷小宝问:

在前台中因为数据表是系统自动编号,删除表中的全部记录,必须要压缩修复数据库,才能使自动编号从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

如果数据库是带有密码的，则代码该怎么写？

下面整理了一个带密码的压缩修复数据库示例,供参考:

 (用DAO的方法,适用于2007与2010版本accdb文件,与access的版本无关,都可以压缩修复数据库)

附件:

点击这里下载