Clearing table

KEV999

Is there a clever way of enabling a user to clear all data from a table by simply clicking a button on a form?
At present I'm doing it a rather clumsy and unreliable way using macros to -
Transferdatabase (importing to a new temporary table)
Transferdatabase (exporting the structure back)
Deleteobject (deleting temporary table)
There must be a better way!
Thanks.
Kev

DonRayner

Quote:

Originally Posted by KEV999

Is there a clever way of enabling a user to clear all data from a table by simply clicking a button on a form?
At present I'm doing it a rather clumsy and unreliable way using macros to -
Transferdatabase (importing to a new temporary table)
Transferdatabase (exporting the structure back)
Deleteobject (deleting temporary table)
There must be a better way!
Thanks.
Kev

Why not try a delete query

KEV999

Thanks for the reply.
Could you expand a bit on what you mean please?
(I'm very new to this!)
Thanks.
Kev

DonRayner

Quote:

Originally Posted by KEV999

Thanks for the reply.
Could you expand a bit on what you mean please?
(I'm very new to this!)
Thanks.
Kev

In the On Click event for your button you need to put something like the following. Replace MyTable with the name of the table you want to delete all the records from.

Expand|Select|Wrap|Line Numbers

 
DoCmd.SetWarnings = False

Dim SqlStr as string

SqlStr = "Delete[MyTable].* From [MyTable]"

DoCmd.RunSql SqlStr

DoCmd.SetWarnings = True

If you are not comfortable with VBA then you will have to create the delete query using the access query builder. Just make it like you were creating a normal select query. Then before you save it you need to select Delete Query from the Query menu on the menu bar and then save it. You can then use whatever means your comfortable with to run the query.