Veritabanının kapanırken onarılması ve düzenlenmesi için 2 yol var. Birincisi seçeneklerden "kapatırken onar" gibi bir seçeneği işaretlemek. İkinci yol ise kodla bu işi yapmak. Arşivimde bunun için bazı kodlar buldum. Aşağıya ekledim:

Private Sub Komut3_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).accD oDefaultAction

End Sub