MS access startup

[GretchenZ]

Hey Y'all... I'm still learning this access stuff. I set up security on my db, and then I set up the setup options, and so now I can't get back into the design portion. I have security access to, I just can't get into it because of the set up functions. Okay, I know, kinda dumb. In any case, because I have the security set up, I can't do the standard click shift when opening the db. Anyone know how to get in? Or am I just f-ed? Thanks! Gretchen

 

[JerryKlmns]

Gretchen

I haven't tried that but might work. You need a VBA enviroment so create a blank mdb and write code to get a new instace of the database you 're interested.

Dim wrkJet As DAO.Workspace
Dim dbs as DAO.Database
' Create Microsoft Jet Workspace object.
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbs = wrkJet.OpenDatabase("YourDatabase.mdb", True)
'The following should remove all obstacles
with dbs
.Properties.Delete "StartUpForm"
.Properties("AllowFullMenus") = True
.Properties("AllowShortcutMenus") = True
.Properties("StartupShowDBWindow") = True
.Properties("StartupShowStatusBar") = True
.Properties("AllowBuiltInToolbars") = True
.Properties("AllowToolbarChanges") = True
.Properties("AllowSpecialKeys") = True
.Properties("AllowBypassKey") = True
.Properties("AllowBreakIntoCode") = True
.Close
End With
Set dbs = Nothing
Set wrkJet = Nothing