Datenbank (Access 97) automatisch komprimieren

08/01/2008 - 09:06 von Lisa Glonegger | Report spam
Hallo zusammen,
ich hàtte eine Frage bezüglich Datenbankkomprimierung:

Der Prozess làuft folgendermaßen ab:
1. Die Datenbank (Access 97) wird geöffnet,
2. Es wird VBA Code gestartet
3. Nun soll, nachdem der VBA Code abgearbeitet ist, die DB komprimiert
und geschlossen werden. Das habe ich mit folgendem Code schon fast
erreicht:

CommandBars("Menu Bar"). _
Controls("Extras"). _
Controls("Datenbank-Dienstprogramme"). _
Controls("Datenbank komprimieren"). _
accDoDefaultAction

Leider kommt immer ein Fenster, in welchem man die Datenbank unter
neuen Namen speichern soll.
Wie kann ich das umgehen, also dass er einfach die Komprimierung
durchführt und dann die DB schließt? Leider gibts bei Access 97 ja die
Funktion "Beim Schließen komprimieren" nicht.

Hat jemand ne andere Idee? Gibt es evtl eine Befehlszeile wie
"Application.SetOption "Auto Compact", True", welche ich für Access 97
"beim schließen" verwenden kann?
SendKeys "%xdk" soll ja nicht empfehlenswert sein ...


Vielen Dank und viele Grüße,
Elisabeth
 

Lesen sie die antworten

#1 Jörg Ackermann
08/01/2008 - 09:30 | Warnen spam
Hallo,

Lisa Glonegger meinte:

Hallo zusammen,
ich hàtte eine Frage bezüglich Datenbankkomprimierung:

Der Prozess làuft folgendermaßen ab:
1. Die Datenbank (Access 97) wird geöffnet,
2. Es wird VBA Code gestartet
3. Nun soll, nachdem der VBA Code abgearbeitet ist, die DB komprimiert
und geschlossen werden. Das habe ich mit folgendem Code schon fast
erreicht:

CommandBars("Menu Bar"). _
Controls("Extras"). _
Controls("Datenbank-Dienstprogramme"). _
Controls("Datenbank komprimieren"). _
accDoDefaultAction

Leider kommt immer ein Fenster, in welchem man die Datenbank unter
neuen Namen speichern soll.
Wie kann ich das umgehen, also dass er einfach die Komprimierung
durchführt und dann die DB schließt? Leider gibts bei Access 97 ja die
Funktion "Beim Schließen komprimieren" nicht.

Hat jemand ne andere Idee? Gibt es evtl eine Befehlszeile wie
"Application.SetOption "Auto Compact", True", welche ich für Access 97
"beim schließen" verwenden kann?
SendKeys "%xdk" soll ja nicht empfehlenswert sein ...



Schau mal da:
http://www.mvps.org/access/modules/mdl0020.htm

Gruß

Ähnliche fragen