إخفاء النموذج الفرعي فى حال لا توجد سجلات

[matrix_0004]

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

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

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

[G42U]

جرب أستخدام هذا الكود في الحدث Current في النموج الرئيسي

    SubformName.Visible = Forms!form1!SubformName.Form.RecordsetClone.RecordCount

SubformName=أسم النموذج الفرعي

form1=اسم النموذج الرئيسي

[فتى الوادي]

السلام عليكم ...

اللي فهمت من الموضوع هو أن لديك نموذجين أحدهما فرعي ...

لكن هل الفرعي مبني على الأساسي ؟؟

الأحسن أن ترفق المثال لعلنا نعدل فيه .

[matrix_0004]

أخى حاولة أن أرفع لكم الملف ولكن

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

المهم أنا عندى نموذج f1 قائم على جدول t1 وهذا الجدول مرتبط مع جدول t2 بعلاقة رأس إلى أطراف

بحيث أن عندى f1 نموذج رئيسى و f2 subform فرعى مرتبطين مع بعظهم

أرجو أن أكون أوضحت

بالنسبة لك أخى G42U

لم يضبط الكود مع

وشكرا لكم

[G42U]

الاخ الكريم matrix_0004

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

أنظر في المرفقات ستجد هناك طريقتين الاولى في النموذج Categories والثانية في النموذج f1

noRecords.zip

[أبو شادي]

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

اسمحول لي بالمداخلة

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

حاول اخي الكريم وسوف تجد ما تريده

جزاكم الله كل خير

[matrix_0004]

شكرا لك أخى G42U كنت نعم العون لى

ولكن أنا خلاص إكتشفت الخظأ فى الكود وهو الأقواس بعد

RecordsetClone.RecordCount > 0

ليصبح الكود بالشكل التالى

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

لاحظ النقطة قبل Visible و الأقواس

وشكرا لتفاعلكم إخوانى

طبعا الكود يوضح فى النموذج الأساسى عند حدث فى الحالى

[abd151]

الف شكر لكم على هذا الموضوع والفكرة الجيدة