مساعدة في إظهار نماذج فرعية وإخفائها

[nssj]

في الملف المرفق النموذج الرئيسي (FRM1) وفيه ثلاث نماذج فرعية

1- (FRM_RMZ_X)

2- (Frm_TF)

3- (FRM_TFX)

بالنسبة للنموذجين الأول والثاني فالمطلوب -إن أمكن- ألا يظهرا إلا إذا كان فيهما بيانات، أما إذا كانت الحقول فارغة فلا يظهر النموذج الفرعي أصلاً بدل أن يظهر بحقوله الفارغة

أما بخصوص النموذج الفرعي الثالث (FRM_TFX) فالمطلوب ألا يظهر إذا كان حقل (MNO) فارغاً

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

MusndWZwayid001.rar

[ناقل]

استخدم هذا الكود للشق الاول من السؤال لاني اكتب من الجوال 

ضع هذا الكود في النموذج الرئيسي ...

Private Sub Form_Current()
Me.FRM_RMZ_X.Visible = Me.FRM_RMZ_X.Form.Recordset.RecordCount > 0
Me.Frm_TF.Visible = Me.FRM_TFX.Form.Recordset.RecordCount > 0
End Sub

وقد تجد الاجابة للشق الثاني من الزملاء إن شاء الله تعالى ...

تم تعديل أبريل 10, 2021 بواسطه ناقل

[ابو جودي]

ونقلا عن الاستاذ @ناقل 

اتفضل المرفق 

MusndWZwayid001(2).accdb

[nssj]

شكلو مصباح علاء الدين شغال اليوم على وذنو  😁 .. وأنا مش ملحق عليه .. راح أجرب المرفق وأبلغكم بالنتيجة

[nssj]

شكراَ للأخ ناقل والأخ الناقل  ابا جودى  😁

تم المطلوب بحمد الله .. فبارك الله فيكما

مع إني زعلان شوي  .. فكرت حالي صرت معلم، وخليت النماذج الفرعية بخاصية غير مرئي، وبالنسبة للسطر

If Not IsNull(Form_FRM_TFX.txtMNO) Then Me.FRM_TFX.Visible = True Else Me.FRM_TFX.Visible = False

 

شفتو طويل شوي .. وقلت لحالي: مادام إنو هالنموذج صار غير مرئي أصلا، يعني مافي داعي للجملة الأخيرة (Else Me.FRM_TFX.Visible = False)

وشطبتها ..

بس ما زبطت .. صار النموذج يظهر حتى وحقل (MNO) فارغ .. والغريب إنو بيظهر دايما مع نموذج (Frm_TF)

فرجعت كل شي زي ماكان .. وبطلت تجارب واختراعات 😐

[ابو جودي]

38 دقائق مضت, nssj said:

.. وقلت لحالي

لا تقول لحالك شئ تانى ولا تكلمه دى اخرتها هاهاهاهاهاها

تم تعديل أبريل 10, 2021 بواسطه ابا جودى