Yedekleme ile ilgili bir örnekten yola çıkarak size bir modül hazırladım. Bu modülü bütün örneklerinizde kullanabilirsiniz.
Yedeklenen dosya adı bugünün tarihinin sonuna Yedek eklenerek gerçekleşir. Yani program her kapanışında bugünün tarihinin sonuna Yedek ekler ve ortaya şöyle bir şey çıkar: 28.07.2009Yedek
Eğer bir günde birden fazla kapatma işlemi gerçekleşecekse o zaman tarihten sonra bir de saat girmek gerekecek... Onu da isterseniz onu da yaparız...
Örnek ekte... Kolay gelsin...
Sonuna saat eklemek isteyen de olur diyerek onu da vereyim dedim. Bugünün tarihini gün, ay, yıl olarak verdik, sonra yedek alınan saatin saatini ve dakikasını verdik, sonuna da Yedek ekledik. Aralarında da nokta var. Sonuç şöyle bir şey çıkıyor: 28.07.2009.01.15.Yedek
Bunun için kodlarda şu kodları bulun:
Kod:
KopyaDB = Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & Format(Date, "dd.mm.yyyy") & "Yedek.mdb"
Bu satırın yerine şunu yapıştırın:
Kod:
KopyaDB = Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & Format(Date, "dd.mm.yyyy") & "." & Format(Time, "hh.mm") & "Yedek.mdb"
Program çıkışta otomatik olarak veritabanınızın bulunduğu dizine bir adet yedek atacaktır...
Kolay gelsin...
Araba_isletme_tdsharun.rar
(Dosya Boyutu: 43,32 KB | İndirme Sayısı: 209)