Save a database in 2000 format

[meljunk]

Hi all, currently I have to open my database and Save As 2000 format, can I automate this?

 

[SkipVought]

hi,

What kind of database?

If it's MS Access then maybe posting in forum705 would be a better choice.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[meljunk]

Yes sorry, it's an Access Database. Will try that, thanks.

 

[meljunk]

Sorted

    'Create in 2002/2003 format
    Set db = CreateDatabase(CopyDatabase, dbLangGeneral, dbVersion40)
    db.Close
    Set db = Nothing
    
    'Converts to 2000 format
    Application.ConvertAccessProject CopyDatabase, new_database, acFileFormatAccess2000