Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 468
  • Last Modified:

Change -- Current Database Options - After Opening database - Access 2010

Version -->: Access 2010

Question
Can I change database options to - show menus etc  while the database is open?
eg --> Can I do a Ctrl S (I'm looking for VBA code) and show the Navigation Pane, Show Full Menus, Allow Default Shortcut Menus.

I know
I can open the database with the shift key and see what I want.
I can Display Navigation Pane by using the below code
                  DoCmd.SelectObject acTable, "tbl_MyTable", True


A little more info
I set Current Database options so my users don't see some things I don't want them to see
    * Display Navigation Pane = False
    * Allow Full Menus = False
    * Allow Default Shortcut Menus = False

I want a way in code to show the above without getting out of the database.

Thanks in advance for your help.
LJG
0
LJG
Asked:
LJG
  • 3
  • 3
  • 2
1 Solution
 
Jeffrey CoachmanCommented:
I don't think so, ...the database must be restarted for these settings to take effect
(I will cheat and just run the Compact/repair utility)

Do you not get this message when you change the settings manually?
0
 
Shane KahkolaDirector of I.T.Commented:
I know the command to hide and display the navigation pane from code is:
DoCmd.RunCommand acCmdWindowHide
DoCmd.runCommand acCmdWindowUnHide

Open in new window

I know you can completely restrict the ribbon and show it all again by doing this:
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.ShowToolbar "Ribbon", acToolbarYes

Open in new window


I'll play around with the rest and see what I can find.
0
 
Shane KahkolaDirector of I.T.Commented:
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LJGAuthor Commented:
Thanks for the info

I've tried with no error messages, and little success.

This works for me.
      *  DoCmd.SelectObject acTable, "tbl_MyTable", True

This does not work for me.
      *  DoCmd.RunCommand acCmdWindowUnhide
      *  DoCmd.ShowToolbar "Ribbon", acToolbarYes
0
 
LJGAuthor Commented:
Attached is a sample

Open it with a shift key to see the code.
Test1.accdb
0
 
Shane KahkolaDirector of I.T.Commented:
Try these:

CurrentDB.Properties("ShowNavigationPane") = True    <-- not certain if that one is right

CurrentDB.Properties("AllowFullMenus") = True

CurrentDB.Properties("AllowShortcutMenus") = True
0
 
LJGAuthor Commented:
Out of all the solutions - this was the only one I could get to work for me.  I did it a little different.

1) On my Quick Access Toolbar I put two extra Icons (Note this toolbar is unique to my computer and does not follow the application.)
    * Compact & Repair
    * Close Database
2) If the database is open with >>no<< access to the menus and Navigation Pane, hold the shift key down, click Compact & Repair icon on the toolbar - your back up with full ribbons & Navigation pain.

3) If the database is open with >>Full<< Ribbons and Navigation Pane (held shift down while opening it) and you want to see what the user sees, click Close Database icon on the toolbar - you should see the database on the list under the file ribbon - click it.  You are back up with no ribbons or Navigation pain.

Hope this helps someone.
0
 
Jeffrey CoachmanCommented:
ok
0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

  • 3
  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now