AccessTr.neT

Merhaba arkadaşlar aşağıdaki kod bloğu yedekleme yapıyor , şimdilik bir butona atadım ama ben kendi kendine düzenli aralıklarla otomatik olarak ve farklı sürücülere de yedeklenmesini istiyorum, şöyle ki; veritabanını bi çalışanımız flash bellekte tutuyor ve bazen farklı bilgisayarlarda da kullanıyor, sürücü değiştikçe kaydetme yeri sorunu ortaya çıkar, nasıl yapsam diye düşünüyorum, acaba yine flash belleğin içine mi yedeklesem ama bu kez de bellek büyüyecek, yardımcı olursanız çok memnun olurum, teşekkürler.
dosyamı yükleme gereği duymadım çünkü kodda düzenleme olacak işte bu yüzden...



Public Function yedekle() As Boolean
Dim Source As String
Dim Target As String
Dim objFso As Object
Dim Path As String

Source = CurrentDb.Name
'Path = CurrentProject.Path
Path = "C:\testDB"
Target = Path & "\BackupDB_" & Format(Now(), "mm-dd-yyyy") & ".accdb"

Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.folderExists(Path) Then
a = objFso.copyfile(Source, Target, True)
Else
objFso.Createfolder (Path)
a = objFso.copyfile(Source, Target, True)
End If
Set objFso = Nothing
Set a = Nothing

End Function

Sayın @tarkanaykın

Sorunuzun çözümü kendi kodlarınızın içinde mevcut. Açıklama olarak gösterdiğiniz
başındaki ' kaldırarak açıklamadan çıkartıp koda dönüştürmeniz ve alttaki spesifik yol olarak tanımladığıız path'i iptal etmeniz halinde yedeklemeniz çalıştırmış olduğunuz kaynak disk üzerine yapılacaktır. Belirli aralıklarda yedekleme almak istiyorsanız sürekli açık olan bir formunuzun timer özelliğini kullanabilirsiniz.

Biraz acemice açıklıyorum kusura bakmayın.

Saygılarımla

Murtaza AF

Sayın MURTAZAAF çok teşekkür ediyorum, estağfirullah ne demek sizlerin her kelimesi çok kıymetlidir, teşekkür ederiz, bu timer olayını duymuştum, biraz araştırma yapayım nasıl uyarlayabilirim diye, tekrar teşekkürler.

arkadaşlar yerli, yabancı sitelerin altını üstüne getirdim yok, access'te "uygulamadan çıkmadan önce makro çalıştırma" konusunu bulamadım, yok mu öyle bir şey? form kapanınca tetikleme olayını biliyorum ama ben uygulamadan çıkınca olayını kullanmak istiyorum, ya da şöyle bir şey olabilir mi; formu kapatınca uygulamadan çıkış yapılırsa ve ben de "form kapanınca" olayını tetikleyici olarak kullanırsam olur mu, mantıken öyle diye düşünüyorum.

---

tamam oldu! yedekleme kodunu form kapama olayına atadım, e form kapanınca uygulamadan çıkılıyor zaten , dolayısı ile yedekleme gerçekleşti, teşekkürler.