Hallo, ich Suche die Möglichkeit per VBA-Code anzuweisen die MDB bzw. MDE nach Beendigung zu komprimieren.

Hintergrund:

Ich erstelle eine Access-Datenbank. Unsere Kunden bekommen diese DB. Sie können Sie jedoch nur öffnen und mit dem angezeigten Formular arbeiten. Das Menü ist ausgeblendet. Beendet werden kann über einen Befehlsknopft (DoCmd.Quit).

Nun wächst die MDB aber ständig an, so dass ich eine Abfrage einbauen will:

Der Kunde soll entscheiden ob er beendet oder beendet und komprimiert. Die einzige Alternative ist nur die Option "Beim Beenden Komprimieren" einzuschalten (dauerhaft), das macht aber keinen Sinn da es zu langsam wird.

Ich brauche jetzt quasi einen Befehl wie DoCmd.QuitAndCompress()

Gruss Ischte

Dafür gibt es keine in Access bereits vorhandene Funktion (außer die von dir schon beschriebene Variante):

s. Access-FAQ(Punkt 6.6)

Alle Alternativen sind "Krücken" um das Problem irgendwie zu umgehen, z.B.:

- Startmenü-Verknüpfung zum Komprimieren der Datenbank (Kommandozeilenparameter /compact - siehe Access-Hilfe)

- Eine 2. Access-Datenbank öffen, welche die aktuelle Datenbank schliesst, komprimiert und wieder öffnet

- Ein Access Add-In was diese Schritte erledigt.

- ....

Ich hoffe das hilft ein wenig..

Mal ne "Krücke" von mir :

DBEngine.CompactDatabase gewaehlter_name, datenbank_neue  

  'Komprimiert gewählte Datenbank( Variable gewaehlter_name) und 

  'speichert sie unter anderem Namen (Variable datenbank_neue)


Kill gewaehlter_name             'Alte Datenbank löschen

FileCopy datenbank_neue, gewaehlter_name  'Neue unter altem Namen kopieren

Kill datenbank_neue               'Neue Datenbank löschen

Das funktioniert aber nur mit anderen gewählten Datenbanken, nicht mit der, wo dieser Quelltext drinsteht, da du die gewählte Datenbank löschen musst.

Also als zusätzliches Tool vielleicht geeignet.

PS : Ich habe die Tabellen alle nur aus einer anderen Datenbank eingebunden, damit lokal nur mein Quelltext läuft, im Netz aber nur die entsprechenden Tabellen abgespeichert sind. Zu komprimieren ist dann nur die DB "im Netz" mit den Tabellen.