Macro to hide/show navigation pane (1 Viewer)

[Wysy]

Hi,
I am struggling with the following.
I have button to show/hide navigation pane:
Private Sub NavWindow_Click()
DoCmd.SelectObject acTable, , True
End Sub

Private Sub NavWindow_DblClick(Cancel As Integer)
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
It works all right. However i would like to have a macro if possible to do the same, so i would be able to "put" that macro into the ribbon.
Is there a solution for it?
thanks
Andrew

 

[arnelgp]

then use a public function instead. and call it in a macro using runcode

 

[Wysy]

thanks for the answer but i do not know how to use public function.

 

[arnelgp]

on VBE (press Alt-F11 to get there), on menu, insert module. type this:

Public Function fnShowHideNavigationPane(Optional bolShow As Boolean = True) As Variant
DoCmd.SelectObject acTable, , True
If Not bolShow Then DoCmd.RunCommand acCmdWindowHide
End Function


now on your macro->New Action
choose RunCode
function name: fnShowHideNavigationPane([False/True])

[False/True] means you choose true or false. depending on whether you want to show or hide the navigation pane.

 

[cadamson8]

Thanks Arnel. This is a big help! But there should not be square parentheses around the True / False condition, after the function name. It should be like this:

now on your macro->New Action
choose RunCode
function name: fnShowHideNavigationPane(False/True)