اخفاء نموذج (وليس اغلاقه) عند فتح نموذج اخر ثم العودة للنموذج المخفي وأغلاق المفتوح

[محمد صلاح1]

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

وعند الضغط علي زر الأنتقال في هذه النموذج الثاني يتم العودة للنموذج الأول المخفي واغلاق النموذج المفتوح وشكراً

اخفاء نموذج (وليس اغلاقه) عند فتح نموذج اخر ثم العودة للنموذج المخفي وأغلاق المفتوح.mdb

[essam rabea]

فى النموذج الاول ضع الكود التالى

DoCmd.OpenForm "form2"
Forms!form2.Visible = True
Me.Visible = False

وفى الثانى

DoCmd.OpenForm "form1"
Forms!form1.Visible = True
Me.Visible = False

فى حدث عند الضغط على المفتاح

عسى أن يكون المطلوب

[محمد صلاح1]

13 دقائق مضت, essam rabea said:

عسى أن يكون المطلوب

مرحباً بأستاذي العزيز دائماً منورني بإفادتك الكريمة

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

تم تعديل أكتوبر 22, 2019 بواسطه محمد صلاح1

[الحلبي]

مجرد توضيح

لقد وضعت الاكواد كما اشار استاذنا وخبيرنا / عصام ربيع جزاه الله كل خير

وكل شئ تمام ولا تظهر الرساله 

[essam rabea]

أ.محمد صلاح1

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

اخفاء نموذج (وليس اغلاقه) عند فتح نموذج اخر ثم العودة للنموذج المخفي وأغلاق المفتوح.mdb

[محمد صلاح1]

42 دقائق مضت, essam rabea said:

هو انا طبعا مش عارف النماذج اللى طبقت عليها فيها ايه بس

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

[أبو عبدالله الحلوانى]

السلام عليكم 

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

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

DoCmd.OpenForm "form2"  
Forms!form2.Visible = True
Forms!form2!T0.Setfocus
Me.Visible = False

علي اعتبار أن T0 هي أحد عناصر التحكم علي الفورم 2 ( ولا تنسي تغير المسميات الي ما هو موجود عندك)

تمنياتي بالتوفيق 

[محمد صلاح1]

ليس هناك أي عنصر عليه حدث عند التركيز في النموذجين

[محمد صلاح1]

بعد بحث في منتديات أخري وجدت حلاً تحالياً وهو عمل Minimize بدلاً من الإخفاء للنموذج الأول من خلال هذا الكود تحت زر التنقل
   

Dim stDocName As String
Dim stLinkCriteria As String
    stDocName = "Form2"
    DoCmd.Minimize
    DoCmd.OpenForm stDocName, , , stLinkCriteria

والحمد لله نجح الأمر والنموذج الثاني يفتح بدون أظهار أي رسائل ولكن بقيت تكة بسيطة مازالت تؤرقني وهي أن النموذج الثاني يفتح مختفياً خلف أو وراء النوافذ الحالية المفتوحة علي الجهاز لبرامج أخري غير الاكسيس وبالتالي لا يظهر حتي بعد أن جعلته شكلي أو مشروط نعم ولا يظهر إلا بعد عمل Minimize لهذه النوافذ فهل هناك تعديل أو إضافة علي الكود يسمح بظهور النموذج الثاني متصدراً واجهة الشاشة

تم تعديل أكتوبر 23, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

كده الحلين مش كاملين

الأول وهو للإخفاء وتظهر به رسالة حتي الآن لم نستطيع التخلص منها

الثاني وهو للتصغير وبه إشكال أن النموذج يظهر وراء النوافذ المفتوحة

فهل من تجاوب لإيجاد حل نهائي لأحد السبيلين وشكراً

للرفع

[essam rabea]

يبقى مفيش غير حل واحد .. إنك ترفع مرفق للدراسة وإبداء الرأى

[محمد صلاح1]

شكراً أستاذنا علي حسن المتابعة

3 ساعات مضت, essam rabea said:

يبقى مفيش غير حل واحد .. إنك ترفع مرفق للدراسة وإبداء الرأى

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

معلش خدت وقت طويل ولكن بتوفيق الله استطعت استقطاع الجزء المطلوب كما بالمرفق

التنقل بين النماذج.accdb

تم تعديل أكتوبر 24, 2019 بواسطه محمد صلاح1

[essam rabea]

أ.محمد صلاح1

جرب كده

التنقلTest.accdb

[محمد صلاح1]

ما شاء الله أهو ده الكلام  تسلم أيدك أستاذنا وبارك الله فيك

[essam rabea]

[أبو عبدالله الحلوانى]

في ٢٣‏/١٠‏/٢٠١٩ at 08:06, محمد صلاح1 said:

ليس هناك أي عنصر عليه حدث عند التركيز في النموذجين

علي فكرة أنا ما قلت حدث عند التركيز أنا قلت ازالة التركيز من الفورم أو أي عنصر علي الفورم - فالفورم النشط دائما يحوز التركيز -

وعلي كل وتوضيحا للفكرة  وتضامنا مع استاذنا عصام ربيع (علي رأي أستاذنا زيادة الخير خيران)

جرب هذا 

 

التنقل بين النماذج.accdb

[essam rabea]

حبيبى يا أبو عبدالله .. أحسنت والله .. وما زلت أتعلم رغم الكِبَر

[أبو عبدالله الحلوانى]

أستاذي ومعلمي هذا تواضع منكم بل أنت أستاذنا 

ثم كبر ايه انت في عز الشباب (هما مش بيقولو الشباب يبدأ بعد الأربعين  ولا حضرتك بتخزي العين )

[essam rabea]

بعد الأربعين ماشى .. بس أنا على مشارف الستين 😉

[أبو عبدالله الحلوانى]

(شٌ) يعني شاب بشرطتين (هذا شباب مضاعف )

[محمد صلاح1]

أستاذ @essam rabea نظراً إلي أن النماذج لدي كثيرة هل من الأفضل إنشاء وحدة نمطية لتنفيذ كود الفتح "الانتقال" وكود "العودة" (أي من وإلي نموذج الشاشة الرئيسية وبقية النماذج التي ستفتح من خلاله) بحيث يتم استدعائهما فقط داخل النماذج التي ستتعامل مع نموذج الشاشة الرئيسية وإن كان ذلك هو الأفضل هل بالإمكان قيامكم بذلك وشكراً

@أبو عبدالله الحلوانى شكراُ لاهتمامك

[essam rabea]

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

وزيادة فى المعرفة .. هو لماذا يتم إخفاء النماذج ولا يتم إغلاقها .. إنت عارف لو عندك مثلا 10 نماذج مفتوحة سرعة القاعدة هتبقى عاملة إزاى؟

عموما سأبحث فى هذا الصدد .. ولا تتعجل

[محمد صلاح1]

15 دقائق مضت, essam rabea said:

وزيادة فى المعرفة .. هو لماذا يتم إخفاء النماذج ولا يتم إغلاقها .. إنت عارف لو عندك مثلا 10 نماذج مفتوحة سرعة القاعدة هتبقى عاملة إزاى؟

حبيبنا في الله ربنا يديم عليك الصحة والعافية

توضيح بسيط كل النماذج عدا النموذج الرئيسي أو الفورم1 ستغلق بمجرد الخروج منها والعودة إلي الفورم1 والذي من سيبقي وحده مخفياً أو مضغراً لحين تنشيطه بالعودة إليه من أي نموذج سيفتح من خلاله أتمني أن التصور يكون واضحاً

 

تم تعديل أكتوبر 24, 2019 بواسطه محمد صلاح1

[أبو عبدالله الحلوانى]

بعد اذن استاذنا عصام

جرب هذا اذا لعله يقترب من مرادك

 

التنقل بين النماذج.accdb

[essam rabea]

الله عليك يا أبو عبدالله الحلوانى 

والله ريحتنى دا أنا كنت لسه هنوى أفكر بكره