VBA help needed to deleted all records except last record from a table

Hi Folks,

I need a VBA code to delete all records except last record from table named "Test" (Filed "E_ID" is primary key with auto number). i.e If I have set of records "E_ID" 1 to 10 then I want the code to delete all records of "E_ID" 1 to 9, just keep "E_ID" 10.


Is it possible? please help me.

Thanks,
Joshi

Try this.

DELETE * FROM Test WHERE E_ID<>(SELECT MAX(E_ID) FROM Test)