access yedekleme

[ahmetahmet]

sayın modalı kolay gelsin. son kez başınızı ağrıtacağım.şimdiden kusura bakmayın. ben projeyi bitirdim yanlız yedekleme işi biraz çetrefilli. öncede program sadece 1 veritabanından oluşuyordu. data da oradaydı, programın kendiside. şimdi veritabanı böl ile data ve programı ayırdım. buraya kadar bir problem yok. yanlız yedekleme butonuna bas dediğimde bi ekran açılıp programın mı, yoksa data veritabanının mı yedeklenmesi gerektiğini seçip ondan sonra seçilenin yedeklenmesi gerekiyor. birde diyelim datayı yedekle dedik ozaman programın bulunduğu klasörün içine eğer yoksa data diye bir klasör açacak ve içine kaydetme tarihiyle isim yazarak kaydedecek.(örnek:27.06.2008_data.mdb) aynı şekilde programın yedeğini al dediğimdede programın bulunduğu klasörün içine eğer yoksa program diye bir klasör açacak ve içine kaydetme tarihiyle isim yazarak kaydedecek.(örnek:27.06.2008_program.mdb). bunun haricinde yedekleme sayfasınada program yada data klasörlerinin içinde uzantısı sadece mdb olan dosyaların listbox içinde ayrı ayrı (program yedeği için ayrı listbox, data yedeği için ayrı listbox) görülmelerini istiyorum. yardımcı olabilirseniz çok sewinirim. cevabınızı bekliyorum. iyi çalışmalar..

 

[ahmetahmet]

sayın modalı umarım yardımcı olabilirsiniz. yardımlarınızı bekliyorum. iyi çalışmalar diliyorum..

 

[modalı]

Sayın ahmetahmet,

Sabır en iyi ilaçtır.


İyi çalışmalar

 

[ahmetahmet]

sayın modalı çok teşekkür ederim şimdi biraz inceledim ama sanırım bir yer yanlış olmuşş... kodda el ile yol tanımlanmış.ben bunu istemiyorum. program neredeyse orası otamatik seçilecek..siz böylemi yaptınız acaba. ayrıca yedekler diye klasör olmayacak data ve program diye klasör yedeğe göre otomatik olarak açılacak.eğer hiç yedek yoksa o klasörlerde hiç olmayacak, yada hangi yedek alındıysa onun klasörü olacak. yeni duruma göre otomatik oluşacak..ayrıca ben bunu çalıştıramadım.bi bakabilirsen çok sewinirim.

 

[modalı]

Ne demek istediğinizi anlamadım.

Neresi yanlış olmuş? El ile yok ne demek :???:

 

[ahmetahmet]

el ile yol yazacağıma yok yazmışım. şuan program çalışmıyor.

 

[modalı]

Ben de saat gibi çalışıyor.

Çalışmıyorun açıklaması ne?

 

[ahmetahmet]

sayın modalı yedekle modülünün içine bir yol yazmışsınız. c:\document... falan gibi ben bunu düzelttim ama yedek al dediğimde hata veriyor.. ayrıca bi kaç şeyde eksik bunlarıda yapabilirmisiniz sayın modalı.... bu arada hatayı buldum. yedekler klasörü olmazsa hata veriyor.. ben böyle istemiyorum. hiç klasör olmasa bile eğer yoksa klasörü kendisi oluşturacak....

 

[mehmetdemiral]

Sevgili Modalı,
Bende de program yedek alma gayet güzel çalışıyor ama tablo yedek alma seçilince program kırılıyor ve debugda aşağıdaki kısım sarı renkle seçili olarak geliyor.

fileObj.CopyFile strDB, strBackupName, True


Sanırım bir üstündeki şu satırların düzenlenmesi gerekiyor

Let strDB = "C:\Documents and Settings\Fener Lisesi\Desktop\Deneme\" & strDB
Let strBackupName = "C:\Documents and Settings\Fener Lisesi\Desktop\Deneme\Yedekler\" & strBackupName
Set fileObj = CreateObject("scripting.filesystemobject")


Yardımcı olabilirim diye yazdım.. Kolay gelsin..

 

[ahmetahmet]

mehmetdemiral sizde hata vermesinin nedeni oradaki yol. yani C:\Documents and Settings\Fener Lisesi\Desktop\Deneme bu size göre tanımlayın burayı ve yedekler diye bir klasör açın ozaman problem olmuyor...

 

[modalı]

Siz bu klasörleri programı kurarken oluşturacaksınız.

Tabi bunun da çözümü var ama ordan oraya gidiyoruz. Backup dosyalarının uygulamayla aynı yerde olmaması gerekir.

Gözümden kaçmış, ilgili kodları bunlarla değiştirin

Public Function dosya()
Dim fileObj As Object
Dim strDB As String
Dim strBackupName As String
Dim msg As Integer

DoCmd.Hourglass -1

Let strDB = "data.mdb"
Let strBackupName = Date & "_" & strDB
Path = CurrentProject.Path
Let strDB = Path & "\" & strDB
Let strBackupName = Path & "\Yedekler\" & strBackupName

Set fileObj = CreateObject("scripting.filesystemobject")

fileObj.CopyFile strDB, strBackupName, True

msg = MsgBox("Yedekleme İşlemi Başarı ile Tamamlandı.:" & vbCrLf & vbCrLf & strBackupName, vbInformation, "Envanter Takip Programı")

DoCmd.Hourglass 0

End Function

İyi çalışmalar

 

[mehmetdemiral]

Bende hata vermesinin nedeninin ne olduğunu zaten yazmıştım sayın ahmetahmet...
Kodları değiştirince bende de hatasız çalışıyor. Başka ne sıkıntı var ki ben de anlamadım?

 

[ahmetahmet]

sayın modalı ben programı kurarken bu klasörü oluşturmayacağım. benim istediğim yedek alınırsa otomatik olarak klasörü kendinin oluşturması. eğer yedek yoksa klasörde olmayacak. yedek varsa onun klasörünü oluşturacak. data yedeği varsa data klasöründe olacak, programın klasörüde dolasıyla olmayacak. nezaman programında yedeği alındı ozaman programında klasörü oluşacak..

 

[modalı]

Yedekler klasörünün yaratılması için ise:

FormLoad olayına aşağıdaki kodları da ekleyin:

On Error GoTo Err_cmdKlasörEkle_Click
Dim stKlasör As String
MkDir CurrentProject.Path & "\Yedekler"

Exit_cmdKlasörEkle_Click:
    Exit Sub

Err_cmdKlasörEkle_Click:
    If Err.Number = 75 Then Exit Sub
    MsgBox Err.Description
    Resume Exit_cmdKlasörEkle_Click

İyi çalışmalar

 

[mehmetdemiral]

Sayın ahmetahmet.. Çok merak ettim merakımı bağışlayın ama boş bir yedek klasörünün setup sırasında oluşturulmasının kime zararı olabilir. Çok basit bir kodla yedek alma işleminin başında bu klasörler açılabilir ama bu ısararınızı anlayamadım. Yanlış anlamayın da...

 

[ahmetahmet]

ne sebebi olduğunu söyleyeyim mehmetdemiral. adam diyelim yedekler klasörünü sildi. ne olacak. bunu düşünüyormusunuz. eğer yedek klasörü olmadığında oluşursa bir sıkıntı olmayacak..

 

[modalı]

Cevabınızı görmeden yazdım.

O zaman klasör oluşturma kodlarını şu şekilde oluşturun:

Public Sub KlasorOlustur()
On Error GoTo Err_cmdKlasörEkle_Click
Dim stKlasör As String
MkDir CurrentProject.Path & "\Yedekler"

Exit_cmdKlasörEkle_Click:
    Exit Sub

Err_cmdKlasörEkle_Click:
    If Err.Number = 75 Then Exit Sub
    MsgBox Err.Description
    Resume Exit_cmdKlasörEkle_Click
End Sub

ve bunları modülün içine yapıştırın.

Formda da aşağıdaki eklemeyi yapın

Private Sub cmdYedekAl_Click()
Dim a As Integer
[B]Call KlasorOlustur[/B]
a = Nz(Me.choYedek, 1)
Call yedek(a)
Call FindFilesInFolder
Me.lstData.Requery
Me.lstProgram.Requery
End Sub

İyi çalışmalar

 

[ahmetahmet]

peki sayın modalı bide şu şekilde yapabilirmiyiz. ayrı ayrı klasörlerde tutmak gibi. data_yedek klasörü ve program_yedek klasörü. bunu yapma imkanımız varmı

 

[mehmetdemiral]

Valla bir programın içindeki yedekler klasörünü silebiliyorsa vatandaş, programı da sile diye düşünüyorum. Tabii sizin açık kapı bırakmamaktaki mantığınız doğru.. Haklısınız da, baştan bu fikrinizi hissettirmediniz)) Ne yalan söyleyeyim, başta sizin düşündüğünüz gibi düşünmeye yönlenemedim. Yedekler klasörünü adam siler diye baştan oluşturmamak konusunu hala çok anlamlı bulmuyorum. Ama bir önlem olarak düşünmeniz güzel.. Kutluyorum sizi... Ben neden öyle düşünemedim hala anlayamadım. İlginç bir durum..

Bir de önerim vardı ama modalı zaten o bölümü revize etmiş.. Yine de yazayım. Yedekleme formunun load olayına klasör oluşturma kodu yazmak yerine seçenek grubunun seçilmesi olayına yazılabilir diyecektim.. Ama anlamı kalmadı galiba..

 

[ahmetahmet]

teşekkür ederim mehmetdemiral.. güzel bir proje yapmak için herşeyi düşünmek gerekiyor. sağolsun sayın modalı çok yardım etti. en zorlandığım yerlerde hep yardım etti çok sağolsun.... ayrıca sayın modalı kayıt olayını hallettim. datayı data_yedek klasörüne, program yedeğide program_yedek klasörüne atıyo. yanlız yedeklerimizi göremiyorum yedek forumunda.onada bi bakarmısınız.