I'm sure there is a VBA approach to this, but you could also make a macro with 6 lines in it.
Make a new Macro and use the following:
SetWarnings = No
OpenTable = table you want to remove all records from
RunCommand = SelectAllRecords
RunCommand = DeleteRecord
Close = choose table and specify table you just opened
SetWarnings = Yes
After the macro is made, make a command button and assign the macro to it.
No need to use a query to do this.
Good luck