Solved Programmer access to MSAccess

[rbassman98003]

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

 

[Irene]

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

 

[Kaktussoft]

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.

 

[Kaktussoft]

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.

 

[rbassman98003]

Using Office 2010

 

[rbassman98003]

I have a laptop running Windows 7 Home Premium and a desktop running Windows
7 Ultimate and on neither machine does Shift+double-click do anything. No response at all whether it be an .mdb or an .accdb. I have databases that have
startup screens that I cannot get into the tables, queries, forms etc.

 

[Kaktussoft]

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?

 

[Kaktussoft]

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?

Option Compare Database
Option Explicit
 
Public Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "[COLOR=red]D:\Ron\Docs\test\ff.accdb[/COLOR]", "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

 

[rbassman98003]

Found resolution

Just wanted to let you know I found the resolution to my issue today. Through trial and error, I found
that if you open Access, go to File\Open and select that,
locate the .mdb database you are wanting to modify, highlight it, hold the Shift key down and click on the Open button the database will open in "programmer mode" so you can modify it. I'm going to mark this as solved and I appreciate your help...