Skip to main content

AccessTr.neT


PolSoft Final

PolSoft Final

#175
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.

Cevapla
#176
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
Cevapla
#177
(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
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#178
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...
Cevapla
#179
Application.CommandBars.FindControl(ID:=2071).accD oDefaultAction
Sarı renklenip hata mesajı veriyor
Cevapla
#180
64bit sistemlerde çalışmıyor sanırım. Bende hata verdi
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task