如何调用主菜单上的“压缩和修复数据库”命令？

李寻欢

如题

cattjiu

http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&replyID=2816&ID=564&skin=1

eio

这是一个“掩眼法”，我从来都不用，宁愿用工具栏以及快捷菜单！

KOMAZ

用CompactRepair 方法

压缩和修复指定的数据库 (.mdb) 或 Microsoft Access 项目 (.adp) 文件。返回 Boolean 型值；如果处理成功，返回 True。

expression.CompactRepair(SourceFile, DestinationFile, LogFile)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

SourceFile  String 型，必需。代表要压缩和修复的数据库或项目文件的完整路径和文件名。

DestinationFile  String 型，必需。完整的路径和文件名，代表所返回文件的保存位置。

LogFile  Boolean 型，可选。如果在目标目录中创建一个日志文件用于记录在源文件中检测到的损坏，则为 True。只有在源文件中检测到损坏时，才创建日志文件。如果 LogFile 为 False 或省略，就不创建日志文件，即使在源文件中检测到损坏也是如此。

说明
源文件不可以是当前数据库，也不能被其他用户打开，因为调用该方法将会以独占方式打开源文件。

示例************************************************************
下面的示例将压缩和修复一个数据库，如果在源文件中检测到损坏，则会创建一个日志文件，并根据恢复是否成功而返回一个 Boolean 值。为使该示例运行，必须将源文件和目标文件的路径和文件名传给它。

Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.

    ' Trap for errors.
    On Error GoTo error_handler

    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)

    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
error_handler:
    RepairDatabase = False

End Function

李寻欢

谢谢！

ail

不明白
如何我要把后端的数据库如a.mdb当点击后压缩，注意不是压缩前台，该如何做呢？

cg1

http://access911.net/index.asp?board=4&mode=3&recordid=71FAB71E
http://access911.net/index.asp?board=4&mode=3&recordid=76FABF1E17DC

ail

谢谢

ail

忘记这一点了：后台数据库有密码，因而提示错误，但我不知如何做？

徐阿鹏

在系统菜单中－》工具－》选项－》常规－》关闭时压缩