VBA, MS Access MS Access в примерах

Ленты (Ribbons) - Скрыть или Отобразить


' спрятать ленту и меню
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
 
' показать ленту и меню
    DoCmd.ShowToolbar "Ribbon", acToolbarYes



Ещё варианты:

По кнопке (Скрыть - Показать)

Private Sub cmdRibbon_Click()
'Cкрыть - Показать Ribbon по значению (публичной) переменной
    
    AShowRibbon = Not AShowRibbon 'меняем значение на обратное!
    
    If AShowRibbon = False Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Else    'Наоборот
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
    End If
'Запоминаем
'    INIWrite "ShowRibbon", CStr(AShowRibbon)
End Sub


На открытии формы:

Private Sub Form_Open(Cancel As Integer)
'На открытии формы
'Cкрыть - Показать Ribbon по значению (публичной) переменной

'Вспоминаем ...
    'AShowRibbon = INIRead("ShowRibbon", False)

    If AShowRibbon = False Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Else    'Наоборот
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
    End If
End Sub
Назад ToTop
L.E. 31.08.2018
Рейтинг@Mail.ru