Removing data from DB

T

Thore

Hello,

I have a database with some data entries. Now I would like to keep the whole
structure (tables, forms, etc.) but get rid of all the old data. Is there a
way to "reset" a db?

Thanks, Thore
 
N

Nikos Yannacopoulos

Thore,

Start by making a *backup copy* of your database.
Then paste the following sub in a general module and run it:

Sub Clear_All_Data()
Dim tbl, strSQL
For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "MSys" And tbl.Connect = "" Then
strSQL = "DELETE * FROM [" & tbl.Name & "]"
CurrentDb.Execute strSQL
End If
Next
End Sub

HTH,
Nikos
 
B

BruceM

Copy and paste the tables. One of the paste options is Structure Only. Or
you could just delete the records in the tables. Other database objects
(forms, queries, etc.) interact with the data in tables, but do not in
themselves contain data, so they can be left alone.
 
Top