Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: MSA2002 Как обновить рабочий стол? ( типа refresh; repaint)
 
 автор: major   (18.10.2007 в 13:43)   личное сообщение
 
 

Помогите пож-ста ! НЕ могу найти способ при помощи которого можно обновить рабочий стол или убрать остатки отработанных форм закрывающегося ACCESS (типа F5) (Параллельно работает ещё экземпляр ACCESS)
СПАСИБО!

  Ответить  
 
 автор: osmor   (18.10.2007 в 18:10)   личное сообщение
 
 

попробуйте
RunCommand acCmdRefresh

  Ответить  
 
 автор: Major   (19.10.2007 в 14:22)   личное сообщение
 
 

К сожалению, не помогает, всё осталось без изменений.

  Ответить  
 
 автор: Силыч   (19.10.2007 в 14:51)   личное сообщение
 
 

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
в коде:

ret=UpdateWindow(GetDesktopWindow)

или
Public Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Const RDW_INVALIDATE = &H1
в коде:
RedrawWindow GetDesktopWindow, ByVal 0&, ByVal 0&, RDW_INVALIDATE
а может и так пройдет
RedrawWindow ByVal 0&, ByVal 0&, ByVal 0&, RDW_INVALIDATE

  Ответить  
 
 автор: Major   (29.10.2007 в 15:56)   личное сообщение
 
 

Всем большое спасибо!!!
Последний вариант, к сожалению, не удалось использовать (моя безграмотность).
Обошлось всё минимизированием окна ACCESS перед закрытием.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList