[Tasos]

Καλησπέρα Πάνο!
Για να περάσεις τα δεδομένα του πίνακα "DataTable" στον πίνακα "OldDataTable"
και κατόπιν να τα διαγράψεις από τον πρώτο, μπορείς να χρησιμοποιήσεις το παρακάτω:

Sub test()
     With CurrentDb
         .Execute "INSERT INTO OldDataTable SELECT DataTable.* FROM DataTable"
         .Execute "DELETE DataTable.* FROM DataTable"
     End With
 End Sub

Και οι δύο πίνακες πρέπει να έχουν την ίδια δόμηση δεδομένων.

Φιλικά

Τάσος