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.
PolSoft Final
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
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.sanirim asagidaki konu isinize yarar
Benim amacım burdan acess nesnesinin kapandığında kendi kendini onarması için kodlar falan bulmaktı. Bu konuda yardımcı olabilirmisiniz peki
https://accesstr.net/konu-program-belirl...-acma.html
SÖZ VERİYORUM... USLU DURUCAM...
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
İnadına, ille de Accesstr.net...
Application.CommandBars.FindControl(ID:=2071).accD oDefaultAction
Sarı renklenip hata mesajı veriyor
Sarı renklenip hata mesajı veriyor
64bit sistemlerde çalışmıyor sanırım. Bende hata verdi
Konuyu Okuyanlar: 13 Ziyaretçi