Office: (Office 2007) Komprimieren per vba

hallo,

unter XP habe ich mit

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

meine datenbank per vba komprimiert.... unter a07 klappt das nicht mehr, da es ja das menü nicht mehr gibt...
gibt es inzwischen einen "direktbefehl", oder wie komme ich an den entsprechenden eintrag im office-button?

danke

:)

 

Ich glaub den "Direktbefehl" gab es bereits unter Ac97. *wink.gif* (Das funktioniert aber nicht mit der aktuell geöffneten DB.)
Code:

BTW: Es wundert mich, dass du mit Google & Co. nichts zu diesem Thema gefunden hast.

 

hallo.

deshalb gehe ich den weg. es ist die aktuell geöffnete, die ich komprimieren muss

 

www.donkarl.com?FAQ6.6 kennst du?

 

\@atrus2711:
ja, ist aber nur für alles vor 2007... so habe ich es ja gemacht. aber wie geht es unter 2007?

 

Das Problem ist, dass das Komprimieren ein Schließen erfordert.... die DB kann sich also nicht selbst komprimieren.

Du könntest aber den VBA-Code in einer anderen Datenbank ausführen lassen, oder vielleicht sogar in einem Add-In. Halt irgendwas, was außerhalb der aktuellen Datenbank läuft.

Notfalls über eine Batch oder ein VBS-Script.

PS: Die aktuelle DB komprimieren - wenn das sauber in Frontend und backend getrennt ist, sollte das nicht nötig sein. Das Frontend sollte sich eh regelmäßig neu vom Netz holen, und das Backend komprimieren ist Adminsache.

 

hallo,

soweit ist mir das klar. ich bin hier im backend. aber ich brauche einen wartungsintervall.....

die db soll ja geschlossen werden. über das menü "schließen und reparieren" öffnet er sich anschließend auch wieder...
man könnte auch nur über ein schließen komprimieren, aber ich muss anschließend mit meinen "wartungsarbeiten" weitermachen.

ich möchte/muss diesen menüpunkt ausführen....

es muss doch möglich sein, per vba auf die punkte des office-button zuzugreifen... egal, ob ich das komprimieren aufrufe, oder einen anderen punkt.

 

[OT]

Du programmierst im BE? Ich würde eine Wartung eher mit einer zusätzlicher Anwendung oder über ein VB-Skript laufen lassen. Dann kannst du auch nach dem Komprimieren mit der Codeausführung fortfahren und musst nicht "von vorne" starten.

 

hallo,

es ist nicht in dem sinne ein BE, wie ihr das meint.....

mir geht es doch nur darum, wie ich per VBA den befehl aus dem office-button starten kann....

ich bin mir sicher, das für unsere belange das konstrukt richitg ist.... ich muss in der db daten aktualisieren und da die db zu groß wird in einem zwischenschritt komprimieren, damit ich anschließend wieder anfügen kann. und über eine externe datenbank ist es umständlicher festzustellen, wann die komprimierung beendet ist, um weiterzumachen....

kann mir denn keiner sagen, wie ich an den befehl komme???

 

"Knöpfchen drücken per Quasi-Fernsterung" ist kein guter Ansatz. Wer weiß, vielleicht ist der "erste Befehl von oben" nicht immer der gewünschte... Aber du könntest vielleicht mit der scheußlichen Krücke Sendkeys "%DWK" arbeiten. Ich kann aber nur davor warnen; das ist wie tippen, ohne auf den Bildschirm zu gucken oder Fliegen nach reiner Instrumentenlage (Ich sag nur Airbus).

Das Anliegen (Komprimieren als Zwischenschritt) scheint mir insgesamt bedenklich. Komprimieren ist nicht nur reine Kosmetik!

Du könntest die Zwischentabelle, die du da offenbar nutzt, in eine externen temporären Datenbank anlegen. Diese temporäre Datenbank kann gelöscht werden, sobald sie ihren Dienst getan hat.

Solltest du keine temp. Tabellen nutzen, dass hast du scheinbar eine Datenmenge, die eh zu groß für Access ist. Wie wärs denn dann mit einer richtigen Datenbank?

 

[vielleicht OT - möglicherweise aber auch die Ursache für die Problemumgehung der Problemumgehung *biggrin.gif*]

Aktualisiert du die Daten möglicherweise über ein Recordset-Gemurks (recordset.edit & Co)?
Das kann es nämlich schnell passieren, dass beim Ändern von Textfeldern die DB stark vergrößert wird.
Wenn man SQL (Update-Anweisung) statt Recordset.edit verwendet, wächst die DB viel weniger.

Und falls du Daten nur temporär speicherst, könntest du diese in eine extra Temp-Db auslagern.

 

hallo josef,

die sendkeys variante finde ich auch unglücklich... aber

CommandBars("Menu Bar").Controls("Extras").Controls("Datenbank-Dienstprogramme").Controls("Datenbank komprimieren und reparieren...").accDoDefaultAc

spricht ja eindeutig die menüpunkte an....

ich weiss nur nicht, welche bezeichnung unter vba der office-button hat...
es ist je kein command bar...

...und ja, ich habe sehr große datenmengen, die aktualisiert werden und über eine "ricvhtige" sql-db wäre es einfacher.... aber geht halt nicht... ist auch egal.

ich bin unabhängig von der größe meiner db daran interessiert zu erfahren, wie ich per vba die button-punkte ansprechen kann. egal ob der aktuelle fall für jemand anderen sinnvoll oder nachvollziehbar ist.