[Tasos]

Καλησπέρα Νίκο και Γιώργο!

Μπορούμε να το κάνουμε και έτσι:

Sub test()
    CurrentDb.Execute "INSERT INTO [tbldanio] ( [imeraarxi] ) SELECT Date() AS TheDate FROM [tbldanio]", dbFailOnError
End Sub

Το CurrentDb.Execute είναι κατά πολύ γρηγορότερο από την εντολή RunSQL.

Φιλικά

Τάσος