MS Access / VBA - Test if Ribbon/toolbars are hidden

[ironfelix717]

Hi all, new to the forum!



I did some digging, but can't seem to figure out how to test if the ribbon is visible. I've tried testing the height of the command bar, but can't get that to work.

Whats the best approach here? Basically, i'd like to test if these conditions are true....

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

Thanks for your time.

[GinaWhipp]

I think it's something like...

If Application.CommandBars("Ribbon").Height > 100 Then

[ironfelix717]

I think it's something like...

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:

Private Sub bhideshow_click()

If Application.CommandBars("Ribbon").Height > 100 Then

     Call hideToolbars

Else
    Call unhideToolbars
End If

End Sub

Hide / show Sub:

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

[GinaWhipp]

Hmm, perhaps you need to first determine if it's showing, so...

If Application.CommandBars("Ribbon").Height > 100 = True Then
     Call hideToolbars
Else
     Call unhideToolbars
End If

Also, where are you putting the code?

[ironfelix717]

Hi,

The button click event on a form triggers the test i am trying to do.

The hidetoolbars/unhidetoolbars is in a module. Those subs work, just not when verifying this test. I've got the test to pass in some cases, but toggling does not work.

Thanks

[isladogs]

Try adding these functions to your module

Public Function ToggleRibbonState()
'hide ribbon if visible & vice versa
    CommandBars.ExecuteMso "MinimizeRibbon"
End Function

Public Function IsRibbonMinimized() As Boolean
    'Result: 0=normal (maximized), -1=autohide (minimized)
    IsRibbonMinimized = (CommandBars("Ribbon").Controls(1).Height < 100)
   ' Debug.Print IsRibbonMinimized
End Function

[ironfelix717]

Hello ridders,

Just now getting back to this issue...

Your code works fine for the ribbon, but when supplementing with my hidetoolbars code, it does not work. And i think this is because I am hiding the command bar too so the test does nothing because there is no ribbon.

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






Public Sub ToggleRibbonState()
'hide ribbon if visible & vice versa
    If IsRibbonMinimized = True Then
        Call unhideToolbars
    Else
        Call hideToolbars
    End If
    
    
    'CommandBars.ExecuteMso "MinimizeRibbon"
End Sub


Public Function IsRibbonMinimized() As Boolean
    'Result: 0=normal (maximized), -1=autohide (minimized)
    IsRibbonMinimized = (CommandBars("Ribbon").Controls(1).Height < 100)
   ' Debug.Print IsRibbonMinimized
End Function

[isladogs]

See if my example database helps http://www.mendipdatasystems.co.uk/c...ace/4594365418

If not then suggest you post a stripped down copy of your database