New
#1
Programmer access to MSAccess
Hello,
In Windows XP to gain programmers access to MSAcess you would
Shift+double-click. That doesn't work in Windows 7. Help? Thanks
Hello,
In Windows XP to gain programmers access to MSAcess you would
Shift+double-click. That doesn't work in Windows 7. Help? Thanks
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
Using Office 2010
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.
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?
It fixed the issue?
- Create a new database
- Create a new module in that database
- Paste the code as displayed below in it.
- Change the red text with real database location you want to unlock
- Put cursor in SetBypassProperty subrountine
- Press F5 (means run)
- Does is say "AllowBypassKey value is now: TRUE"?
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
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...