Compact and repair database.. butona atama

[TRUSA]

Arkadaslar Merhaba,

1- Menude (Customize-Toolbar-Compact and Repair Database...) bulunan ve programin boyutunu kuculten Compact and Repair Database... secenegini form uzerindeki bir butona nasil aktarabiliriz ?.
2- Modulde kodlari bulunan bir secenegi, form uzerindeki bir butona nasil atayabiliriz ?.

Yardimlariniz ve paylasimciliginiz icin cok tesekkurler..

 

[modalı]

Sayın TRUSA,

Aşağıdaki kodları bir düğümenin klik olayına kopyalayıp yapıştırın:

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

İkinci sorunuzun yanıtı için çalıştırmak istediğinizin kodun türüne göre değişiklik olabilir. Ama yukarıdaki kodalrı bir modül içinde şu şekilde yazarsanız:

Public Sub onar()
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

o zaman düğümenin klik olayına:

Private Sub Komut3_Click()
Call onar()
End Sub

yazmanız yeterli.

İyi çalışmalar

 

[TRUSA]

Sayim modali,

Her zamanki vermis oldugun destek ve bilgiler icin tesekkurler..