Hocam dosyayı işyerindeki bilgisayarda denedim ve yedekleme yapıyor. Ancak benim bilgisayarda sıkıntı devam ediyor. Windows ve Office sürümü aynı(Win7 Office 2010) referansları da kontrol ettim. Konu benim PC ile ilgili ama ne olduğunu bir türlü bulamadım.
hayırlı sabahlar
strToTime = Application.CurrentProject.Path & "\yedek\" & zaman & "_" & Application.CurrentProject.Name
bu cümle ile her seferinde tarih ve saat ile yedek alıyor ama "zaman" dosya adının en başına ekleniyor bunun yerine dosyanın sonuna eklesek nasıl yazmamız lazım yani
"20200123_0830_dosyaadi.accdb" yerine
"dosyaadi_ 20200123_0830.accdb" yazdırabilir miyiz
Kodu incelerseniz neyin nereye yazıldığı belli yerlerini değiştirmeniz yeterli
Yol + zaman + ad --> yerine --> Yol + ad + zaman
Application.CurrentProject.Name kısmının "." dan sonrasını ayırıp tekrar sona eklemek lazım değil mi şöyle olur mu
Sub projeYedekle()
Dim fso As FileSystemObject
Dim DB As New Access.Application
Dim gun, zaman, strFrom, strTo, strToDate, strToTime As String
Dim sSourcePath, sSourceFile, sBackupPath, sBackupFile As String
gun = Format(Date, "yyyymmdd")
zaman = Format(Date, "yyyymmdd") & "" & Format(Time, "hhmm")
sSourceFile = Application.CurrentProject.Name
sBackupFile = Split(sSourceFile, ".")(0) & "_" & zaman & "." & Split(sSourceFile, ".")(1)
strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name
strTo = Application.CurrentProject.Path & "\yedek\" & Application.CurrentProject.Name
strToDate = Application.CurrentProject.Path & "\yedek\" & gun & "_" & Application.CurrentProject.Name
strToTime = Application.CurrentProject.Path & "\yedek\" & sBackupFile 'zaman & "_" & Application.CurrentProject.Name
If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
MkDir Application.CurrentProject.Path & "\yedek"
End If
Set fso = New FileSystemObject
fso.copyFile strFrom, strToTime, True
Set fso = Nothing
Beep
MsgBox "Backup was successful and Saved" & "Backup completed"
End Sub