MyTetra Share
Делитесь знаниями!
Форма поверх рабочего стола (вне oкна MS Access)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 05 Формы

Форма поверх рабочего стола (вне 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





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования