Î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:

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
Tags:

Lasă un răspuns

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate cu *

78 − = 69