VBA to Save As Access 2000 Database (accdb to mdb)

[DJHarris71]

I work with an old application that still needs databases in the access 2000 format.
The current version (365) has a way to 'Save As' Access 2000 format (mdb).
Anyone know the vba code to emulate this?
Thanks in advance.

[Micron]

maybe post 13 here
https://www.access-programmers.co.uk.../#post-1748910

[Gicu]

See this please:
https://stackoverflow.com/questions/...ccdb-using-vba

Cheers,

[DJHarris71]

See this please:
https://stackoverflow.com/questions/...ccdb-using-vba

Cheers,

Looks like that is accdb to mdb, houwever it lead me to this command, 'AcFileFormat.acFileFormatAccess2007', which can be used with .acFileFormatAccess2000 instead. I will try this out. Thanks!

[pbaldy]

Post 4 was moderated, I'm posting to trigger email notifications.

[Welshgasman]

Looks like that is accdb to mdb, houwever it lead me to this command, 'AcFileFormat.acFileFormatAccess2007', which can be used with .acFileFormatAccess2000 instead. I will try this out. Thanks!

how to convert ms access .mdb to .accdb using VBA

src = [COLOR=var(--highlight-variable)]"c:\csnet\file.mdb"[/COLOR]
  dst = [COLOR=var(--highlight-variable)]"c:\csnet\file.accdb"[/COLOR]
  
  ConvertAccessProject src, dst, AcFileFormat.acFileFormatAccess2007

Edit: I tried it on one of my still mdb files and it complained that the file had already been converted.? Tried another twice with no complaint.?
I *think* the first one I had saved manually as an accdb?

[DJHarris71]

Worked like a charm. The fun part about this is that I was doing this from Visio. Thanks!!

Dim acc As Object
Set acc = CreateObject("Access.application")
acc.ConvertAccessProject "SourcePath", "DestPath", 9 'AcFileFormat.acFileFormatAccess2000  have to hard code the number since we are in visio
acc.Quit

[Gicu]