VBA-Beispiel 042
mail schreiben
mail schreiben

Datenbank löschen / Access

Löscht eine Datenbank. Die Datenbank wird NICHT in den Papierkorb geschoben sondern "vollständig" gelöscht.

Hinweis:
Damit die Prozedur funktioniert, müssen Sie im Editor unter Extras/Verweise zwei Verweise setzen:

  • Microsoft DAO 3.6 Object Library
  • Microsoft Office 9.0 Object Library

Dies gilt für Office 2000. Andere Versionen haben entsprechend andere Versionsnummern.
Option Explicit
Const Datei As String = "C:\Eigene Dateien\vba sql.mdb"

Sub Kill_DB()
Dim Antwort As Integer
'ganze DB löschen
On Error GoTo Fehler

Antwort = MsgBox("soll die Datei:" & vbNewLine & vbNewLine _
                & Datei & vbNewLine & vbNewLine _
                & "gelöscht werden?", vbYesNo, "")

If Antwort = 6 Then
    Kill Datei
    MsgBox "Datei test.mdb gelöscht", , ""
End If

Exit Sub

Fehler:
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
        & "Beschreibung: " & Err.Description _
       , vbCritical, "Fehler aufgetreten"

End Sub

Download:   vba041 042 043 db.zip