Delete Records

[γιώργοςΚ]

Καλημέρα σε όλους,

Γνωρίζει κάποιος φίλος απο το φόρουμ εάν υπάρχει κάποιος τρόπος με κάποια εντολή vba ίσως να σβύστουν όλα τα records απο ένα πίνακα, εκτός απο το πρώτο record?

φιλικά

[Meteora]

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

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

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

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

[γιώργοςΚ]

Καλημέρα Νίκο,

σε ευχαριστώ πάρα πολύ για την βοήθεια.!! Αυτό ακριβώς ζητούσα.

Νάσαι καλά

Με εκτίμηση