dosya kapanırken oto tamir bakım

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

Paylaşım için teşekkürler.

Paylaşım için teşekkürler.

Saygılar...

Bu işlem Düzenle ve Onar ile aynı işimi yapıyor?

evet sn alpeki. eğer dosya boyutu sizin izin verdiğinizi geçmişse kapanışta düzenle ve onar yapıyor

2007 ve sonraki versiyonlarda kapanışta bu özelliği ayarlama var diye biliyorum. O zaman 2003 ve önceki versiyon kullananların kaçırmaması gerekir