Forum - Delete Records

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Delete Records (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3182-delete-records.html)

γιώργοςΚ

01-06-14 13:12

Delete Records

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

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

φιλικά

Meteora

01-06-14 14:24

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

Κώδικας:

Private Sub btndelete_Click()

With CurrentDb.OpenRecordset("name_table", 2)

        .MoveNext

       Do While Not .EOF

            .Delete

            .MoveNext

        Loop

end with

End Sub

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

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

γιώργοςΚ

02-06-14 02:44

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

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

Νάσαι καλά

Με εκτίμηση

Η ώρα είναι 14:35.

Search Engine Optimization by vBSEO 3.3.2