Supportnet / Forum / Datenbanken
Im Formular alle Datensätze löschen
Frage
Hallo,
nochmal ich,
möchte in einem Formular alle Datensätze mit einem Button löschen.
Bin Laie, kann mir jemand helfen?
Danke schon mal,
Gruss
nogger
Antwort 1 von har
Hi
Geh mal hier rechts unten auf Suche im Forum und als Suchbegriff wähle Datensätze löschen oder so ähnlich, da ist alles für dich dabei :-)
Harald
Geh mal hier rechts unten auf Suche im Forum und als Suchbegriff wähle Datensätze löschen oder so ähnlich, da ist alles für dich dabei :-)
Harald
Antwort 2 von har
Oder besser,
In geöffnetem Access die Hilfe (F1?) aufrufen und dort nach Datensätze löschen suchen
Harald
In geöffnetem Access die Hilfe (F1?) aufrufen und dort nach Datensätze löschen suchen
Harald
Antwort 3 von Marie
Also hast du das nicht kapiert, was Du bereits als Antwort bekommen hast oder was?
Du erstellst eine Löschabfrage, wie die aussieht habe ich dir schon geschrieben. Und hinter den Button machst Du ein ereignis bei Klick und da rufst du dann die Löschabfrage auf.
Oder aber ohne Löschabfrage direkt mit Code löschen, falls Du das hinkriegst:
Private Sub DeinButton_Click()
Dim dbs As DAO.Database
Dim SQL As String
On Error GoTo Err_DeinButton_Click
Set dbs = CurrentDb
SQL = "DELETE tblDeineTabelle.* FROM tblDeineTabelle"
dbs.Execute SQL, dbFailOnError
dbs.Close
Set dbs = Nothing
Exit_DeinButton_Click:
Exit Sub
Err_DeinButton_Click:
msgbox err.Description, , "Fehler Nr.: " & cstr(err) & " in Sub DeinButton_Click"
Resume Exit_DeinButton_Click
End Sub
Gruß Marie
Du erstellst eine Löschabfrage, wie die aussieht habe ich dir schon geschrieben. Und hinter den Button machst Du ein ereignis bei Klick und da rufst du dann die Löschabfrage auf.
Oder aber ohne Löschabfrage direkt mit Code löschen, falls Du das hinkriegst:
Private Sub DeinButton_Click()
Dim dbs As DAO.Database
Dim SQL As String
On Error GoTo Err_DeinButton_Click
Set dbs = CurrentDb
SQL = "DELETE tblDeineTabelle.* FROM tblDeineTabelle"
dbs.Execute SQL, dbFailOnError
dbs.Close
Set dbs = Nothing
Exit_DeinButton_Click:
Exit Sub
Err_DeinButton_Click:
msgbox err.Description, , "Fehler Nr.: " & cstr(err) & " in Sub DeinButton_Click"
Resume Exit_DeinButton_Click
End Sub
Gruß Marie
Antwort 4 von nogger
Danke Marie, aber dumm bin ich nicht!
Antwort 5 von Adik
Hat Marie auch nicht gesagt!

