Solved Accdb: Ribbon and NavigationPane, Unhide/hide (1 Viewer)

[vhung]

>when you need to open you ribbon and navigation pane
>try the codes below

DoCmd.SelectObject acTable, , True
If Not (objPane Is Nothing) Then
objPane.IsCollapsed = False
End If
DoCmd.ShowToolbar "Ribbon", acToolbarYes 'Yes or 'No
MsgBox "Ribbon, acToolbarYes; NavigationPane OpenYes"

>no need to restart this time auto response is visible

 

[vhung]

>use this sample codes for hide command

DoCmd.ShowToolbar "Ribbon", acToolbarNo 'Yes or 'No
MsgBox "Ribbon, acToolbarNo; NavigationPane OpenNo"

CommandBarControl.Visible = False
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide

>no need to restart this time auto response is visible