Лекции по Microsoft Access 2000


         

Public Sub subBarOff()


Dim cbr As CommandBar

    Application.SetOption "Строка состояния", False 'Гасим строку состояния

    For Each cbr In Application.CommandBars 'Проверяем все панели

        If cbr.Visible = True Then 'Проверяем отображение

            DoCmd.ShowToolbar cbr.Name, acToolbarNo 'Гасим панель

        End If

    Next cbr



Содержание  Назад  Вперед