Größenabhängige Komprimierung
Man kann in den Access-Optionen einstellen das die Datenbank beim Schließen automatisch komprimiert wird. Sowohl bei der Entwicklung als auch beim Kundeneinsatz kann dieses Feature "nerven" wenn man die Datenbank oft nur kurz nutzt.
Mit der nachfolgenden Funktion können Sie es komfortabel einrichten, dass die Datenbank nur dann komprimiert wird, wenn die Datei eine vorgegeben Größe überschritten hat.
Notwendig ist dafür eine Ereignisprozedur, die beim verlassen der Datenbank (z. B. Schliessen des Hauptmenüs / Beenden-Button) ausgelöst wird, und unsere Routine mit einer vorgegebenen MB-Zahl aufruft, z. B.:
call groessenkomprimierung(20)
wobei die 20 besagt, dass die Datenbank ab einer Dateigröße von 20 MB komprimiert wird.
Die Routine selbst legen Sie in ein beliebiges Modul:
Public Sub groessenkomprimierung(maxMegaByte As Integer)
On Error GoTo Err_groessenkomprimierung
If FileLen(CurrentDb.Name) > maxMegaByte * 1024 * 1024 Then
Application.SetOption ("Auto Compact"), 1
Else
Application.SetOption ("Auto Compact"), 0
End If
Exit_groessenkomprimierung:
Exit Sub
Err_groessenkomprimierung:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_groessenkomprimierung
End Sub
Bei Aufteilung der Datenbankanwendung in 2 Datenbanken (front/back-end) geben Sie statt "CurrentDb.Name" den Pfad der Datenbasis an.
|
