yedekleme

[akd]

Merhaba arkadaşlar,
Hemen diyeceksiniz yedekleme konusu çok işlendi,
Ama ben , Araçlar/Veri tabanı Hizmet Prorğramları/Veritabanını yedekle
yi yapmak istiyorum, yani bu diyalog kutusunu kulanmak istiyorum,
Bu diyalog kutusunu kod ile nasıl aça bilirim.
Araçlar/Veri tabanı Hizmet Prorğramları/Veritabanını yedekle
İyi geceler...

 

[karaayhan]

sanırım 2003 versiyonda var bu seçenek?

 

[akd]

makro ile yapmak

Merhaba sayın karaayhan,
Meramımı anlatamammışım ben,
bu olay 2003 de var ama ben form üzerine koyacağım bir buton ile
bu diyaloj kutusunu açtırmak istemiştim.
Selamlar...

 

[attila52]

sayın akd ben kendi uygulamam içinde kullandığım var onu ayıklayıp örnek olarak atacağım akşam ilgilenirim iyi çalışmalar

 

[attila52]

Yedekleme

sayın akd benim kullandığım yedek alma mantığı şu şekilde çalışıyor tabiki siz bunu değiştirip sizin istediğiniz gibi olur.
ben sadece access dosyalarını değil doc. xls vs diğer dosyalarıda yedekleye bilmek için bir adet açılan kutudan seçim yapıyorum dosya türlerini seçmek için ve bununla birlikte önce yedeklenecek dosyayı seçiyorum sonra yedeklenecek yerde işte d: sürücüsü ise orada aynı türden bir dosyam var diyelimki benim yedeklemek istediğim dosya Cosya.mdb ise yedekleyeceğim yerdede aynı isimde yada farlı isimde bir dosya açıyorum örneğin D:Yedekler\DosyaYedek.mbd böylece benim yedekleme yapmak istediğim dosyaların paht ını tabloya ekliyor herseferinde seçmek istemiyorum tabiki bunları oto olarak ta dosya açtırıp ta yapabilirdim ama ben böyle istedim üstünde siz küçük değişikliklerle istediğiniz şekle dönüştürebilirsini. umarım işinizi görür iyi çalışmalar.

 

[Zeki Gürsoy]

Bu şekilde de yedekleyebilirsiniz.

Private Sub Komut0_Click()
Dim dosyam() As Byte, no As Byte, fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogSaveAs)
cevap = fd.Show

If cevap = 0 Then Exit Sub

    no = FreeFile
    Open CurrentProject.FullName For Binary As #no
        ReDim dosyam(LOF(no))
        Get #no, , dosyam
    Close #no
    
    no = FreeFile
    Open fd.SelectedItems(1) & ".mdb" For Binary As #no
        Put #no, , dosyam
    Close #no
    MsgBox "Yedekleme işlemi bitti."
End Sub

 

[akd]

hata

Merhaba sayın Atilla52 ve anemos,
İlginiz için çok teşekkürederim.
Ben yedekleme diyaloj kutusunu açtırmak istiyorum
, fd As FileDialog
bu kod hata veriyor, malesef çalışmıyor.
NEden acaba ?
İyi çalışmalar

 

[attila52]

dialog başvuru yaptığınız modül yok sanırım farketmez siz benim gönderdiğim örnekteki dialog penceresini açmak için modül e bakınız oradan kendinizinki ile karşılaştırınız eğer bir modülden veya direkt olarak girmiş olduğunuz kendi yazdığınız bir kodu çağıracaksanız ki bu şu anlama gelir
Fonction AçDialog ......... gibi başlayan bir kodu
ve burada bulunan döngüyü çağırmak için tek yapmanız gereken
Call AçDialog() yazmanız yeterli

 

[akd]

Merhaba sayın atilla52,
Araçlar/Veri tabanı Hizmet Prorğramları/VERİTABANINI YEDEKLE
burayı açan bir kod yokmu demek istiyorsunuz.
Teşekkürler.

 

[karaayhan]

sayın akd benim söylemek istediğim buraya eklenen örnekler 2003 versiyon olduğundan ve tabiki sizin isteğiniz de bu doğrultuda olduğundan konuya biraz fransız kalıyoruz! demek istedim.

ha şuna da saygılıyım kardeşim ben 2003 vers.kullanıyorum gerisi beni ilgilendirmez derseniz eyvallah, ama access 'in 2002 olarak ta kaydetme özelliğinden ötürü bu isteğim....

saygılar.

 

[xorion]

Sizin amacınız kullanıdığınız veritabanının bir kopyasını oluşturmak değil mi kısaca?

 

[Zeki Gürsoy]

, fd As FileDialog
bu kod hata veriyor, malesef çalışmıyor.
NEden acaba ?
İyi çalışmalar

Evet, Access VBA da Referanslarla ilgili bilemediğim bazı ayrıntıları var.
Set fd = Application.FileDialog(msoFileDialogSaveAs) satırını elle yazmanız gerekiyor.
Bunu yazarken Referans ile iligili mesaj penceresi gelecek, "Evet" seçiyorsunuz.
Bu işlemden sonra verdiğim kod çalışacaktır.
İyi Çalışmalar...

 

[akd]

Merhaba arkadaşlar,
Sayın xorion, sözkonusu diyaj kutusu ile belgeyi başka isimle ve istedigin yere kaydede biliyorsun.
Benim zaten aktif klasöre yedekleme kodum var.
Araçlar/Veri tabanı Hizmet Prorğramları/VERİTABANINI YEDEKLE
bu dialoj kutusunu kod ile açtırabilirsem
olay daha şık olur seçenekleriniz çoğalır .
İyi çalışmalar...

 

[doktor]

Araçlar/Veri tabanı Hizmet Programları/Veritabanını yedekle

Sayın akd;

Sanırım aradığınız bu.

Önce açık ve salt okunur olmayan bir veritabanınız olmalı.Daha sonra:
Araçlar>Özelleştir>Araç Çubukları sekmesini tıklayın.Yeni’yi tıklatın ve oluşturmak istediğiniz araç çubuğuna bir isim verin.Tamamı tıklayın.Daha sonra Komutlar sekmesini tıklayın.Alttaki kutudan en alttaki Yeni Menü’yü seçin.Komutları Yeniden Düzenle’yi tıklatın.Buradan Araç Çubuğu seçeneğini işaretleyin ve açılan kutudan az önce oluşturduğumuz Araç Kutusu’nu seçin ve Ekle’yi tıklatın.Buradan hangi komutun araç çubuğunuza eklenmesini istiyorsanız onu seçin (Örneğin Araçlar’dan Veritabanını Yedekle komutu) ve Tamamı tıklayın.
Şimdi kendi oluşturduğumuz bir araç çubuğumuz oldu.Sıra bunu projemizde kullanmaya geldi.Bunun için;
Nesnelerden Makro’yu ve Yeni’yi seçin.Eylem kısmından AraçÇubuğunuGöster’i seçin.Araç Çubuğu adı kısmından oluşturduğumuz araç çubuğu adını seçin.Makroya bir isim verip kapatın.
Bunu hangi formda kullanmak istiyorsanız o forma bir buton ekleyip o makroyu bu butona atayın ve sonucu görün..

İyi çalışmalar…

 

[akd]

Merhaba sayın doktor,
İlginiz için çok teşekkür ederim,
Bu soruyu tam 5 ay evvel sormuştum,
5 aydan beri neler öğrendim neler,
bu dediginizi bulmuştum zaten.
Yinede çok çok teşekkürler ederim...