Navigation Pane Helper (1 Viewer)

[isladogs]

When Access 2007 was launched, many Access users found the new navigation pane a challenge compared to the old database window.
Over time, many of us came to prefer the navigation pane for the wide range of options it provided for displaying all database objects.

However, 15 years on, some experienced Access users such as @Pat Hartman continue to dislike the 'nav pain (sic)' mainly because it takes several clicks to achieve certain display options

This helper app was created to simplify the various display options so that each is available with as few clicks as possible - usually just one!
A small form gives access to almost all the available options. For example:

.

All options are saved in the table tlbNavPaneSettings and implemented the next time the app is opened

To use this in your own applications, import the following objects:

• Form frmNavPaneHelper - optionally make it the startup form
• Table tblNavPaneSettings
• Module modFunctions

More information will be provided in an article on my website and a YouTube video within the next week or so.
Links will be added once these have been completed,

NOTE: 16 Aug 2022
There are two bugs related to using the navigation pane, both of which have recently been reported to Microsoft.
Fixes will hopefully be provided within the next few weeks
1. The Sort Descending option is 'lost' when an app is restarted. This fixes that issue
2. The 'proper code' designed to show/hide the navigation pane search bar worked in Access 2007 but not in Access 365.
Application.SetOption "Show Navigation Pane Search Bar", True ‘False

However, I have worked out another method using command bars which does toggle the search bar visible/hidden
Application.CommandBars("Navigation Pane Pop-up").Controls(7).Execute

UPDATE: 19 Aug 2022
I've just uploaded a web page with the latest version and all code used:

Navigation Pane Helper

This utility was designed to assist users access the huge number of options available from the navigation pane with as few clicks as possible

isladogs.co.uk

I've also uploaded a related video to YouTube:

I'd be interested in any feedback on this utility

 

[isladogs]

To make this utility even easier to use, it is now available as a free Access add-in:

Navigation Pane Helper Add-In

This add-in is designed to make it easier and more efficient to use the many navigation pane options with as few clicks as possible.

www.isladogs.co.uk

There is another short video on YouTube to accompany this item:

 

[vhung]

Good day,

A package of navigation pane command, Very nice.
The coding inserted to a Form On Load,.

SORRY i've noticed on
The command "Remove Auto Sort", contradicting to "Ascending" or "Descending",
i tried to debug the error, see below

On Error GoTo Macro_Err
On Error Resume Next


Select Case fraSortOrder
Case 1 'ascending
strValue = "Ascending"
Application.CommandBars("Navigation Pane SortBy Pop-up").Controls(1).Execute
Case 2 'descending
strValue = "Descending"
Application.CommandBars("Navigation Pane SortBy Pop-up").Controls(2).Execute
End Select
strName = "SortOrder"
intValue = fraSortOrder
CodeDb.Execute "UPDATE tblNavPaneSettings SET tblNavPaneSettings.ItemDetail = '" & strValue & "', tblNavPaneSettings.ItemValue = " & intValue & "" & _
" WHERE (((tblNavPaneSettings.ItemName)='" & strName & "'));", dbFailOnError


Macro_Exit:
Exit Sub 'Function
Macro_Err:
MsgBox Error$
Resume Macro_Exit


THANKS FOR THIS NAVIGATION PANE HELPER!!!

 

[isladogs]

Sorry but its not clear what error you are experiencing
The code works without error as an add-in.
Its not intended that you add the code to a form load event in another app

The error handling you added isn't going to work as you intend
If there is an error, the code will never reach the Resume Next line

On Error GoTo Macro_Err
On Error Resume Next

 

[vhung]

Please see attached file,.

 

[isladogs]

Thanks. I can now replicate the issue
Setting the Sort Order to Ascending or Descending when the Sort By option is Remove Automatic Sorts makes no sense & triggers that error
Amazing that nobody has mentioned that issue in the last 3 years!

I've updated the add-in to v2.42 and fixed it by disabling the Sort Order for that specific Sort By option. Tested and now error free!

NOTE: Uninstall any previous versions of this add-in before updating to the new version. To do so:
• Open the Add-in Manager in Access, click Nav Pane Helper and click Uninstall. Close Access
• Go to the Access add-ins folder and delete the earlier version e.g. NavPaneHelper_v2.41.accda

I've also posted the latest version to my website:

Navigation Pane Helper Add-In

This add-in is designed to make it easier and more efficient to use the many navigation pane options with as few clicks as possible.

www.isladogs.co.uk