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

Many thanks, it worked just as I wanted it to!