Otomatik yedekleme

[akd]

Merhaba arkadaşlar,
Proğram her kapanışında otomatik olarak,
prğramın bulunduğu klasörün içine
bu günün tarihi ile yedekle yapmasını istiyordum,
formla falan degil, soru sormada her kapanışında yedeklesin,
yani gün içerisinde 5 kere açıp kapandıysa,
5 tane yedek degil 1 tane yedek kalacak
aynı gün içinde 5 kerede açılıp kapansada son haliyle yedek kalmasını,
bir türlü yapamadım,
Yardımcı olacak arkadaşalaa şimdiden teşekkürleri sunarım...

 

[mehmetdemiral]

Merhaba
Bunun için daha önce benim mesajlarımda geçen bir modul kullanmıştık. Yine burada bir arkadaşın önerdiği bir modülü ben biraz değiştirip düzenlemiştim. Bulamazsanız aktarayım buraya veya formunuzu gönderin ben o şekilde düzenleyeyim.

Kolay gelsin.

 

[Taruz]

Merhaba...

Buradaki konuda bulunan #6 nolu cevapta Sayın Zeki Gürsoy'a ait sizin isteğinize benzer bir düzenek var..

BackUpFile = "D:\Yedek\" & "YEDEK" & Format$(Date, "yyyymmdd") & "saat" & Format$(Time, "hhmmss") & ".mdb"

bölümündeki saatle ilgili kısımları kaldırırsanız her güne bir yedek saklanır ve bu son güncel hali olur..

 

[akd]

Çok teşekkür ederim sayın taruz,
Bir konu daha var,
bu kodun access kapanırken çalışması için,
hangi kod bloğuna yazmam gerek.
Accessi normal kapat X kapatıyoruz da
İyi çalışmalar...

 

[mehmetdemiral]

Sayın akd..
Mutlaka her zaman açık olan bir Ana formunuz vardır. Onun kapandığında yordamına yazın. Çalışıyor.

 

[akd]

Haklısınızda sn.mehmetdemiral,
kapanırken olması son degişiklerin saklanması anlamına gelecegi için,
özellikle kapanırken dedim,
yoksa açılışada koyabilirim,
yani şifre yazarak açacak mecburen,
ama saatlerce veri girilecek veya degişikler yapacak,
ama herhangi bir nedenden dolayı prğ bozulunca,
bütün emek boşa gidecek.
Olay bundan ibaret.
accessin açılışında çalışan bir makro vardı Autoexcebat galiba,
kapanışındada çalışan bir makro veya kod yokmu acaba.?
İlgin için çok teşekkür ederim.

 

[mehmetdemiral]

Sayın akd
Access bir veri tabanı uygulaması olduğu için biliyorsunuz ki, kayıtlar alan terkedildiğinde yapılıyor. Yani benim aslında en sevdiğim, bazılarının ise inatla diğer programların kaydetmesine benzetmeye çalıştığı özellik budur. Veriyi yazıp alanı terkettiğinizde kayıt bitmiştir. Bundan sonra programa ne yaparsan yap, veri bozulması dışında veri kaybı olmaz. Veri bozulması konusunda benim kullandığım şekilde sorun yaşanmıyor. Şöyle ki; yaptığım tüm çalışmalarda veriler başka bir mdb dosyasında tutulur, hiç tek dosya ile çalışmam. Böylece belki de verilerim bozulmuyor. Yani form-sorgu-rapor-makro ve modüllerin olduğu mdb kitlense de, diğer mdb'de sorun olmuyor. Çünkü ona SADECE veriler yazılıyor. Oysa diğer mdb'de iş daha yoğun. Belki bundan dolayı ben veri bozulması yaşamadım. Sizin bahsettiğiniz veri bozulması olacaksa zaten oluyor. O da elektrik kesilmeleri, bilgisayar kitlenmesi, virus ve donanım arızaları gibi sebeplerden oluyor.

Yalnız bence yedek alma işini manuel yapmak daha mantıklıdır. Ya da gün içindeki yedeklemeleri belli sayıda sınırlamak.. Çünkü diyelim programda verilerde bir sıkıntı oldu, ne yapacaksınız. Kapatsanız aynı isimde bir yedek alırsa, bozuk hali yedeklenmiş olacak. Kullanıcı işi biliyorsa programı kapatmadan aşağı atacak ve gidecek yedek klasöründeki eski yedeği başka yere kopyalacak. Ondan sonra programdan çıkacak ancak... Bunu da herkes yapamaz. O zaman bu yedek alma işini biraz daha sağlama almak gerekiyor galiba. Her çıkışta yedekleme bu açıdan işe yaramayabilir. Bunun yerine time verisi de eklenerek yedek alınsa, dosya adı tarih ve zamanı da içerse, daha iyi olur bence..O yüzden siz sayın Taruz'un kodlarını olduğu gibi kullanın bence.. Saat verisini çıkarmayın.

 

[beab05]

Merhabalar;
Elimde mevcut olan "periyodik yedekleme" ile ilgili bir kodu örneklendirdim.
Örnekte "Bkupctrl" isimli tabloda tarih bugünden küçükse C ' ye yedekleme yapmaktadır. elbette yedekleme yerini değiştirebilirsiniz..
Örnek, günlük olarak yani periyodik olarak her yeni günde kendini yedeklemektedir ve tablodaki tarih bugune eşitse tekrar yedek almamaktadır. Bu periyodu istediğiniz gibi özelleştirmek te çok kolay..
Yedeklemeyi ben "departman" isimli formun açılış kodu olarak yaptırdım, siz istediğiniz gibi yaparsanız.. Ayrıca yedeklemeden sonra göreceksiniz ki bu örneğin bulunduğu klasorde "bakup.bat" dosyası oluşmaktadır. Bu dosyayla istediğiniz zamanda da yedekleme yapabilirsiniz. Sadece çift tıklamanız yeterli. Bat dosyasının oluşmasını istemiyorsanız, daha doğrusu oluştuktan sonra silinmesini istiyorsanız moduldeki ;
'Kill strBatchFile
satırını aktif hale getiriniz..

 

[karaayhan]

Private Sub Form_Timer()
If Time = "10:10:00" Or Time = "12:00:00" Or Time = "14:00:00" Or Time = "16:00:00" Or Time = "18:00:00" Then
SysBackup
End If
End Sub

Şeklinde formun zaman ayarı kısmına bir kod eklesek çalışırmı dedim ancak olmadı!!!

sayın beab yardımınızı bekliyorum bu konuda ..

Merhabalar;
Elimde mevcut olan "periyodik yedekleme" ile ilgili bir kodu örneklendirdim.
Örnekte "Bkupctrl" isimli tabloda tarih bugünden küçükse C ' ye yedekleme yapmaktadır. elbette yedekleme yerini değiştirebilirsiniz..
Örnek, günlük olarak yani periyodik olarak her yeni günde kendini yedeklemektedir ve tablodaki tarih bugune eşitse tekrar yedek almamaktadır. Bu periyodu istediğiniz gibi özelleştirmek te çok kolay..
Yedeklemeyi ben "departman" isimli formun açılış kodu olarak yaptırdım, siz istediğiniz gibi yaparsanız.. Ayrıca yedeklemeden sonra göreceksiniz ki bu örneğin bulunduğu klasorde "bakup.bat" dosyası oluşmaktadır. Bu dosyayla istediğiniz zamanda da yedekleme yapabilirsiniz. Sadece çift tıklamanız yeterli. Bat dosyasının oluşmasını istemiyorsanız, daha doğrusu oluştuktan sonra silinmesini istiyorsanız moduldeki ;
'Kill strBatchFile
satırını aktif hale getiriniz..

Merhaba...

Buradaki konuda bulunan #6 nolu cevapta Sayın Zeki Gürsoy'a ait sizin isteğinize benzer bir düzenek var..

BackUpFile = "D:\Yedek\" & "YEDEK" & Format$(Date, "yyyymmdd") & "saat" & Format$(Time, "hhmmss") & ".mdb"

bölümündeki saatle ilgili kısımları kaldırırsanız her güne bir yedek saklanır ve bu son güncel hali olur..

 

[mehmetdemiral]

Aslında kod doğru ama sanırım "SysBackup" yerine call ile bir fonksiyon çağırmalısınız. Bir alt satırdaki yedekleme kodları olan bir fonksiyon varsa onu çağırabilirsiniz. Yoksa if bölümünde sorun yok. Sorunsız çalışıyor.

 

[karaayhan]

sayın demiral call SysBackup şeklinde mi yazmalıyım öyle de denedim ama çalışmadı kardeş, tam kod satırını yazarmısın denediysen tabi...

şu an sitesin sanırım müsaitsen özelden görüşelim..
ayhankara38@hotmail.com

 

[beab05]

Formun zaman dolduğunda olayına aynen kodunuzu yazınız..

Private Sub Form_Timer()
If Time = "10:10:00" Or Time = "12:00:00" Or Time = "14:00:00" Or Time = "16:00:00" Then
SysBackup
End If
End Sub

Süre ölçer aralığı 1000 yazınız..Formun açılışından sysbackup ı kaldırınız.. Bu şekilde kullanırsanız tabloya da gerek kalmaz..

 

[karaayhan]

örnek dosyaları indiremiyorum
geçen yıl da yenilenince böyel olmuş bir sürü emek hiç olmuştu umarım bu başka bir hatadan kaynaklanıyordur.

yoksa gitti gider yani!!

 

[modalı]

Sayın karaayhan,

Maalesef durum böyle.

Şimdi tüm dosyalar kayboldu. Benim de canım sıkıldı en kötüsü şevkim kırıldı:frown:

 

[ozanakkaya]

sn akd, uygulamayı kapatacağınız forma aşağıdaki uygulamada bulunan formdaki kodları ekleyin. programı kapatmak için kullandığınız butonu tıkladığınızda günlük yedek alıp kapatsın.

 

[karaayhan]

işte şimdi korktuğumuz başımıza geldi desenize!
umarım bu hata kalıcı olmaz sayın forum yeniticisi Hüseyin Bey ve Levent Bey bir çözüm üretirler. Onca emek hiç olmaz ...
Şimdilik kalın sağlıcakla...

 

[akd]

Çok teşekkür ederim sayın ozanakkaya...