Skip to main content

AccessTr.neT


dosya kapanırken oto tamir bakım

dosya kapanırken oto tamir bakım

#1
Bazen dosyalarımızın tasarımı ile uğraşırken bir bakmışız 2 gb olmuş ve dosyamız çökmüş yada eşiğinde. Dosyamızın özelliklerine göre tablomuzda (versiyon tablosu) tuttuğumuz bir mg parametresine üzerinden bunun önüne geçebiliriz. En çok kullandığımız formun ( ana formumuz) kapanış olayına kodları yerleştiriyoruz.
bu şekilde hem dosyamızı hemde performansını korumuş oluyoruz
İşinize yaraması dileği ile

Private Sub Form_Close()
fixAndzipFile
Application.Quit
End Sub
Private Sub fixAndzipFile()
Dim dkb As long, dmg As Double, dAlowedMg As Double
dkb = GetFileSize(Application.CurrentDb.NAME)
dmg = dkb / 1048576
dAlowedMg = Dlookup ("allowedSize", "versiyon")
If dmg > dAlowedMg Then
MsgBox "Veri tabanı kontrolü ve bakımı yapılacaktır" & vbCrLf & "Bu işlem bilgisayarınızın hızına göre bir kaç saniye sürebilir" & vbCrLf & "Lütfen müdahale etmeyin !!!", vbCritical, "Asistan"
Application.SetOption ("Auto Compact"), 1
Else
Application.SetOption ("Auto Compact"), 0
End If
End Sub

Function GetFileSize(strFile As String)
Dim system, dosya As Object
On Error GoTo cikis:
Set system = CreateObject("Scripting.FileSystemObject")
Set dosya = system.Getfile(strFile)
GetFileSize = dosya.Size
Set dosya = Nothing: Set system = Nothing
cikis:
End Function
Hayatta listbox kullanmam..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
dosya kapanırken oto tamir bakım - Yazar: fatih karagöl - 01/02/2013, 15:19
Task