Programmer access to MSAccess

Does anything in this Article help?
Nothing happens or an hourglass appears when multiple users try to open an Access database (.mdb) by using Windows Explorer or a shortcut

rbassman98003 said:

Hello,
In Windows XP to gain programmers access to MSAcess you would
Shift+double-click. That doesn't work in Windows 7. Help? Thanks

Shift+double-click does work on win7 x64 home premium and all win7 flavors.

rbassman98003 said:

Hello,
In Windows XP to gain programmers access to MSAcess you would
Shift+double-click. That doesn't work in Windows 7. Help? Thanks

What version of ms access? Shift+double-click just skips the startup code/startup form.

It should work! Bypass startup options when you open a database - Access - Office.com
Did you set AllowBypassKey property to FALSE (it should be true)?

Tip: create a new database with a startup form or startup code and try to bypass it using SHIFT key. Works?

1. Create a new database
2. Create a new module in that database
3. Paste the code as displayed below in it.
4. Change the red text with real database location you want to unlock
5. Put cursor in SetBypassProperty subrountine
6. Press F5 (means run)
7. Does is say "AllowBypassKey value is now: TRUE"?

It fixed the issue?

Code:

Option Compare Database
Option Explicit
 
Public Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "D:\Ron\Docs\test\ff.accdb", "AllowBypassKey", DB_Boolean, True
End Sub
 
Function ChangeProperty(DbName As String, strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
 
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
 
    Set dbs = OpenDatabase(DbName)
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
    MsgBox "AllowBypassKey value is now: " & dbs.Properties(strPropName).Value
 
Change_Bye:
    Exit Function
 
Change_Err:
    If Err = conPropNotFoundError Then ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function