Quick Clearing of Access Data

verpit
verpit used Ask the Experts™
on
Is it possible to quickly clear all data in an Access Database without having to delete records on a table-by-table basis?
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®

Commented:
Issue the following query:
TRUNCATE <table_name>
Top Expert 2010

Commented:
Hello CCongdon,

1) Access does not support TRUNCATE

2) Even if it did, you would still have to issue that statement on a table-by-table basis

Regards,

Patrick
Top Expert 2010
Commented:
verpit said:
>>Is it possible to quickly clear all data in an Access Database without having to delete records on a table-by-table basis?

No, you would have to do it on a table-by-table basis.  The process can be scripted in VBA, though; here
is a routine I use to "purge" all records from all tables whose names start "tmp":

    Dim td As DAO.TableDef

    With DoCmd
        .SetWarnings False
        For Each td In CurrentDb.TableDefs
            If td.name Like "tmp*" Then .RunSQL "DELETE * FROM [" & td.name & "]"
        Next
        .SetWarnings True
    End With
Ensure you’re charging the right price for your IT

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!

Author

Commented:
Excellent!   so mine would look like the below pasted code?   Where and how do I put it into my database?

    Dim td As DAO.TableDef
 
    With DoCmd
        .SetWarnings False
        For Each td In CurrentDb.TableDefs
            If td.name Like "tbl*" Then .RunSQL "DELETE * FROM [" & td.name & "]"
        Next
        .SetWarnings True
    End With

Open in new window

Top Expert 2010

Commented:
Looks OK to me...

Author

Commented:
Where and how do I put it into my database?
Top Expert 2010

Commented:
verpit,

Depends on how you use it.  The last time I used it, the front-end used a Switchboard for navigation, and
I modified the code Microsoft plugs in for the "close the database" selection to loop through all the tabledefs
and delete all records where the name began "tmp".  These were tables in the front-end files that I use to
temporarily hold results for reports.

Regards,

Patrick

Author

Commented:
I don't understand how to implement it?
Top Expert 2010

Commented:
verpit said:
>>I don't understand how to implement it?

Tell me how and when you would want that code to be launched, and I can advise you accordingly.

Patrick

Author

Commented:
I don't know how to answer that.  Exactly as the frmAddTasks behaves now, with the new tables would be great.  I just don't know how to do it.  My goal was to use Gray's new tables with the existing forms.  I just don't know how to tie it in and which of mine to delete subsequently.  I think his intention was to "show me" how.  I just don't understand how and can't use the changes he so carefully made with my current forms.

Author

Commented:
Ooops...  wrong response for this thread...  in response to you patrick...

"Tell me how and when you would want that code to be launched, and I can advise you accordingly.

Patrick"...

Thank you very much for this code.  I need to hold off on the actual implementation of it until the final changes have been made to the db.  I would like to know how to add a button to call it.
Top Expert 2010

Commented:
verpit,

The easiest thing to do, then, is to add a commandbutton to a form, and then put the code I supplied
into a Click event sub for that commandbutton.

Regards,

Patrick
Jeffrey CoachmanMIS Liason
Most Valuable Expert 2012

Commented:
Patrick, v,

It may be worth mentioning that any existing relationships may need to be broken before running the code.
(Then obviously re-made when you are re-populating the tables)

If Referential Integrity is enforced, the code will not delete any records in a One table if there are any corresponding records in the Many table.

For example, if the code loops to the Customer Table before the Orders Table, then it will not delete any Customer that has Orders. (And you wont be alerted)

Jeff

Author

Commented:
I was just looking for an easy way to clear data in the tables.  It sounds like "there isn't one" is the correct answer as suggested above.
Jeffrey CoachmanMIS Liason
Most Valuable Expert 2012

Commented:
No, the code will work.

I just tried to point out a few issues you may encounter.
It all depends on what you call "Easy"

In your case you can simply try it and check the tables, if they are all blank, then no problem.
The worst case is that (if you don't want the break, then relink the tables) you might have to run the code a few times to wash out all the records.

Jeff

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial