TopPicLogo TopPicText

StatusBar - скрыть или отобразить

Dim str As String
On Error Resume Next

    str = CurrentDb.Name
    str = Right(str, 5) 'берём 5 символов из имени файла справа (рассширение)
 
    If str = "accde" Then  'Работает Пользователь
        Application.SetOption "Show Status Bar", False    'Скрыть статус БАР
    Else   'Работает разработчик
        Application.SetOption "Show Status Bar", True     'Показать статус БАР
    End If


Просто показать (если был скрыт)
Печатаем в Immediate окне (Ctrl+G) строку:

Application.SetOption "Show Status Bar", True

... и нажимем ENTER - StatusBar появится.

Назад ToTop
L.E. 23.05.2016
Рейтинг@Mail.ru