Is there a simple way to delete all the data from every table?

set up a simple delete qurey for every table, then make a macro that runs all
the queries.

"pokdbz" wrote:

> Is there a simple way to delete all the data from every table?

if this is a "one time" sort of thing, you can create a new, blank database,
then from the menu bar click File | Get External Data | Import. in the
Import wizard, click the Select All button on each tab, and then click the
Options button. in the Import Tables section, choose Definition Only. then
click OK to import.

if you need to do this on a recurring basis, you can use VBA code to loop
through all the table names, and execute a Delete query on each table.

hth


"pokdbz" <(E-Mail Removed)> wrote in message
news:7BB41060-AFF8-46D2-A69B-(E-Mail Removed)...
> Is there a simple way to delete all the data from every table?

Try creating a loop through the tables in the mdb, and delete each one of them

Sub DeleteTables()
On Error GoTo Err_DeleteTables

Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef
Dim strDescription As String

Set dbCurr = CurrentDb
For Each tdfCurr In dbCurr.TableDefs
Docmd.RunSQL "Delete * From " & tdfCurr.Name
Next tdfCurr

End_DeleteTables:
Set dbCurr = Nothing
Exit Sub

Err_DeleteTables:
MsgBox Err.Number & ": " & Err.Description
Resume End_DeleteTables

End Sub

--
\\// Live Long and Prosper \\//
BS"D


"pokdbz" wrote:

> Is there a simple way to delete all the data from every table?