اخفاء شاشة اكسس

[looodi]

السلام عليكم ورحمة الله وبركاتة

اخواني لقد قمت بتجربة اكثر من طريقة واستخدام كود ولم يضبط معي هل من الممكن شرح بالخطوات

[Shivan Rekany]

في الحقيقة المنتدى مليـــــــــــــــئة بنفس هذا الموضوع 

لكن يللا اليكي هذا

اعمل كوبي باست لهذا فانكشن الى موديول جديد

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 للاخفاء

و

ShowAccess للاظهار من جديد