Главная » 2015 » Июнь » 19 » Как скрыть окно Access при запуске формы
19:28
Как скрыть окно Access при запуске формы
Чтобы скрыть окно Access при запуске формы, необходимо воспользоватся функцией из библиотеки user32.dll
Открываем форму и переходим в "Окно свойств">"События">"Загрузка" и нажимаем на кнопку "...".
Вставляем в самый верх следующие строки: Option Compare Database Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
После Private Sub Form_Load()
End Sub
вставляем следующую функцию:
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm
If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If
If nCmdShow = 2 And loForm.Modal = TrueThen MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = 0 And loForm.PopUp <> TrueThen MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function
Далее в функцию Form_Load() пишем: Private Sub Form_Load() fSetAccessWindow (2) End Sub
и сохраняем. Все. Теперь при запуске формы окно Access не будет показываться.
