Automate compacting Access 97 mdb

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steven - 04 Nov 2006 23:41 GMT

I am trying:

Dim DBName, NewDBName as String
DBName = "C:\Files\ExampleFile.mdb"
NewDBName = "C:\Files\NewFile.mdb"

DBEngine.CompactDatabase DBName, NewDBName

but the DBName file has a password and therefore I keep getting an error
message, "Not a valid password". The password is "accessgranted"

How do I code this so it will proceed with the compact.

Thank you for you help.

Steven

Reply to this Message

Granny Spitz - 05 Nov 2006 01:08 GMT

> Dim DBName, NewDBName as String

If you *don't* explicitly assign a data type to DBName (as it hasn't been in
this line of code), DBName will be a variant.

> How do I code this so it will proceed with the compact

DBEngine.CompactDatabase DBName, NewDBName, dbLangGeneral &
";pwd=accessgranted", , ";pwd=accessgranted"

Reply to this Message

Steven - 05 Nov 2006 03:06 GMT

You have done it again.

Thank you very much.

Reply to this Message

Granny Spitz - 06 Nov 2006 02:56 GMT

> Thank you very much.

You're welcome, Steven. Good luck with your project.

Reply to this Message