Change Startup Form

I have 15 databases on our company public drive, that all have the same
startup form, "frmLock" - which simply closes the database upon open. It's
an easy way I use to "lock down" the databases for people who don't know to
use the shift key on open.

The problem is, when I need to unlock them, it's a pain to unlock 15
databases by changing the startup "frmLock" to the REAL form, "frmWelcome".

I want to create a small database that runs code to change the 15 start forms
from frmLock to frmWelcome.

I figured:
1) I need to bypass the startup form so it doesn't close
2) somehow change the name for startup

Any direction you could give would be helpful. I'm pretty decent with VBA to
understand/figure out what you send.

Thanks!
John

--
Message posted via http://www.accessmonster.com

I found code that worked.

Sorry!

CurrentDb.Properties("StartupForm") = "frmUnlock"

auujxa2 wrote:
I have 15 databases on our company public drive, that all have the same
startup form, "frmLock" - which simply closes the database upon open. It's
an easy way I use to "lock down" the databases for people who don't know to
use the shift key on open.

The problem is, when I need to unlock them, it's a pain to unlock 15
databases by changing the startup "frmLock" to the REAL form, "frmWelcome".

I want to create a small database that runs code to change the 15 start forms
from frmLock to frmWelcome.

I figured:
1) I need to bypass the startup form so it doesn't close
2) somehow change the name for startup

Any direction you could give would be helpful. I'm pretty decent with VBA to
understand/figure out what you send.

Thanks!
John

--
Message posted via http://www.accessmonster.com