[pakos]

καλησπερα

για οσους τυχον χρειαστουν την παραπανω εντολη
εκανα μια μεσοβεζικη λυση

προσθεσα ενα πεδιο στην φορμα π.χ. to rib

και επαιξα λιγο με τους κωδικες

το αποτελεσμα ειναι το ιδιο


================================================== ==
Public Function HideRibbon()
DoCmd.ShowToolbar "RIBBON", acToolbarNo
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Function
================================================== ===

Public Function HideRibbon5()
If Form_MainMenu.rib = 1 Then
Exit Function
Else
DoCmd.ShowToolbar "RIBBON", acToolbarNo
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End If
Form_MainMenu.rib = 1
End Function
================================================== ====

Public Function ShowRibbon()
DoCmd.ShowToolbar "RIBBON", acToolbarYes
DoCmd.SelectObject acTable, , True
Form_MainMenu.rib = 0
End Function