[Meteora]

Καλημέρα ...
Μπορείς να δοκιμάσεις τον κώδικα:

Private Sub btndelete_Click()
With CurrentDb.OpenRecordset("name_table", 2)
        .MoveNext
       Do While Not .EOF
            .Delete
            .MoveNext
        Loop
end with
End Sub

Όμως!
Κράτησε backup, διότι στις διαγραφές αναίρεση δεν υπάρχει.

Με εκτίμηση
Νίκος