Supportnet / Forum / Datenbanken
Access 97 Dantenbank komprimieren
Frage
Hallo liebe Leute,
brauche noch mal eure Hilfe!
Ich habe eine relativ "dicke" Access97-Datenbank!
Über ein Makro lass ich einige Berechnungen laufen.
Access "bläht " sich ja dabei künstlich auf"!
Wenn die Berechnungen gelaufen sind, würde ich gerne die Datenbank automatisch kompremieren lassen!
Ich komme nicht mehr drauf, wie ich es in dem Makro einbinden kann!
Bitte helft mir!
gruss
pelle
Antwort 1 von Marie
CompactDatabase
Antwort 2 von Koebi
Hallo pelle
Schon mal in der Access-FAQ von donkarl geschaut?
Punkt 6.6
www.donkarl.com
@marie
CompactDatabase funktioniert nur mit geschlossenen Datenbanken.
Gruss
Köbi
Schon mal in der Access-FAQ von donkarl geschaut?
Punkt 6.6
www.donkarl.com
@marie
CompactDatabase funktioniert nur mit geschlossenen Datenbanken.
Gruss
Köbi
Antwort 3 von pelle
Hallo Marie,
hallo Köbi (gruss in die CH),
danke für eure Antworten!
Ich habe bisher nichts passendes gefunden;
auch nicht bei donkarl.com.
Nichts passendes heißt auch, wegen immer noch fehlender VBA Kenntnisse ( :-( ) evtl. Anpassungen nicht vornehmen zu können.
"Leichtere" Lösungsmöglichkeiten nur für aktuellere Versionen von Access gefunden, die aber unter der alten Access 97 Version nicht laufen.
Muß mich leider noch mit dieser Version "rumärgern"!
Hatte gehofft und hoffe noch, das mir jemand vielleicht eine Lösungsmöglichkeit anbieten kann,
die ich aus einem Makro heraus aufrufen kann.
Schön wäre es, wenn, wie schon beschrieben, das dies ablaufen könnte, ohne die Datenbank vorher schliessen zu müssen!
Vielleicht hat noch jemand eine Tipp für mich!
Würde mich sehr freuen!
gruss
pelle
hallo Köbi (gruss in die CH),
danke für eure Antworten!
Ich habe bisher nichts passendes gefunden;
auch nicht bei donkarl.com.
Nichts passendes heißt auch, wegen immer noch fehlender VBA Kenntnisse ( :-( ) evtl. Anpassungen nicht vornehmen zu können.
"Leichtere" Lösungsmöglichkeiten nur für aktuellere Versionen von Access gefunden, die aber unter der alten Access 97 Version nicht laufen.
Muß mich leider noch mit dieser Version "rumärgern"!
Hatte gehofft und hoffe noch, das mir jemand vielleicht eine Lösungsmöglichkeit anbieten kann,
die ich aus einem Makro heraus aufrufen kann.
Schön wäre es, wenn, wie schon beschrieben, das dies ablaufen könnte, ohne die Datenbank vorher schliessen zu müssen!
Vielleicht hat noch jemand eine Tipp für mich!
Würde mich sehr freuen!
gruss
pelle
Antwort 4 von pelle
@Köbi
noch ein Nachtrag:
zum donkarl Tipp:
Das aktuell sichtbar ist für den Ablauf (Makro) mein Problem!
gruss
pelle
noch ein Nachtrag:
zum donkarl Tipp:
Zitat:
Es gibt keinen eingebauten VBA-Befehl dafür. Für A97 bleibt daher als einfache Code-Lösung nur die Krücke mit
SendKeys "%xdk"
die den entsprechenden Menüpunkt aufruft. Dafür muss der Menüpunkt natürlich aktuell sichtbar sein.
Es gibt keinen eingebauten VBA-Befehl dafür. Für A97 bleibt daher als einfache Code-Lösung nur die Krücke mit
SendKeys "%xdk"
die den entsprechenden Menüpunkt aufruft. Dafür muss der Menüpunkt natürlich aktuell sichtbar sein.
Das aktuell sichtbar ist für den Ablauf (Makro) mein Problem!
gruss
pelle
Antwort 5 von Koebi
Hallo pelle
Du benötigst von dieser Seite
http://www.mvps.org/access/modules/mdl0020.htm
den Download mdbCompact.zip
Diese Datei enthält die mdbCompact.exe, welche Du in das gleiche Verzeichnis legst wie die Datenbank.
Dann kopiere folgenden Code in ein neues Modul:
Diesen Code kannst Du nun im Makro aufrufen mit
Aktion: AusführenCode
Funktionsname: sTestmdbCompact()
Bei mir funktioniert das. Sollte also auch im Dreiländereck klappen, ausser Du verwendest Access für Ostfriesen, ja dann....!
Gruss
Köbi
Du benötigst von dieser Seite
http://www.mvps.org/access/modules/mdl0020.htm
den Download mdbCompact.zip
Diese Datei enthält die mdbCompact.exe, welche Du in das gleiche Verzeichnis legst wie die Datenbank.
Dann kopiere folgenden Code in ein neues Modul:
Public Function sTestmdbCompact()
Dim x
Dim strFolder As String
strFolder = CurrentDBDir
x = Shell(strFolder & "mdbCompact.exe " & CurrentDb.Name, vbNormalFocus)
End Function
´Code courtesy of
´Terry Kreft
Function CurrentDBDir() As String
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
End Function
Diesen Code kannst Du nun im Makro aufrufen mit
Aktion: AusführenCode
Funktionsname: sTestmdbCompact()
Bei mir funktioniert das. Sollte also auch im Dreiländereck klappen, ausser Du verwendest Access für Ostfriesen, ja dann....!
Gruss
Köbi
Antwort 6 von pelle
Hallo Köbi,
besten Dank für deine Antwort!
Ich habe nur ein kleines Problem:
Bei mir läuft es nicht!
Ob es an dem Dreiländereck oder
an der fast ostfriesichen Abstammung oder
der Kombination liegt oder vielleicht der dritten und
einfachsten Konstellation meine Blindheit liegt, weiß ich nicht.
Der Code läuft nicht!
So sieht es aus:
http://www.netupload.de/detail.php?img=3ef68383ac157d192b0f1f1944c2...
Vielleicht kannst du mir noch mal auf die Sprünge helfen!
gruss
pelle
besten Dank für deine Antwort!
Ich habe nur ein kleines Problem:
Bei mir läuft es nicht!
Ob es an dem Dreiländereck oder
an der fast ostfriesichen Abstammung oder
der Kombination liegt oder vielleicht der dritten und
einfachsten Konstellation meine Blindheit liegt, weiß ich nicht.
Der Code läuft nicht!
So sieht es aus:
http://www.netupload.de/detail.php?img=3ef68383ac157d192b0f1f1944c2...
Vielleicht kannst du mir noch mal auf die Sprünge helfen!
gruss
pelle
Antwort 7 von Koebi
Ja, ich sag´s ja, immer diese Ausländer ..., mit Blindheit geschlagen!
Frage: Hast Du den Download in das Datenbankverzeichnis gelegt und hast Du die Datei auch entzippt?
Gruss
Köbi
Frage: Hast Du den Download in das Datenbankverzeichnis gelegt und hast Du die Datei auch entzippt?
Gruss
Köbi
Antwort 8 von pelle
Hallo Köbi,
das tut auch weh!
So direkt hättest du es ja auch nicht sagen müssen! :-)
Klar habe ich die Datei entzippt, aber muss ich :
a) die daraus entstandene exe ausführen
b) den Namen in deinem Code Testmdb anpassen?
Hinweis für die guten Schweizer:
a) habe ich nicht getan
b) habe ich mal ausprobiert; negativ
c) hat sich der Schweizer meine PDF angeguckt? :-)))
gruss
pelle
das tut auch weh!
So direkt hättest du es ja auch nicht sagen müssen! :-)
Klar habe ich die Datei entzippt, aber muss ich :
a) die daraus entstandene exe ausführen
b) den Namen in deinem Code Testmdb anpassen?
Hinweis für die guten Schweizer:
a) habe ich nicht getan
b) habe ich mal ausprobiert; negativ
c) hat sich der Schweizer meine PDF angeguckt? :-)))
gruss
pelle
Antwort 9 von Koebi
Hallo pelle
Ich entschuldige mich ja auch. Ich meinte nicht Dich, sondern die Auslän...., Ostfriesen und so. :-)
Ja, der Schweizer hat die PDF angesehen. Und eben deshalb bin ich auf die Frage wegen entzippen gekommen. Die Funktion scheint nämlich die mdbCompact.exe nicht zu finden, meine ich in meiner Naivität.
Ach ja, noch was: Das Modul darf irgendwie heissen, nur nicht gleich wie die Funktion.
Und sonst gibst Du mir vielleicht mal Deine email, dann schicke ich das, was bei mir funktioniert, und wir sehen mal, ob es auch nach dem Grenzübertritt auch auf Deinem PC läuft.
Meine Adresse: jahau(Affenschwanz)gmx.ch
Gruss
Köbi
Ich entschuldige mich ja auch. Ich meinte nicht Dich, sondern die Auslän...., Ostfriesen und so. :-)
Ja, der Schweizer hat die PDF angesehen. Und eben deshalb bin ich auf die Frage wegen entzippen gekommen. Die Funktion scheint nämlich die mdbCompact.exe nicht zu finden, meine ich in meiner Naivität.
Ach ja, noch was: Das Modul darf irgendwie heissen, nur nicht gleich wie die Funktion.
Und sonst gibst Du mir vielleicht mal Deine email, dann schicke ich das, was bei mir funktioniert, und wir sehen mal, ob es auch nach dem Grenzübertritt auch auf Deinem PC läuft.
Meine Adresse: jahau(Affenschwanz)gmx.ch
Gruss
Köbi
Antwort 10 von pelle
Hallo Köbi,
brauchst dich nicht entschuldigen, habe dich schon richtig verstanden!
Freue mich über deine Hilfestellung!
Hast auch Post!
Wohin, siehe Pager von dir!
Dein jahau... erinnert mich an ein Bild, von "dir" :-)
gruss
pelle
brauchst dich nicht entschuldigen, habe dich schon richtig verstanden!
Freue mich über deine Hilfestellung!
Hast auch Post!
Wohin, siehe Pager von dir!
Dein jahau... erinnert mich an ein Bild, von "dir" :-)
gruss
pelle
Antwort 11 von pelle
Hallo Köbi,
über so viele Länder entstehen auch im WWW mal Übermittlungsfehler / Verständigungsfehler!
Meine E-Mails an dich kommen zurück => unzustellbar!
Ist für dich untypisch, da du mir in der Vergangenheit schon öfter geholfen hast!
Schau mal bitte in deinen Pager!
Habe dort meine Addy hinterlegt!
Wäre schön wenn du mir mal wieder helfen könntest!
gruss
pelle
über so viele Länder entstehen auch im WWW mal Übermittlungsfehler / Verständigungsfehler!
Meine E-Mails an dich kommen zurück => unzustellbar!
Ist für dich untypisch, da du mir in der Vergangenheit schon öfter geholfen hast!
Schau mal bitte in deinen Pager!
Habe dort meine Addy hinterlegt!
Wäre schön wenn du mir mal wieder helfen könntest!
gruss
pelle
Antwort 12 von Koebi
Ich fliege, ich eile.....ächz.
Meine frühere Adresse stimmt halt nicht mehr. Aber das Mail an Dich samt Anhang ist unterwegs.
Gruss
Köbi
Meine frühere Adresse stimmt halt nicht mehr. Aber das Mail an Dich samt Anhang ist unterwegs.
Gruss
Köbi
Antwort 13 von pelle
Hallo Köbi,
habe deine Mail erhalten!
Vielen Dank!!!!!!!!!!!!!!!!!!!!
Ich lege mich jetzt auch mal aufs Ohr und wünsche dir eine angenehme Nachtruhe!
Ich werde dir klar auf deine Hilfestellung Antwort geben und sie für evtl andere Interessierte auch sie hier einstellen!
Falls es diese Woche nicht mehr "klappt" seht es mir aus bestimmten Gründen nach!
gruss
pelle
Ps:
@Köbi
die Schweizer sind nicht nur für ihre Franken gut!!!
(Soll ein Kompliment sein)
habe deine Mail erhalten!
Vielen Dank!!!!!!!!!!!!!!!!!!!!
Ich lege mich jetzt auch mal aufs Ohr und wünsche dir eine angenehme Nachtruhe!
Ich werde dir klar auf deine Hilfestellung Antwort geben und sie für evtl andere Interessierte auch sie hier einstellen!
Falls es diese Woche nicht mehr "klappt" seht es mir aus bestimmten Gründen nach!
gruss
pelle
Ps:
@Köbi
die Schweizer sind nicht nur für ihre Franken gut!!!
(Soll ein Kompliment sein)
Antwort 14 von Marie
DBEngine.CompactDatabase stmdbName, stNewName
:-))) sagt ichs doch. :-))
Hast Du vb5 drauf oder die Runtimedateien???
:-))) sagt ichs doch. :-))
Hast Du vb5 drauf oder die Runtimedateien???