Clear all records from a table automatically

[Roosters]

Thank you MichaelRed for solving my last problem of automating the import of data from Excel. It works fine but now I have the problem that the previous data is retained - I need to delete all records from my table via code before impoting the new data.

 

[Guest_imported]

try

docmd.runSQL "Delete * from [mytable]"

or

create a stored delete query and call it like so

sub cleartable()
dim qdf as querydef
set qdf=currentdb().querydefs("MyDelete&quot
qdf.execute
set qdf = nothing
end sub

 

[Mongooses]

Here's one approach of many

Dim rsAnyName as Recordset
Set rsAnyName.OpenRecordset("DELETE * From [TableName]&quot
rsAnyName.Close

HTH,
JC