Al sana çok basit bi yedekleme... Tek form, tek buton...

Hem sıkıştırıp onarıp yedekliyor...

Ama bunda kod ile yolu belirlemen lazım. Tek dikkat etmen gereken nokta bu...

Artık onu da sen yaparsın... Sana düzeltmen gereken yeri de söyleyeyim:


KopiaDB = InputBox("Veritabanı yedeklenecek, dizin aşağıdaki gibi:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Dosyanın oluşturulacağı yol:.", "Değiştirmeden onaylayınız.", left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & Format(Date, "dd.mm.20yy") & "Yedek.mdb")


Bu bölümü kendine uyarla artık...

Senin dosyanın olduğu yeri otomatik yedekleme yeri olarak ayarlar. Sen buna istediğin gibi şekil verirsin artık...

Gerçi bu da forumda var ama, neyse...