AccessTr.neT

Tam Versiyon: Programınızı .ZIP Olarak Yedekleyin
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Bir süredir projemdeki bir forma ekleyeceğim bir buton yardımıyla programı komple yedeklemeyi dahası .ZIP olarak sıkıştırıp yedeklemeyi araştırıyordum. Ekte bununla ilgili bir çalışma bulacaksınız.

Tabiki forumda bir çok yedekleme uygulaması mevcut benimki sadece yeni bir örnek olması açısından yabancı bir forum sitesinden alınıp Türkçeleştirerek bilgilerinize sunulmuştur. Belki birilerinin işine yarar.

Kolay gelsin.

32 Bit için örnek eklenmiştir.

.accdb uzantılı uygulama dosyanız için "Function BackUpDb() 'No WinZip " fonksiyonundaki ilgili kod satırını aşağıdaki şekilde değiştiriniz..
sBackupFile = sFilePart & "_" & Format(Date, "dd-mm-yyyy") & "-" & Format(Time, "hh-mmAMPM") & sFileExtension & ".accdb"
teşekkürler..
Eline sağlık,