Как скрыть окно Access, чтобы показывались только формы

Option Compare Database
Option Explicit
 
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
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'-------------------------------------------------------------------------------------------Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Type WIN32_FIND_DATA
  dwFileAttributes As Long
  nFileSizeHigh As Long
  nFileSizeLow As Long
  dwReserved0 As Long
  dwReserved1 As Long
  cFileName As String * 260
  cAlternate As String * 14
End Type
 
Public Function hidde_on()
Dim HWND_TOPMOST, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, -30, -30, 0, 0, SWP_SHOWWINDOW
End Function

#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
        Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    #Else
        Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
       
    #End If
    Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    
#Else
 
    
   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
 
Private Declare Function apiShowWindow Lib "User32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long
          
          
          Declare Sub MessageBeep Lib "User32" (ByVal N As Long)
#End If
          
Option Explicit
 
Public Function hidde_on()
Dim HWND_TOPMOST, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, -40, -40, 0, 0, SWP_SHOWWINDOW
End Function
Public Function hidde_off()
Dim HWND_TOPMOST, SWP_NOACTIVATE, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, 0, 0, 1200, 1200, SWP_SHOWWINDOW
' 0, 0, 1200, 1200, SWP_SHOWWINDOW ' С этими значениями можно поиграть
' зависит от размера экрана
End Function

CurrentDb.Properties("AllowSpecialKeys") = True ‘разрешить  F11, срабатывает после перезапуска
‘ показать окно базы срабытывает сразу
DoCmd.SelectObject acForm, , True
‘ Скрыть  окно базы срабытывает сразу
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
CurrentDb.Properties("AllowSpecialKeys") = false  ‘запретить  F11, срабатывает после перезапуска

Private Sub cmdShowWindow_Click()
On Error GoTo Err_cmdShowWindow_Click
If MsgBox("Показать?", vbOKCancel, "Окно базы") = vbOK Then ' повесил код на кнопку если нажимаю да - то показыватеся окно
CurrentDb.Properties("AllowSpecialKeys") = True ' разрешаю быстрые клавиши
ChangeProperty "AllowBypassKey", dbBoolean, True ' разрешаю клавишу шифт при входе (нужна функция  ChangeProperty)
DoCmd.SelectObject acForm, , True ' показываю окно базы
Else
CurrentDb.Properties("AllowSpecialKeys") = False ' запрешаю быстрые клавиши
ChangeProperty "AllowBypassKey", dbBoolean, False ' запрещаю клавишу шифт при входе (нужна функция  ChangeProperty)
DoCmd.SelectObject acForm, , True ' выбок окна базы
DoCmd.RunCommand acCmdWindowHide ' скрываю окно базы
End If
 
Exit_cmdShowWindow_Click:
    Exit Sub
 
Err_cmdShowWindow_Click:
    MsgBox Err.Description
    Resume Exit_cmdShowWindow_Click
    
End Sub

Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
 
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
 
Change_Bye:
    Exit Function
 
Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
 
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
 
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function