Veritabanını Sıkıştır ve Onar Hakkında

[capukoglu]

Bir Access programını hazırlayıp hataları giderdikten sonra MDE formatına çeviriyoruz. Doğal olarak verdiğimiz kullanıcı Access bilmiyor olabilir. Ama programı açıp kullanabilir. Bilgileri veritabanına ekledikçe Access veritabanı ile hazırlanan programımız şişecektir.
SORUM ŞU: Kullanıcıya zaman zaman şişen veritabanını sıkıştırıp onarması için hazırladığımız programda bir düğme ekleyip bu düğmeye tıkladığında SIKIŞTIRIP ONARMA işlemini yapacak bir kod nasıl ekleyebiliriz. Elinde örnek olan arkadaşım varsa paylaşırsa sevinirim. Hepimiz içinde faydalı olur inancındayım.

 

[modalı]

Sayın capukoglu,

Bir düğüme ekleyip tıklama olayına aşağıdaki kodları yazın.

Public Sub Komut1_Click()
  Dim msg As String
  msg = "Database.Mdb  isimli veritabanında girdiğiniz kayıtlar tutulmaktadır. "
  msg = msg & "Girdiğiniz ve/veya sildiğiniz kayıtlarla bu dosya zamanla gereksiz yere şişer."
  msg = msg & "Bunun için [Veritabanı dosyası bakımı] işlemini 10 günde bir yaparsanız, "
  msg = msg & "gereksiz şişkinlikler dosyanızdan atılacak, dolayısıyla dosyanızın boyutu küçülecektir." & vbCrLf & vbCrLf
  msg = msg & "Özellikle hafta sonları yedeklemelerden önce" & vbCrLf
  msg = msg & "[Veritabanı dosyası bakımı] işlemini uygulamanız tavsiye edilir." & vbCrLf & vbCrLf
  msg = msg & "Evet'i Seçerseniz...Programın Düzenlenip Onarılabilmesi için Kapatılması Gerekiyor " & vbCrLf & vbCrLf
  
  msg = msg & "Şimdi veritabanı dosyanızın bakımını yapacak mısınız?" & vbCrLf & vbCrLf
  If MsgBox(msg, vbQuestion + vbYesNo, "Veritabanı dosyası bakımı") = vbNo Then Exit Sub
 DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
 Application.CommandBars.FindControl(id:=2071).accDoDefaultAction
End Sub

İyi çalışmalar

 

[capukoglu]

Sayın Modalı,
Verdiğiniz bilgi ve paylaşım adına gösterdiğiniz özveriden dolayı hem kendim hemde bu siteden faydalanan tüm arkadaşlarım adına size çok teşekkür ediyorum.

BİLGİ PAYLAŞTIKÇA ÇOĞALIR...

 

[akd]

Merhaba sayın modalı,
Yine döktürmüşsünüz...
Elinize sağlık...

 

[karaayhan]

Bu kodlar bir yerden bana tanıdık geliyor ama !!!

 

[cedric8]

ellerine sağlık.süper kod.güzel bir şekilde işliyor.teşekkürler.

bilgi paylaşarak anlamlaşır.