برای حل مساله مخفي شدن پنجره اكسس از ماژولی بنام HideAccess استفاده كنيد که در بخش کد زیر مشاهده می کنید.

Option Compare Database


Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub

Public Sub ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Sub



جهت فراخوانی ماژول فقط کافی است بصورت زیر عمل کنید.
HideAccess