Delete all records in a table?

[bob646]

I want to place code in a click event to delete all records in a table but keep the table for new records. DELETE * FROM Employees WHERE Title = 'Trainee'; seems to have trouble with the asterisk.

[gary84]

Dim db As dao.Database
Set db = CurrentDb()
db.Execute "Delete * From [" & TableName & "]"
Set db = Nothing