Hide The Object List in 07

[cassidym]

How do I hide the Object List in 07? My user keeps fooling with it and causing general havoc. Consequently, when she opens it, I want the Switchboard to show and not the object list.

This was easy to do in '03 so I suppose Microsoft had to make it unintuitive in '07.

Appreciate any advice



Thanks

[DaveT]

You can set the startup configuration to hide the navigation pane:
Office Button (top left), Access Options, Current Database, under Navigation, clear the Display Navigation Pane check box.

If you want to use VBA, you can look at:
http://www.accessmonster.com/Uwe/For...-default-Menus

I modified the code from above as follows:

Public Sub DisplayNavPane(IsVisible As Boolean)
'7/29/2009 DLT
Dim strTableName As String

On Error GoTo DisplayNavPaneError
'strTableName = "local_Parameters" 'could use a tablename, or a module acModule, etc
'but it runs OK using mSysObjects

strTableName = DLookup("Name", "mSysObjects", "[Type] = 1 AND [Flags] = 0")

DoCmd.SelectObject acTable, strTableName, True
If IsVisible = False Then
DoCmd.RunCommand acCmdWindowHide
End If
Exit Sub
DisplayNavPaneError:
If Err.Number = 2544 Then
'Get the name of the first table in the mSysObjects table
strTableName = DLookup("Name", "mSysObjects", "[Type] = 1 AND [Flags] = 0")
Resume
Else
MsgBox "Error encountered in DisplayNavPane subroutine!"
End If
End Sub


Put code in standard module.
To use the code:

DisplayNavPane True

or

DisplayNavPane False

Can put this in splash form On Open event, command button OnClick, etc.

[cassidym]

Works great! Thanks.