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

اخي الفاضل

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

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

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

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

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

الاخت زهرة

بعد التحية والاحترام

لقد حاولت ولم تنجح المحاولة

حيث تم ادراج الامر في القائمة الرئيسية فقط

وحينما افتح قائمة اخرى يفتح معها اطار الاكسس وتغلق مع الرجوع للقائمة الرئيسية

مع ملاحظة انه يوجد امر اغلاق النموذج الرئيسي في حال فتح اي نموذج اخر (لسبب معين)

اذا كان هذا السبب ارجو الافادة

مرفق ملف للتجربة لأن البرنامج كبير كثير

قائمة رئيسية وقائمة المتدربين فقط

AcademyTest.zip

تفضل اخي الكريم

ملفك بعد التعديل

السبب وراء اغلاق النموذج مباشرة هي الاكواد الموضوعة في حدث عند الفتح وقد قمنا بتعليقها لانها تحمل كود اغلاق DoCmd.Close

AcademyTest_ZA.rar

اختكم

زهره

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

لقد اوشك الوقت على الانتهاء من تصميم برنامج خاص بجهة تدريب حاسب الي

وكان الفضل بعد فضل الله في ذلك لكي اختي الكريمة كجزء كبير جدا في حل بعض الاشكالات التي تخيلت بأن ليس لها حل

ولا انكر فضل بعض المشرفين والاخوة المشاركين

بليييز Enjoy

ممكن رابط الموضوع No Access

الاخ Scoool

الموضوع مايحتاج رابط ولا شي

فقط قم بانزال آخر ملف تم تعديله من قبل الاخت زهرة وستجد مطلوبك فية (ِAcademyTest ZA)

وفي حال رغبتك في ادراج الامر في برنامجك قم بنسخ الامر الموجود في حدث عند فتح في القائمة الرئيسية والصقة في قائمة برنامجك الرئيسية

شلون نقدر انشوف الكود و البرنامج فقط قاعد يعرض لينا الفورم في صورة عرض و ما نقدر نسوي اي اكسس اليها......, اذا ممكن حط لينه الطريقة الي قمت فيها او مثل ما قال اخ scoool حط لينا رابط الموضوع NO Access وجزاك الله خيرا.

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

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

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

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

وهذا مثال

No_Access_up.rar

اختكم

زهره

السلام عليكم

الاخت الفاضلة زهرة الله يعطيك الصحة والعافية وعساك على القوه .....الف شكر 1000000000000000000%

الاخ الفاضل Enjoy

مشكور على السؤال الجيد والى الامام إن شاء الله

تحياتي