اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

bd1.zip

قام بنشر

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

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

والله اعلم

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

قام بنشر

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

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

bd1.zip

قام بنشر

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

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

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

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

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

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

bd1.zip

قام بنشر

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

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

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

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

قام بنشر

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

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

و شكرا

قام بنشر

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

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

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

قام بنشر

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

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

و شكرا

قام بنشر

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

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

قام بنشر

السلام عليكم

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

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

قام بنشر

اخي الكريم

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

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

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

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

bd10.zip

قام بنشر

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

المثال واضح

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information