Чтобы скрыть окно 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 не будет показываться.