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.2009
Yedek
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ı: 211)