فتح نمودج فرعي بناء على قيمة في نمودج رئيسي

[outnet]

اخواني السلام عليكم

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

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

مثال : عدد مدرسي العربية بمدرسة ابي بكر الصديق : 3

عند الضغط على الخانة التي بها 3 يفتح نموجد فرعي به اسماء المدرسين التلاثة لمادة العربية

ارجو الا اكون قد ازعجتكم بتساؤلاتي و اتمنى ان اجد الحل لديكم

المثال بالمرفق

bd1.zip

[ظل السراب]

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

يفترض ان يكون مصدر النموذج الفرعي جدول غير الجدول الذي هو مصدر لنموذج الرئيسى

والله اعلم

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

[outnet]

هو كذلك يا اخي فلدي جدولين احدهما بأسماء المدارس و الاخر باسماء المدرسين

ها هو المثال معدل بالمرفق

bd1.zip

[ظل السراب]

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

اذا كان هذا هو المطلوب في المثال التالي

واذا كان غير ذلك يرجا التوضيح اكثر

والله اعلم

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

bd1.zip

[outnet]

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

شكرا اخي الكريم على المجهود و اعتدر منك لان المثال الدي حملته في المرفق خاطئ و ليس موضوع نقاشنا

في المرفق تجد المثال المراد مع الشرح

و ارجو ان تكون الصورة قد اتضحت امامك

تجد نمودجا يعرض مجموع مدرسي كل مادة و مدرسة كل مدرسة في النمودج الفرعي

المطلوب عرض مدرسي كل مادة اضغط على مجموع مدرسيها فقط و ليس جميع المدرسين

bd1.zip

[rudwan]

استخدم الكود التالي في حدث عند النقر على حقل العربية

Dim f As String
f = "العربية"

Me.Pers.Form.RecordSource = "SELECT Pers.* FROM Pers WHERE (((Pers.m_form)= " & f

و مثله لأجل المزدوجة

[outnet]

أخي العزيز رضوا ن

المرجو التأكد من الكود ( الاقواص في الشرط (((Pers.m_form) ) لانه لا يعمل لدي

و شكرا

[rudwan]

يمكنك ازالة الأقواس , أو استخدام الكود المعدل التالي :

Dim f As String
f = "[m_form] = 'العربية'"

Me.Pers.Form.RecordSource = "SELECT Pers.* FROM Pers WHERE " & f

[outnet]

شكرا اخي رضوان

استفسار اخير كيف اغير الكود ان كانت لائحة المدرسين في نفس النمودج الرئيسي و ليس في النمودج الفرعي المسمى Pers

و شكرا

[rudwan]

غير اسم النموذج فقط

ويمكنك الاختصار الى Me.RecordSource

بدلا من Me.Pers.Form.RecordSource

[outnet]

شكرا اخي رضوان

ولكن غيرت اسم النمودج في الكود و لازال المشكل قائما بالنسبة لكلمة pers في السطر الثاني لا ادري بما اعوضها

[rudwan]

قلت لك عوضها كما يلي :

Me.RecordSource = " SELECT *******"

[matrix_0004]

السلام عليكم

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

()Private Sub Form_Current
With Me![Subform_name].Form
.Visible = (.RecordsetClone.RecordCount > 0)
End With
End Sub

[outnet]

اخي الكريم

استسمحك ان كنت اكثرت عليك لكن الكود لم يعمل معي

تجد في المرفق النمودج الدي اعمل عليه

ارجو العمل عليه مع الشكر

اعتدر مرة اخرى

bd10.zip

[rudwan]

السبب أنك غيرت مصدر البيانات

انظر التعديل على حقل واحد و هو العربية الأول

bd10.zip

[outnet]

شكرا اخي الكريم

المثال واضح

المشكل هو انه يعرض كل أساتدة العربية الموجودين في الجول و ليس مدرسي المدرسة المعنية بالامر فقط

المرجو التعديل

[rudwan]

من الأفضل العودة الى استخدام النموذج الفرعي كنتائج للاستعلام