TopPicLogo TopPicText

Окно приложения MS Access - Запретить или разрешить прорисовку

По материалам: https://msdn.microsoft.com/en-us/library/office/ff834500.aspx

Public Sub EchoOff()
 ' Open the Employees form minimized.
    Application.Echo False
    DoCmd.Hourglass True
    DoCmd.OpenForm "Employees", acNormal
    DoCmd.Minimize
    Application.Echo True
    DoCmd.Hourglass False

End Sub


Или так:

' Остановка обновления экрана приложения с  сообщением в StatusBar
    Application.Echo False, "Подождите пожалуйста - я делаю  ..."
    ' длинные процедуры ...
    ' ещё длинные процедуры ...
    Application.Echo True
Назад ToTop
L.E. 08.12.2016
Рейтинг@Mail.ru