Hallo Wolfram, hallo acco,
aus dem Grunde steht in der Beispieldatenbank auch die Erweiterung, die ich auch hier im Formul aus den Diskussionen aufgegriffen habe:
Code: Alles auswählen
SUB Daten_aus_Cache_schreiben
REM Schreibt die Daten aus der Tabelle auch während der Laufzeit von Base direkt auf die Platte.
DIM oDaten AS OBJECT
DIM oDataSource AS OBJECT
oDaten = ThisDatabaseDocument.CurrentController
IF NOT ( oDaten.isConnected() ) THEN oDaten.connect()
oDataSource = oDaten.DataSource
oDataSource.flush
END SUB
SUB Backup_sofort
Daten_aus_Cache_schreiben
Datenbankbackup
END SUB
Die *.odb-Datei wird ja erst beim Abspeichern verändert geschrieben. Soll also während der geöffneten Datei ein Backup gemacht werden, so muss zuerst der temporäre Inhalt in die *.odb-Datei übertragen werden. Das macht "Daten_aus_Cache_schreiben".
Gruß
Robert