Access Steuerung aus Excel-VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hans-Jürgen,
ich weiß nicht, ob ein und dieselbe DB per SQL-Code komprimiert werden kann.
Die Möglichkeit, eine Access-Datei von Excel aus zu komprimieren gibt es aber schon. Leider habe ich mich schon länger nicht mehr damit beschäftigt. Deshalb nur mal einen (vielleicht auch schon ausreichender) Code-Schnipsel als Anregung für Dich. Ansonsten google mal nach DBEngine.CompactDatabase.

Sub Komprimiere()

  Dim accApp As Object, Quellpfad As String, Zielpfad As String

  Set accApp = CreateObject("ACCESS.Application")

  Quellpfad = "C:\\MeineDB.mdb"                         'unkomprimiert

  Zielpfad = Replace(Quellpfad, ".mdb", "_Komp.mdb")    'komprimiert

  If Dir$(Zielpfad) &LT;&GT; "" Then Kill Zielpfad            'Ggf schon vorhandene Ziel-Datei löschen

  accApp.DBEngine.CompactDatabase Quellpfad, Zielpfad ', "; Pwd =VOLTI", , "; Pwd =VOLTI"

  If Dir$(Zielpfad) &LT;&GT; "" Then

    If Dir$(Quellpfad) &LT;&GT; "" Then Kill Quellpfad        'Alte Quell-Datei löschen

    Name Zielpfad As Quellpfad                          'Neue Datei in alte Datei umbenennen

  End If

  Set accApp = Nothing

End Sub

viele Grüße
Karl-Heinz

Hallo Karl-Heinz,
wow, vielen Dank, mit dem Schlüsselwort "DBEngine.CompactDatabase" komme ich schon weiter.
Ich habe mal die Existenzprüfung aus deinem Beispiel rausgelassen. In der bestehenden globalen Variablen strDBPfad ist der Pfad zur Datenbank, in strPasswort ist das Passwort.
Für die Angabe des Ziels habe ich erstmal den Dateinamen um ein x ergänzt. (das mit dem "killen" mache ich dann später)

Dim accApp As Object
Dim stemp As String
stemp = Replace(strDBPfad, ".accdb", "x.accdb")
Set accApp = CreateObject("Access.Application")
'accApp.OpenCurrentDatabase strDBPfad, , strPasswort
accApp.DBEngine.CompactDatabase strDBPfad, stemp, strPasswort
accApp.CloseCurrentDatabase
Set accApp = Nothing

Der Open-Befehl klappte (auch mit dem Passwort). Access hat eine temporäre Datei erstellt. Ich habe den Befehl auskommentiert, weil ich beim CompactDatabase-Befehl die Aussage bekomme, dass jemand anderes die Datei schon geöffnet hat.
Macht nichts, dachte ich, klappt vielleicht auch ohne. Hätte es auch fast, aber leider nimmt er mit in der oben genannten Variante das Passwort nicht. ("Kein zulässiges Passwort").
Habe irgendwo eine Referenz gefunden, nach der vorher noch "pwd=" stehen muss, damit klappte es auch nicht.
Vielen Dank für die Unterstützung!
Hans-Jürgen

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread