Access 2000 - курс лекций
с. Выключить панели инструментов
В предыдущем примере мы с Вами импортировали модуль «Настройка.bas». Далее дается описание программы, которая есть в этом модуле. Назначение ее - выключить все панели инструментов, чтобы они не мешали работе Калькулятора.
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
End Sub
