Public Function MaximizeNavigationPane()
On Error GoTo ErrHandler
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.Maximize
Exit_ErrHandler:
Exit Function
ErrHandler:
MsgBox "Error " & Err.Number & " in MaximizeNavigationPane routine : " & Err.Description, vbOKOnly + vbCritical
Resume Exit_ErrHandler
End Function
Sometimes the navigation pane can become so small it cannot be expanded
Here are three possible solutions:
1. Use VBA
Code:
2. Toggle the F11 button
3. Modify the search bar
Right click to get the navigation options and untick (or tick) show the search bar.
With thanks to Utter Access forum member louverrill
Click the image to view a larger version ...