+- 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 ve Bakım (/konu-otomatik-yedekleme-ve-bakim.html)
Cvp: Otomatik Yedekleme ve Bakım - benremix - 10/12/2009
(10/12/2009, 14:55)fox35 yazdı: sayın sledgeab;
benimde takıldığım bir nokta var; çalışma yedeklenirken o günün tarihiyle yedek oluşturuyor, günlük yedeklenince hergünün yedeği oluyor bu durum bir yönden iyi ama bu işlerden anlamayan kullanıcılar için bir süre sonra tüm yedekler bilgisayarı şişirebilir, düzenli olarak eski yedekleri silmek gerekir bunun yerine tarihe göre değilde sürekli aynı isimle eski yedeğin üzerine kaydedilen yedek almak için kodlarda ne gibi düzenleme yapmak gerekiyor?teşekkürler.
YEDEKALINIYOR isimli formdaki
Kod:
strNewDBName = strBUDir & "\" & fDay & fMonth & fYear & strOldDBPrefix & ".mdb"Kod:
strNewDBName = strBUDir & "\" & strOldDBPrefix & ".mdb"Cvp: Otomatik Yedekleme ve Bakım - Bilgisayarcı - 10/12/2009
strNewDBName = strBUDir & "\" &fYear & fMonth & fDay & strOldDBPrefix & ".mdb"
şeklinde değiştirilmeli bence
Windows isme göre sıralayınca en son alınan en başta olur
Cvp: Otomatik Yedekleme ve Bakım - fox35 - 10/12/2009
Teşekkürler sn Bilgisayarcı ve sn benremix
RE: Cvp: Otomatik Yedekleme ve Bakım - mconer - 07/10/2023
(28/07/2009, 00:50)tdsharun yazdı: 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:
Bu satırın yerine şunu yapıştırın:Kod:KopyaDB = Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & Format(Date, "dd.mm.yyyy") & "Yedek.mdb"
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...
Teşekkür Ederim Hocam....