(05/11/2018, 21:28)haliliyas yazdı: sayın oğuz türkyılmaz 
1 - resimdeki kütüphaneleri ekleyip



2 - 
Dim dba As Database
Dim Wr As Recordset  yazan kodların başına "DAO." eklediğimde sorun çözüldü (en azından bende öyle görünüyor).

Dim dba As dao.Database
Dim Wr As dao.Recordset
 yalnız bölünmüş veritabanında veritabanının yedeğini almıyor gibi geldi
sadece form rapor gibi nesneleri yedekliyorReferanslara "Microsoft ActiveX Data Objects x.x Library" referansını ekleyiniz. 

İyi Akşamlar Halil bey. Gönderdiğiniz resimdeki kütüphaneler bende de aynen işaretli Ozan beyin  "Referanslara "Microsoft ActiveX Data Objects x.x Library" referansını ekleyiniz. " diye belittiği kısmın resmini gönderdim hangisini işaretlemeliyim diye, resimde de görüldüğü gibi bir sürü ActıveX Data Objects seçeneği mevcut.'. 2. madde de söylediklerinizi uygulayıp dönüş yapayım. Bölünmüş veritabanında dediğiniz gibi neyi gösterirseniz onu kopyalıyor. Benim gibi geliştirme aşamasındaki projelerde hem form ve diğer nesnelerin olduğu .accdb uzantılı dosyayı hemde accdb_be uzantılı tabloların tutulduğu dosyayı ayrı arı yedeklemek gerekiyor,  en azından ben başka bir yol varmı bilmiyorum.

(05/11/2018, 21:49)haliliyas yazdı:

(05/11/2018, 19:53)Oğuz Türkyılmaz yazdı: Bir de yedek alma modülünün yedeklenecek verinin  ve yedekleme yerinin kaydedildiği ekran ben bu işlemleri yapıp kaydettikten sonra veriyi söylediğim adrese yedekliyor fakat daha sonra benim belirlediğim bu adresler kayboluyor yine eski default ayar bilgileri geliyor. Bunun nedeni nedir çünkü ben programımın ana sayfa formuna koyduğum bir butona tıklayarak yedekleme yapmak istiyorum, her seferinde girip yolu ve hedefi göstermek şeklinde kurgulanmamıştır sanırım bunu nasıl düzeltebilirim.

Oğuz bey klasörü kendiniz oluşturmanız gerekiyor, yedekleme klasörünü windows üzerinden oluşturunca sorun çözülüyor

Ben klasörü oluşturmuştum windows üzerinde ve C:/ de projemin içinde olduğu klasörün içine bu klasörü de eklemiştim. Sorun başka sanırım.

oğuz bey kendi çalışmam için söyleyeyim gönderdiğim resimde seçilmiş activeX dosyalarının eklenmiş olması yetiyor
Ozan beyin  "Referanslara "Microsoft ActiveX Data Objects x.x Library" referansını ekleyiniz. " diye belittiği kısım yanılmıyorsam zaten bu seçili olanlardı. bu 7 tanesini ekleyip 2. adımı uyguladıysanız sorun çözülmüş olmalı. en azından benim çalışmamda işe yaradı.

klasör oluşturma kısmına gelince hem 12. mesajda belirtiğim " If Len(Dir(Me.YedekYolu, vbDirectory)) = 0 Then MkDir Me.YedekYolu "
kodu eklediğimde hem de windows üzerinde oluşturduğumda 2 sinde de sorunsuz çalıştı
not: sistemi kontrol etmek için 2 defa yedek al/yedek ayarla üst üste çalıştır ilk denememde hatalı olsa da 2. de çalıştı

son olarak yıllık menu yönetimi adresindeki örnek uygulamada yedekleme özelliği de mevcuttu orada yer alana yedekleme kısmını deneyebilirsiniz.
yine "activex" ve "DAO." sorunları olacaktır ama orada ister bağlı tabloları isterseniz de tablo dışındaki form rapor gibi nesneleri de yedekleyebiliyorsunuz.
not: yedekleme kısmı bana ait değildi internetten bulmuştum. dilerim işinize yarar

(05/11/2018, 21:28)haliliyas yazdı: sayın oğuz türkyılmaz 
1 - resimdeki kütüphaneleri ekleyip



2 - 
Dim dba As Database
Dim Wr As Recordset  yazan kodların başına "DAO." eklediğimde sorun çözüldü (en azından bende öyle görünüyor).

Dim dba As dao.Database
Dim Wr As dao.Recordset
 yalnız bölünmüş veritabanında veritabanının yedeğini almıyor gibi geldi
sadece form rapor gibi nesneleri yedekliyor

    Benim indirdiğim uygulamada kodlar bu şekilde

Dim db As dao.Database
Dim rs As dao.Recordset

Sizin belirttiğiniz bu kodları
Dim dba As Database
Dim Wr As Recordset

vba kodlarımın içinde göremedim.

Merhaba, sizde olmayan bir sürüm numarası vermemek için Microsoft ActiveX Data Objects x.x Library şeklinde yazdım. Siz 2.8 sürümünü ekleyebilirsiniz. Örneğinizi ekleyin, hatanın sebebini bulmaya çalışalım.