I locked myself out of the design view of my database, and need to be able to get back With my limited Access Project knowledge, I believe my options are (1) bypass startup options to turn on full menus so I can get to the design view or (2)create another database and import the forms and reports.
Unforturnately, shift bypass is disabled (It is enabled by a hidden button that can only be accessed by making it visible in design view) and I have given the VBE a password, and don't know how to supply the password remotely. In brief, I'm stuck.
Does anyone know how to either enable shift bypass remotely or supply and disable a VBE password remotely? Or, I'll try anything that will allow me to get to the design view of my Access Project.
Smuckers (in this forum) provided the code below to change startup properties. This might work if the code was modified so that it refers to a remote database (the remote database being the one where I need to get to database design view). I don't know what needs to be changed to accomplish this objective.
Public Sub SetADPAppTitle()
Dim dbs As CurrentProject
Dim prp As ADODB.Property
Dim strTitle As String
Const INVALID_PROPERTY_REFERENCE As Integer = 2455
On Error GoTo ErrorHandler
Set dbs = Application.CurrentProject
strTitle = "Setting *.ADP Startup Options"
'Try to set the property, if it fails, the property does not exist.
dbs.Properties("AppTitle" = strTitle
' *** Here is one of the start up properties ***
dbs.Properties("StartupShowDBWindow" = False
'Refresh the title bar to reflect the change.
Application.RefreshTitleBar
ExitLine:
Set dbs = Nothing
Set prp = Nothing
Exit Sub
ErrorHandler:
If Err.Number = INVALID_PROPERTY_REFERENCE Then
' Create the new property.
dbs.Properties.Add "AppTitle", strTitle
Resume Next
Else
Resume ExitLine
End If
End Sub
' *****************************************
Unforturnately, shift bypass is disabled (It is enabled by a hidden button that can only be accessed by making it visible in design view) and I have given the VBE a password, and don't know how to supply the password remotely. In brief, I'm stuck.
Does anyone know how to either enable shift bypass remotely or supply and disable a VBE password remotely? Or, I'll try anything that will allow me to get to the design view of my Access Project.
Smuckers (in this forum) provided the code below to change startup properties. This might work if the code was modified so that it refers to a remote database (the remote database being the one where I need to get to database design view). I don't know what needs to be changed to accomplish this objective.
Public Sub SetADPAppTitle()
Dim dbs As CurrentProject
Dim prp As ADODB.Property
Dim strTitle As String
Const INVALID_PROPERTY_REFERENCE As Integer = 2455
On Error GoTo ErrorHandler
Set dbs = Application.CurrentProject
strTitle = "Setting *.ADP Startup Options"
'Try to set the property, if it fails, the property does not exist.
dbs.Properties("AppTitle" = strTitle
' *** Here is one of the start up properties ***
dbs.Properties("StartupShowDBWindow" = False
'Refresh the title bar to reflect the change.
Application.RefreshTitleBar
ExitLine:
Set dbs = Nothing
Set prp = Nothing
Exit Sub
ErrorHandler:
If Err.Number = INVALID_PROPERTY_REFERENCE Then
' Create the new property.
dbs.Properties.Add "AppTitle", strTitle
Resume Next
Else
Resume ExitLine
End If
End Sub
' *****************************************