Как скрыть окно Access при запуске формы

Spread the love

Чтобы скрыть окно 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 = True Then
MsgBox “Cannot minimize Access with ” _
& (loForm.Caption + ” “) _
& “form on screen”
ElseIf nCmdShow = 0 And loForm.PopUp <> True Then
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 не будет показываться.

Добавить комментарий