Right Click menu not working

[highandwild]

My Right Click menu does not appear when I right click on the database window.

I want to change the startup options but cannot.

Also depressing the Shift key when loading a database does not bypass the startup options.

Any ideas anybody?

This has been doing my head in for the last two hours.

Thanks

 

[vbaInet]

Did you disable the toolbars/menubars/navigation window etc using code? What version of Access?

 

[ajetrumpet]

are you working on a network? does the administrator have rights to shut these things off I wonder? using a runtime version of access perhaps?

if worst comes to worst though, I would take Inet's advice. He's a VIP afterall!

 

[highandwild]

Stand alone computer so it's all down to me or Access.

I created a new mdb and imported all objects and right-click works fine
but Shift key does not work when loading database.

It just means that I need a way of getting back to the database window when needed until I understand what is going on.

 

[vbaInet]

I created a new mdb and imported all objects and right-click works fine but Shift key does not work when loading database.

Just re-iterating, do you have code that disables this function plus your menubars/toolbars etc?

 

[highandwild]

I call these two functions at startup:

Private Sub HideAllMenuBars()
'This will hide all menu bars and tool bars
Dim i As Integer

For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
​

End Sub

Public Function SetStartupProperties()

ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, False
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
​

End Function

and these at the end:

Private Sub ShowAllMenuBars()
'This will hide all menu bars and tool bars
Dim i As Integer

For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i
​

End Sub

Public Function SetCloseProperties()

ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True
hangeProperty "AllowBreakIntoCode", dbBoolean, True
ChangeProperty "AllowSpecialKeys", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, False
​

End Function

I have to create a new database and import all objects to sort the Right-Click problem out and have still not sorted the startup problem out where using the Shift key does not suppress startup options.

Thanks

 

[vbaInet]

1. Import all the objects into a new database EXCEPT THE STARTUP FORM
2. Create a new form, add a button and put this code on the On Click event:

Private Sub Button1_Click()
 
        Dim i As Integer

        ChangeProperty "AllowFullMenus", dbBoolean, True
        ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
[INDENT]For i = 1 To CommandBars.Count
           CommandBars(i).Enabled = True
Next i
[/INDENT][INDENT]    ChangeProperty  "StartupShowDBWindow", dbBoolean, True
    ChangeProperty "StartupShowStatusBar", dbBoolean, True
    ChangeProperty "AllowBreakIntoCode", dbBoolean, True
    ChangeProperty "AllowSpecialKeys", dbBoolean, True
    ChangeProperty "AllowBypassKey", dbBoolean, True
  
Msgbox "All properties set"
[/INDENT]End Sub

3. Now, open the form and click the button to run the code.
4. Close the database completely and reopen. Remember, do not import the startup form yet.

Check to see if it has been resolved.