إخفاء إطار الأكسس

أنشأ قاعدة بيانات جديدة أو افتح قاعدة بيانات موجودة لديك مسبقاً واذهب إلى قسم الوحدات النمطية كما في الشكل التالي .

بعد ذلك اضغط على الأيقونة المسماة جديد سوف يفتح لك محرر الفيجوال بيسك الخاص بالوحدات النمطية كما في الشكل التالي .

ألان قم بنسخ هذا الكود ولصقه في مكانه المخصص كما هو موضح في الصورة أعلاه .

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)

End Function

الآن قم بحظف الوحدة النمطية بأي اسم تختاره وفي مثالنا هذا سنقوم بحفظها باسم ( HideAccessWindow ) وأغلق محرر الفيجوال بيسك .

بعد ذلك اذهب لقسم النماذج وافتح النموذج الذي تريد عند فتحه أن تختفي شاشة الأكسس (إطار الأكسس ) أو أنشاء نموذج جديد افتح خصائص النموذج واختر التبويب ( غير ذلك ) ثم أختر البند المسمى ( منبثق) غير إجراءاه بدلا من ( لا ) إلى ( نعم ) وكذلك البند المسمى ( مشروط ) غير إجراءاه بدلا من ( لا ) إلى ( نعم ) كما في الشكل التالي .

ثم اذهب إلى التبويب ( حدث) وأختر البند المسمى ( عند الفتح ) وأختر منه إجراء حدث ثم اضغط على المربع الصغير الذي على يسار الإجراء وهو بهذا الشكل لفتح محرر الفيجوال بيسك انظر هذا الشكل .

وبعد فتح محرر الفيجوال بيسك سيظهر بهذا الشكل

انسخ الكود بالأسفل والصقه بين سطري الحدث عند فتح النموذج .

وهذا شكل محرر الفيجوال بيسك بعد لصق الكود فيه .

أغلق محرر الفيجوال بيسك ثم قم بحفظ العمل إما من قائمة ملف ثم حفظ أو من الأيقونة حفظ في شرط أدوات الأكسس بالأعلى ثم قم بالضغط على أيقونة مربع الأدوات الموجودة بشريط أداوت الأكسس بعدها سيظهر لك مربع الأدوات بهذا الشكل .

اضغط على الأيقونة في مربع الأدوات المسماة زر أمر وحرك الفأرة إلى أي مكان في النموذج بالضغط على الفأرة من اليسار لتحديد مكان زر الأمر ثم سيظهر تلقائيا معالج زر الأمر بهذا الشكل .

اختر من المعالج نوع الفئة المسماة ( تطبيق ) ومن ( إجراءات ) التطبيق اختر إغلاق تطبيق كما في الشكل التالي .

الآن قم بالضغط على زر ( التالي ) باستمرار حتى ينهي المعالج صنع هذا الزر ويظهر الزر بهذا الشكل على النموذج .

الآن أيضا قم بحفظ العمل والخطوات من قائمة ملف ثم حفظ أو من أيقونة الحفظ بشريط أدوات الأكسس ثم افتح النموذج ستجد أن شاشة أطار الأكسس اختفت كلياً ...

ملاحظه إذا قمت بعمل زر إغلاق للنموذج وليس للتطبيق فان النموذج سيقفل ولكن القاعدة تضل تعمل في خلفية الويندوز ولذلك يجب عليك إغلاقها عن طريق مدير الملفات بالضغط على الأزرار التالية مع بعضها البعض Ctrl + Alt + Delete ثم اختر اسم الأكسس واضغط على إنهاء لإنهاء عمل الأكسس .