În cazul în care se doreşte posibilitatea de ascundere, dar şi revenire la afişarea acestora, se poate plasa, în formularul respectiv, un buton de tip check box, căruia i se poate ataşa, în evenimentul On Click, de exemplu, următorul cod:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Sub Check315_Click() If Me.Check315 = True Then ' MsgBox "Ribbon activ" DoCmd.ShowToolbar "Ribbon", acToolbarYes DoCmd.SelectObject acTable, , True Else ' MsgBox "Ribbon inactiv" DoCmd.ShowToolbar "Ribbon", acToolbarNo DoCmd.NavigateTo "acNavigationCategoryObjectType" DoCmd.RunCommand acCmdWindowHide End If End Sub |
