Copying database structure without the data

[aoao]

I need to make a new database at the beginning of every year but have forgotten how to do this quickly and efficiently.

I have a database with about 10 tables, 10 forms related to the 10 tables and likewise 10 reports. The same objects in my 2006 database, 2005, 2004 etc.
I need to make a new database for 2007 using the identical structure.

There is some quick way of copying the 2006 database so that all the tables, forms , reports i.e. all the objects come across but empty, without the data.
Before I learnt how to do this, I used to create a new blank database and copy each table individually by copy and pasting structure only. This is slow and timeconsuming. There is a better way.
Help will be most gratefully accepted.

[nico5038]

You can use for tables the TransferDatabase command that has an option "structure only":

DoCmd.TransferDatabase acExport, "Microsoft Access", strDatabase, acTable, "tblTest", "tblTest", True

For forms/queries/etc you can use the CopyObject like:
DoCmd.CopyObject strDatabase, , acForm, "frmMain"

Nic;o)

[NeoPa]

I've had to do this a couple of times now and what I do (mainly because remembering all the details is so unreliable) is I copy the whole damn thing then I write some very short code (I'll include it below) to clear out all the data from the tables. When that is all done I run a 'Compact and Repair' leaving me with all the items I need.

'ClearNativeTables clears tables that are native to this database
Public Sub ClearNativeTables()
    Dim tblThis As TableDef
 
    Call DoCmd.SetWarnings(False)
    For Each tblThis In CurrentDb.TableDefs
        With tblThis
            If .Connect = "" And .Attributes = 0 Then _
                Call DoCmd.RunSQL("DELETE FROM [" & .Name & "]")
        End With
    Next tblThis
    Call DoCmd.SetWarnings(True)
End Sub