26/07/2009, 01:27
Otomatik Yedekleme ve Bakım
27/07/2009, 23:31
gogoli01
sayın tdsharun;
örneği gönderdim,yardımlarınız için teşekkür ederim.
örneği gönderdim,yardımlarınız için teşekkür ederim.
28/07/2009, 00:50
tdsharun
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:
Program çıkışta otomatik olarak veritabanınızın bulunduğu dizine bir adet yedek atacaktır...
Kolay gelsin...
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...
29/07/2009, 19:09
gogoli01
sayın tdsharun;
ilginiz ve cevabınız için çok teşekkür ederim, yazdığınız kodlar sayesinde ben ve benim gibi örnek arayan arkadaşlara derman oldunuz.
sağolun...
ilginiz ve cevabınız için çok teşekkür ederim, yazdığınız kodlar sayesinde ben ve benim gibi örnek arayan arkadaşlara derman oldunuz.
sağolun...
29/07/2009, 19:45
benremix
Sn Harun Hocam ellerinize sağlık teşekkürler...Bölünmüş (bağlı tablolu) mdb lerde nasıl bir yol izlemeliyiz. Saygılar..
04/10/2009, 02:00
malidolu
Harun Bey benremix'in sorduğu soruya ek olarak bölünmüş tabloyu Access i(formu ile değil) kapatırken flash diske atmak istiyorum acaba nasıl?Teşekkürler.