Office: (Office 2010) Unter Access 2010 per VBA die akt. Datenbank kompr. u. rep.

tschroeder · 4. Juli 2011

Hallo Leute,

ich habe hier ein Problem:

Ich setze seit ein paar Tagen MS-Access 2010 ein (und kann auch nicht zurück, leider leider ...).
Nun möchte ich aus dem VBA-Programmcode zwei Befehle absetzen:

_________________________________________

Punkt 1:

Befehl "Datenbank Komprimieren und reparieren" der
aktuell geöffneten Datenbank (Frontend der Anwendung).

_________________________________________

Punkt 2:

Befehl "Datenbank Komprimieren und reparieren" einer
anderen Datenbank (Backend der Anwendung).

_________________________________________

Punkt 2 habe ich gerade getestet.
Funktioniert super (siehe FAQ6VBA).

Bei Punkt 1 komme ich überhaupt nicht weiter.
Die Beispiele bei DONKARL gelten für die Versionen 97, 2000, XP, 2003 (siehe FAQ6VBA).

Es ist so:

Ich möchte das Komprimieren und reparieren manuell starten (aus dem VBA-Code) und zwar an verschiedenen Stellen in der Anwendung.

Was ich bereits programmiert habe, ist, zu untersuchen, ob ich allein im Frontend bin.
Überprüfe zu diesem Zweck die *.ldf. Klappt auch prima.

Aber wie geht's weiter?

Mit SendKeys habe ich es auch probiert. Geht auch nicht.
Hat jemand einen Tipp für mich?

Ich glaube, dieses Thema (Komprimieren und reparieren der aktuell geöffneten Datenbank) wird häufig in Foren nachgefragt.
Aber die Betroffenen arbeiten alle mit älteren Access-Versionen und können auf die Lösungen bei DONKARL zurückgreifen.

Freue mich über Ideen/Anregungen/Lösungen.

Gruß aus Stuttgart

Thomas

:)

Andre.Heisig · 6. Juli 2011

Code:

'**************** Code Start **************
' FUNKTION: komprimiert das Backend, sofern möglich (Zugriff)
' und Schwellgrösse erreicht.
' AUFRUF: BackendKomprimieren "Pfad_und_Name_der_zu_komprimierenden.mdb"
' VERWENDUNG: Exit-Button Hauptmenu

Public Sub Datenbank_BackendKomprimieren(BackendFile As String, maxMegaByte As Double)
On Error GoTo Err_BackendKomprimieren

DoCmd.Hourglass True

Dim strFile As String
Dim varDummyPath As Variant
Dim varDummyFile As Variant
strFile = Dir(BackendFile)
varDummyPath = Left$(BackendFile, Len(BackendFile) - Len(strFile))
varDummyFile = varDummyPath & "YXZ_TEMP.MDB"

If FileLen(BackendFile) > maxMegaByte * 1024 * 1024 Then
DBEngine.CompactDatabase BackendFile, varDummyFile
Kill BackendFile
Name varDummyFile As BackendFile
End If

Exit_BackendKomprimieren:
DoCmd.Hourglass False
Exit Sub

Err_BackendKomprimieren:
Select Case Err.Number
Case 3005, 3024, 53, 3044, 76
'MsgBox "Backend konnte nicht gefunden werden.", vbOKOnly
Case 3196, 3356
'MsgBox "Backend wird zur Zeit verwendet.", vbOKOnly
Case Else
MsgBox "Ausnahme Nr. " & Err.Number & " => " & Err.Description
End Select
Resume Exit_BackendKomprimieren
End Sub
'**************** Code End **************

'**************** Code Start **************
' FUNKTION: Automatisches Komprimieren des Frontends
' beim Schliessen, wenn angegebene Dateigrösse erreicht.
' VERWENDUNG: HAUPTMENU und TIMEOUT.
Public Sub Datenbank_FrontendKomprimieren(FrontendFile As String, maxMegaByte As Double)
On Error GoTo Err_FrontendKomprimieren

DoCmd.Hourglass True
If FileLen(FrontendFile) > maxMegaByte * 1024 * 1024 Then
Application.SetOption ("Auto Compact"), True
End If
DoCmd.Hourglass False

Exit_FrontendKomprimieren:
Exit Sub

Err_FrontendKomprimieren:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_FrontendKomprimieren

End Sub
'**************** Code End**************
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufruf (bei mir am Exit-Button der Applikation)

Code:

Call Datenbank_FrontendKomprimieren(CurrentDb.name, 10)

Call Datenbank_BackendKomprimieren("\\share\Backend.mdb", 20)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... funktioniert in Access 2000 / 2003 einwandfrei, ist vielleicht einen Test wert.

Thomas Möller · 6. Juli 2011

Hallo Thomas,

von tschroeder

Ich glaube, dieses Thema (Komprimieren und reparieren der aktuell geöffneten Datenbank) wird häufig in Foren nachgefragt.
Aber die Betroffenen arbeiten alle mit älteren Access-Versionen und können auf die Lösungen bei DONKARL zurückgreifen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich habe hier einiges zum Thema Komprimieren zusammengetragen:
http://www.team-moeller.de/?Tipps_un...n_komprimieren

Vielleicht findest Du ja noch die eine oder andere Anregung.

CU

tschroeder · 7. Juli 2011

Hallo Andre, Hallo Thomas,

vielen Dank für Eure Infos.

Bin jetzt gleich mehrere Schritte vorangekommen.
Es klappt, und zwar bei beiden Dateien - Frontend und Backend.

Gruß aus Stuttgart

Thomas

Thomas Möller · 8. Juli 2011

Hallo Thomas,

Gruß aus Stuttgart
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich hätte eher realsieren sollen, dass Du aus Stuttgart kommst - dann hätte ich Dich nämlich zum gestrigen Access-Stammtisch eingeladen. Details findest Du bei Interesse hier:
http://access-stammtisch.de/?page_id=56

Vielleicht sieht man sich ja mal.

Grüße

Office: (Office 2010) Unter Access 2010 per VBA die akt. Datenbank kompr. u. rep.

Unter Access 2010 per VBA die akt. Datenbank kompr. u. rep.

Unter Access 2010 per VBA die akt. Datenbank kompr. u. rep.

Unter Access 2010 per VBA die akt. Datenbank kompr. u. rep.

Unter Access 2010 per VBA die akt. Datenbank kompr. u. rep. - Similar Threads - Access 2010 VBA

Abfrage mit den jüngsten Einträgen erstellen

Access to SQL Server

Acces FrontEnd und MS SQL-Server als BackEnd

Access 2010 Web-Datenbanken – Roadmap

Access 2010 - Vba Verschachtelte If Anweisung

Prozedur beim öffnen eines Formulars ausführen

Mitarbeiterabrechnung mit Zuschlag -Access 2010