TopPicLogo TopPicText

Форма поверх рабочего стола (вне oкна MS Access)

У формы Свойство «Всплывающее окно» (PopUp) - должно быть = TRUE
Скрывает окно Access -  и форма остается поверх рабочего стола.

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'*********************************
'Форма, которая должна всплывать делается всплывающей и при открытии базы запускается функция asdf:
Public Function asdf()
DoCmd.OpenForm "App"
Dim HWND_TOPMOST, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, -30, -30, 0, 0, SWP_SHOWWINDOW
End Function

'Здесь я открываю форму и делаю координаты окна приложения за пределами
'экрана и устанавливаю размер окна 0х0


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