Код для резервного копирования БД

Option Compare Database
 
Public Declare Function CopyFileAPI Lib "kernel32.dll" Alias "CopyFileA" (ByVal ИмяФайлаЧтоКопируем As String, ByVal ИмяФайлаКудаКопируем As String, ByVal НадоЛиПоВерх As Long) As Long
 
Function CreateBackup()
Dim strSourse As String
Dim strTarget As String
strSourse = CurrentProject.FullName
strTarget = CurrentProject.Path & "" & Format(Now(), "mmddyyhhmmss") & "_" & CurrentProject.Name
 
If CopyFileAPI(CurrentProject.FullName, strTarget, 1) = 1 Then
    MsgBox ("Создана резервная копия текущей БД в " & strTarget), vbInformation
Else
    MsgBox ("Копия нифига не получилась!"), vbCritical
End If
 
End Function

Function CreateBackup()
Dim strSourse As String
Dim strTarget As String
strSourse = CurrentProject.FullName
 
On Error Resume Next
strTarget = "C:\Архив\КопияБД.mdb" 'Здесь напишите правильный путь и имя архивной базы
Kill "C:\Архив\КопияБД_0.mdb" 'Удалить временный файл
Name strTarget "C:\Архив\КопияБД_0.mdb" 'Переименовать архивную БД во временное имя
If CopyFileAPI(CurrentProject.FullName, strTarget, 1) = 1 Then
    MsgBox ("Создана резервная копия текущей БД в " & strTarget), vbInformation
    Kill "C:\Архив\КопияБД_0.mdb"  'Удалить временный файл в случае успешного копирования
Else
    MsgBox ("Копия нифига не получилась!"), vbCritical
    Name "C:\Архив\КопияБД_0.mdb", strTarget
End If
 
End Function