Open Navigation Pane Programmatically

H

hokiewalrus

Registered User.

Local time

Yesterday, 23:59

Joined

Jan 19, 2009

Messages

50

• Jul 17, 2009

• #1

Hello all -

I have a program that I am mildly modifying (I did not write it) and everything is gravy except they want to be able to see the navigation pane only while a certain form is open.

I was pretty easily able to hide the pane via VBA when the program starts and when the maint. form closes, but I can't for the life of me figure out how to open it again.

I know you can just hit F11 to get it open but I'd much rather be able to do it in code and disable that method if it's possible.

Thanks.

 

ajetrumpet

Banned

Local time

Yesterday, 22:59

Joined

Jun 22, 2007

Messages

5,638

• Jul 18, 2009

• #2

have you tried send keys? that should work fine if nothing else. carefule with the syntax tho....it's tricky.

you may also want to google something like this: ms access open navigation pane vba

 

gemma-the-husky

Super Moderator

Staff member

Local time

Today, 04:59

Joined

Sep 12, 2006

Messages

15,989

• Jul 18, 2009

• #3

really, consider providing the users with a menu, that gives them the options they should need

it is realy dangerous to mess with access objects directly - that should only be for system development, and hard core problem fixing!

 

T

Thales750

Formerly Jsanders

Local time

Yesterday, 23:59

Joined

Dec 20, 2007

Messages

3,426

• Jun 28, 2010

• #4

Continuing this a year later.

What i was hoping to do in a backend database is:

1. open a form on load

2. Navigation Pane in turned off by default.

3. Push a botton to turn on the pane.

4. I'll most likely program some sort of password protection

5. Special Keys are disabled.

 

ghudson

Registered User.

Local time

Yesterday, 23:59

Joined

Jun 8, 2002

Messages

6,194

• Jun 28, 2010

• #5

This should get you started...

Code:

If MsgBox("Do you want to temporarily show or hide the Navigation Pane?" & vbCrLf & vbCrLf & "Click the Yes button to show the Navigation Pane." & vbCrLf & "Click the No button to hide the Navigation Pane.", vbQuestion + vbYesNo, "Show Hide Navigation Pane") = vbYes Then
    DoCmd.SelectObject acTable, , True
Else
    DoCmd.SelectObject acTable, , True
    DoCmd.RunCommand acCmdWindowHide
End If