• 0
Enjoy

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

سؤال

شاهدت موضوع للأخت زهرة بعنوان No Access

وكان مثال رائع جداً واصبح استخدمة الان

ولكن عندي سؤال هل يمكن وضع امر لمرة واحدة

ويتم العمل بهذا الامر لكل النماذج في البرنامج

اذا كان الجواب نعم فأرجو ارفاق مثال

وإذا كان الجواب لا

فأرجو الايضاح

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

9 إجابة على هذا السؤال .

  • 0

اخي الفاضل

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخت زهرة

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

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

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

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

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

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

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

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

AcademyTest.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

AcademyTest_ZA.rar

اختكم

زهره

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بليييز Enjoy

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخ Scoool

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

اختكم

زهره

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

الاخ الفاضل Enjoy

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

تحياتي

-1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .