Originally Posted by
GinaWhipp
I think it's something like...
Code:
If Application.CommandBars("Ribbon").Height > 100 Then
GinaWhipp, thanks for your reply.
This method still does not function properly for toggling on/off hide/show
Button Click Event:
Code:
Private Sub bhideshow_click()
If Application.CommandBars("Ribbon").Height > 100 Then
Call hideToolbars
Else
Call unhideToolbars
End If
End Sub
Hide / show Sub:
Code:
Sub hideToolbars()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
Sub unhideToolbars()
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.SelectObject acForm, , True
End Sub