Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
для MSA97:

SysCmd 602, strPathSourceMdb, strPathDestinationMdb

для остальных 200 и выше:
из Help:

Example:
The following example compacts and repairs a database, creates a log if there's any corruption in the source file, and returns a Boolean value based on whether the recovery was successful. For the example to work, you must pass it the paths and file names of the source and destination files.

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

Для всех версий, нужна ссылка на DAO:
опять из Help:

Sub CompactDatabaseX()     Dim dbsNorthwind As Database     Set dbsNorthwind = OpenDatabase("Борей.mdb")     ' Отображает свойства исходной базы данных.     With dbsNorthwind         Debug.Print .Name & ", версия " & .Version         Debug.Print "    Порядок символов = " & .CollatingOrder         .Close     End With     ' Проверяет наличие файла, имеющего имя, которое      ' будет присвоено сжатой базе данных.     If Dir("БорейКорея.mdb") <> "" Then _         Kill "БорейКорея.mdb" ' Создает сжатую копию базы данных "Борей",     ' в которой используется порядок символов     ' корейского языка.     DBEngine.CompactDatabase "Борей.mdb", _         "БорейКорея.mdb", dbLangKorean     Set dbsNorthwind = OpenDatabase("БорейКорея.mdb")     ' Отображает свойства сжатой базы данных.     With dbsNorthwind         Debug.Print .Name & ", версия " & .Version         Debug.Print "    Порядок символов = " & .CollatingOrder         .Close     End With End Sub