VBA, MS Access MS Access в примерах

Копирование текущей БД по заданному пути с отметкой даты и времени в названии копии

По материалам: http://www.cyberforum.ru/ms-access/thread2314910.html

Private Sub test()
'es 25.08.2018
'Копирование текущей БД по заданному пути с отметкой даты и времени в названии копии
'--------------------------------------------------------------------------
'По материалам: http://www.cyberforum.ru/ms-access/thread2314910.html
'--------------------------------------------------------------------------
Dim sPatch As String
Dim s$, i%
'--------------------------------------------------------------------------

On Error GoTo test_Err
    sPatch = "d:\temp\"
 
    i = InStr(1, CurrentProject.Name, ".accdb")
    s = Mid(CurrentProject.Name, 1, i - 1) & "_" & Format(Now(), "YYYY.MM.DD_HH.NN") & ".accdb"
    'Debug.Print s
    
    If Right(sPatch, 1) = "\" Then
        sPatch = sPatch & s
    Else
        sPatch = sPatch & "\" & s
    End If
    'Debug.Print sPatch
   
    CreateObject("Scripting.FileSystemObject").GetFile(CurrentDb.Name).Copy sPatch
 
test_End:
    Exit Sub

test_Err:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Sub: test in module: mod00Test", vbCritical, "Error in Application"
    Err.Clear
    Resume test_End
End Sub
Назад ToTop
L.E. 25.08.2018
Рейтинг@Mail.ru