+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik Yedekleme (/konu-otomatik-yedekleme.html)
Cvp: Otomatik Yedekleme - notrino - 02/12/2018
(02/12/2018, 22:19)haliliyas yazdı: strTo = Application.CurrentProject.Path & "\yedek\" & date() & "_" & Application.CurrentProject.Name
yukardaki kodda date yazan yer yerine aşağıdaki "zaman" fonksiyonunu tanımlardanız her yedeğin ömüne tarih ve zaman ekler
___________________________________________________________________________________
zaman = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmm")
strTo = Application.CurrentProject.Path & "\yedek\" & zaman & "_" & Application.CurrentProject.Name
___________________________________________________________________________________
Evet, bu çok iyi oldu işte. Teşekkürler..
Cvp: Otomatik Yedekleme - olcay.akkaya - 13/01/2020
Hocam verdiğiniz kodları ben de kullandım ancak yazdığım kodun
"fso.CopyFile strFrom, strTo, True "
bölümünde hata veriyor. Nerde yanlış yapıyor olabilirim acaba.
Cvp: Otomatik Yedekleme - userx - 13/01/2020
Sayın olcay.kaya kodu aşağıdaki şekilde değiştirerek dener misini?
Private Sub Komut11_Click()
zaman = Format(Date, "yyyy_mm_dd") & "_" & Format(Time, "hh_mm")
strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name
strTo = Application.CurrentProject.Path & "\yedek\" & zaman & "_" & Application.CurrentProject.Name
Dim fso As FileSystemObject
Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String
Dim DB As New Access.Application
If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
MkDir Application.CurrentProject.Path & "\yedek"
End If
Set fso = New FileSystemObject
fso.copyFile strFrom, strTo, True
Set fso = Nothing
Beep
MsgBox "Backup was successful and Saved" & "Backup completed"
End Sub
Cvp: Otomatik Yedekleme - olcay.akkaya - 14/01/2020
Hocam denedim ama yine aynı satırda hata veriyor. Referanslarda Microsoft Access14.0 Object Library ve Microsoft Scriting Runtime seçili. Run Time Error "70" Permission denied
hatası veriyor.
Cvp: Otomatik Yedekleme - olcay.akkaya - 14/01/2020
Sayın berduş hocam sizin düzenleyip eklediğiniz dosyada da aynı hatayı veriyor. Bilgisayarım x86 Windows7 Office sürümüm 2010. Bunlarla ilgili birşey olabilir mi?
Cvp: Otomatik Yedekleme - userx - 14/01/2020
Sayın olcay.akkaya
Güvenlik ayarlarıyla ilgili olabilir.