Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
#If VBA7 And Win64 Then
    Private Declare PtrSafe Function AccessPencereGizle Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
     Private Declare Function AccessPencereGizle Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
 
Function PencereGizle(nCmdShow As Long)
Dim Knm As Long, FormAdi As Form
    On Error Resume Next
    Set FormAdi = Screen.ActiveForm
    If Err <> 0 Then
        If nCmdShow = SW_HIDE Then
            Knm = AccessPencereGizle(hWndAccessApp, nCmdShow)
            Err.Clear
        End If
    Else
            Knm = AccessPencereGizle(hWndAccessApp, nCmdShow)
    End If
    PencereGizle = (Knm <> 0)
End Function