peter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
  • peter von Access DB komprimieren vom 12.07.2002 - 18:56:35
nach unten

Betrifft: peter
von: Access DB komprimieren
Geschrieben am: 12.07.2002 - 18:56:35

Ich führen mittels Excel eine Datenbankabfrage in einer Access-Datenbank durch.
Ist es aus Excel heraus möglich, die Access DB nach dem Ende der Abfrage wieder zu komprimieren?

nach oben   nach unten

Komprimieren
von: MRR
Geschrieben am: 13.07.2002 - 07:20:34

Hallo Peter (?)
erzeuge für den folgenden Code noch einen Verweis auf die DAO-Bibliothek:

Sub Komprimieren()
Dim Datei As String, Suffix As String
Datei = "G:\test"
Suffix = ".mdb"
DBEngine.CompactDatabase Datei & Suffix, Datei & "comp" & Suffix
Kill Datei & Suffix
Name Datei & "comp" & Suffix As Datei & Suffix
MsgBox "Die Datenbank " & Datei & Suffix & " wurde komprimiert!", vbOKOnly + vbInformation, "Komprimierung abgeschlossen"
End Sub

HTH, Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "falscher Dateiname"