Breaking into .mdb

[Always_Learning]

Hi There,

I have been doing some coding on an .mdb and I set it to not allow the users to be able to use alt+F11 or F11 but now I cannot get back in to make changes to the code.

Is there any other way to get into the development area of the .mdb?

Thanks for your help.

Best Regards,

 

[pr2-eugin]

Not even through Database Tools-->Visual basic in the Menu bar?

 

[CJ_London]

this link may help

http://stackoverflow.com/questions/6755639/getting-at-vba-access-source-code

 

[Always_Learning]

Hi There,

Thanks for the help.
I searched and found this and it worked perfect.

Public Function ResetExternalDatabaseBypassKey _
(Optional tfAllow As Boolean = True)
'*******************************************
'Name: ResetExternalDatabaseBypassKey (Function)
'Purpose: Sets AllowByPassKey to true in another Access Database
'Author: John Spencer UMBC-CHPDM
'Date: May 02, 2000, 12:08:19 PM
'*******************************************
Dim dbs As Database
Dim strPath As String

On Error GoTo ResetExternalDatabaseBypassKey_ERROR

strPath = "C:/MyDatabases/SomeDataBaseName.mdb"

Set dbs = DBEngine.Workspaces(0).OpenDatabase(strPath)
dbs.Properties("AllowByPassKey") = tfAllow


ResetExternalDatabaseBypassKey_ERROR:
Select Case Err.Number
Case 3270 'Property not found
MsgBox "Allow Bypass Key property does not exist " & _
"for the chosen database."
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select

End Function