How to Delete/Overwrite a Table based on its Creation Date using code 1

[Binnit]

I would like to check the date a table was created using code so that it can be deleted or overwritten as required.

I imagine it would be something like:-

If MyTable.CreatedDate<=#01/07/06# then
Docmd.DeleteObject MyTable
Endif

Any guidance appreciated.







If IT ain’t working Binnit and Reboot

 

[mp9]

If DCount("*","MSysObjects","Name='MyTable' AND Type=5 AND DateCreate <= #01/07/06#)= 1 then Docmd.DeleteObject MyTable

http://www22.brinkster.com/accessory/

 

[mp9]

Oops, missed end-quote:

If DCount("*","MSysObjects","Name='MyTable' AND Type=5 AND DateCreate <= #01/07/06#")= 1 then Docmd.DeleteObject MyTable

http://www22.brinkster.com/accessory/

 

[PHV]

Why not simply use this property ?
CurrentDB.TableDefs("MyTable").DateCreated

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mp9]

True enough, it'll give you the same thing.

http://www22.brinkster.com/accessory/

 

[Binnit]

Thanks MP9 & PHV for your replies, I have to agree that PHV's option is minimalist and produces the goods.

Always good to have an alternative though.

If IT ain’t working Binnit and Reboot