اخفاء شاشة الاكسس - access hide window

اخفاء شاشة الاكسس - access hide window

 لاخفاء شاشة الاكسيس نهائيا

اتبع الطريقة التالية

1. اعرض النموذج في وضع التصميم

2. اختر خصائص النموذج وانتقل للتبويب الكل واجعل الخيار

منبثق الى نعم

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

من اشرطة قوائم الاكسيس

1. اختر ادوات ثم بدء التشغيل

2. ازل علامات الصح من المربعات

3. من خيار فتح تموذج / صفحة اضغط السهم للاسفل واختر النموذج المطلوب الذي سيفتح في بداية التشغيل

4. اختر موافق

لوضع الحدث

1. اعرض النموذج في وضع التصميم

2. اختر خصائص النموذج

3. انتقل للتبويب حدث

4. اختر الحدث عند الفتح

5. اضغط على السهم الصغير وسترى عبارة اجراء حدث ثم بإختيارها

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

او اختصارا لهذه الخطوات قم بالضغط مباشرة على المفتاحين معا في لوحة المفاتيح ALT+F11 وسيفتح لك محرر الفيجول بيسك

7. ضع هذا الكود في حدث عند الفتح

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub

عمل زر انهاء البرنامج بالكامل

انشىء زر امر على النموذج وضع في حدث عند النقر هذا الكود

DoCmd.Quit

انشاء وحدة نمطية جديده

انتقل الى اطار القاعدة وسترى كائنات القاعدة ( جداول - تقارير - استعلامات - نماذج - ماكرو - وحدة نمطية )

اختر الاخيرة ومن ثم اختر جديد

الان ضع هذا الكود

Option Compare Database

Global Const SW_HIDE = 0

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

قم بحفظ ما عملت واخرج من القاعدة وبرنامج الاكسيس واعد فتح القاعدة سترى ان شاشة وبنامج الاكسيس مختفي ولا يظهر لك الا النموذج فقط

لتحميل المثال - For download

مدير الموقع

تطوير البرمجيات وبرامج سطح المكتب

فيسبوك

تويتر

انستغرام

شارك هذا المنشور

اشترك في بريدنا الالكتروني لتتوصل باشعار فور نشر موضوع جديد

مواضيع ذات صلة