Copy a Database Structure Only 1

[stotzc001]

I have a database that needs to be closed out on a fiscal year basis (FY2004.mdb). What I want to do is create a function that will copy my database (structure only) to a new file called FY2005.mdb

Once that is complete I can fill the new database with the information that is carried over from the previous fiscal year.

Any Ideas??

 

[KenReay]

Hi

see docmd.TransferDatabase in help

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[stotzc001]

I guess I needed to be a little more clear on what I wanted to do. I need to copy all the tables in my database (structure only), queries, reports, and macro's.

Any ideas?

 

[KenReay]

Hi

Why not just filecopy the db, then delete he data?

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[stotzc001]

I won't be around to do the carryover so I want it to be as transparent as possible to the end user.

 

[KenReay]

Hi

Yes.. well I meant in Code

Copy MyDb2004.mdb MyDb2005.mdb
Set Db = ws.Opendatabase("MyDb2005")
For each tdf in Db.TAbledefs
if left(tdf.name,4) <> "Msys" Then
strSQL = "DELETE * FROM " & tdf.name & ";"
db.execute strSQL
End If
Next tdf

I leave the Dim statements for you, you need a refrence to DAO library


Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[stotzc001]

Thats what I was looking for. Thanks and enjoy the star.

Chuck