Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.

Share this Page URL
Help

18 Installation, Betrieb und Wartung > 18.6Sichern von Access-Datenbanken - Pg. 934

Kapitel 18 Installation, Betrieb und Wartung Public Function VerknuepfungenPruefen(strTabellen() As String) As Boolean Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb On Error Resume Next For i = LBound(strTabellen()) To UBound(strTabellen()) Set rst = db.OpenRecordset(strTabellen(i)) If Err.Number = 3024 Then VerknuepfungenPruefen = False rst.Close Next i End Function Listing 18.5: Prüfen, ob alle verknüpften Tabellen vorhanden sind 18.6 Sichern von Access-Datenbanken Ein für Access-Entwickler sehr heikles Thema ist das Sichern von Access-Datenbanken. Das Problem ist, dass sich wie bei vielen anderen Datenbanksystemen eine Sicherung im laufenden Betrieb nicht realisieren lässt ­ zumindest nicht mit der Sicherheit, dass Ihnen im Fall der Fälle ein hundertprozentig funktionsfähiges Backup der Daten bank-