Dim msg As String
msg = "Lütfen Dikkat, 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 en geç 7 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
'hayır denilirse ana menüye geri dönülüyor
'evet denilirse on andaki tarih ve saati BAKIMTABLOSU ndaki bakimtarihi alanına tarihi saati ile yazdırıyoruz.
'anamenüde en son bakım yapılan zaman olarak göstertileceği için

'Aşağıdan itibaren de bakım işlemini yaptırıyoruz
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl.accDoDefaultAction

'DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
'Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
...................birde bu kodları deneyiniz..........