Windows bölge ve dil seçenekleriniz Türkiye, Türkçe değilse çalışmayacaktır. Ayrıca tarih ayraçları, referanslarda önemli tabi.
hocam olmuyor neyse yapacak bişey yok ilginiz için sağolun.
Benim amacım burdan acess nesnesinin kapandığında kendi kendini onarması için kodlar falan bulmaktı. Bu konuda yardımcı olabilirmisiniz peki
(29/05/2014, 09:47)silka yazdı: [ -> ]hocam olmuyor neyse yapacak bişey yok ilginiz için sağolun.
Benim amacım burdan acess nesnesinin kapandığında kendi kendini onarması için kodlar falan bulmaktı. Bu konuda yardımcı olabilirmisiniz peki
sanirim asagidaki konu isinize yarar
https://accesstr.net/konu-program-belirl...-acma.html
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
Application.CommandBars.FindControl(ID:=2071).accD oDefaultAction
Sarı renklenip hata mesajı veriyor
64bit sistemlerde çalışmıyor sanırım. Bende hata verdi