Skip to main content

AccessTr.neT


Otomatik Yedekleme

Otomatik Yedekleme

#7
(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..
Cevapla
#8
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.
Cevapla
#9
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
Cevapla
#10
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.
Cevapla
#11
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?
Cevapla
#12
Sayın olcay.akkaya
 
Güvenlik ayarlarıyla ilgili olabilir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task