المطلوب تعديل كود إخفاء شاشة الأكسس ليعمل على نسخة 2010

اخي الفاضل : فرج ابراهيم عاشور

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

تفضل هذا الكود الذي يقوم بإخفاء شاشة الأكسيس وهو يعمل على اكسيس 2010

ضع هذا الكود في وحده نمطية جديده

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Function HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Function

قم بإستدعاء كود اخفاء الشاشة من خلال حدث عند التحميل للنموذج الرئيسي

Private Sub Form_Load()
Call HideAccess
End Sub

الآن في جميع النماذج والتقارير قم بعمل التالي

من خصائص النموذج والتقرير ضع التالي :

منبثق = نعم

شكلي او مشروط = نعم

نمط الحدود = مربع حوار

بالتوفيق