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"