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

[at_aziz]

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

اخواني عندي مشكله  ماقدرت احلها

عندي نموذج مستمر    

وأريد ان اخفي ايقونة واظهر الأخرى  او العكس بناء على القيمة الموجود في الحقل yn  اللي في الصف

يعني مثلا

لو قيمة الحقل YN    في الصف    تساوي   N     اظهر ايقونة BTN1    واخفي ايقونة BTN2

لو قيمة الحقل YN    في الصف    تساوي   Y     اظهر ايقونة BTN2    واخفي ايقونة BTN1

حاولت احلها  لكن للأسف  محاولاتي باءت بالفشل

 

ارجو المساعده بارك الله فيكم وجزاكم الله خير

في حلها

شاكر لكم

 

 

azizz.rar

تم تعديل أبريل 26, 2021 بواسطه at_aziz

[SEMO.Pa3x]

استخدم الـ TextBox بدل الـ Button وإستخدم التنسيق الشرطي أسهل لك

[at_aziz]

جزاك الله خير وبارك فيك اخي الفاضل دكتور ابو مهاب

 

هذي الطريقه في بالي 

 

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

 

شاكر لك

[at_aziz]

هل يوجد حل ياخوان لهذة المشكلة

[أبو إبراهيم الغامدي]

أهلا يك أ. عطا

57 دقائق مضت, at_aziz said:

هل يوجد حل ياخوان لهذة المشكلة

عن طريق زر الأمر لا أعتقد..

لكن إذا كنت تستخدم أكسس 2007 فما فوق.. يمكن أن يكون الحل في المرفق مقبولا..

azizz.accdb

[ابوخليل]

الفكرة تحفة يابو ابراهيم سلمت أناملك

لاحظت انه عند ادراج بيانات جديدة او تعديل الحقل yn  لا تستجيب الصورة للحدث

اعتقد يحتاج الحقل yn  بعد التحديث الى تنشيط الفورم بــ Refresh أو نحو ذلك

 

[at_aziz]

بارك الله فيك وجزاك الله خير ابا ابراهيم

الله يعطيك الصحة والعافيه   

والله ماقصرت وبيض الله وجهك

اللي سويته هو المطلوب  

الف شكر لك استاذي الكريم

 

 

والشكر موصول لأستاذنا الفاضل ابو خليل

على ملاحظته   وسوف اضيف كود التحديث كما ذكرت 

 

شاكر لكم ومقدر

تحياتي واحتراكم لكم

[أبو إبراهيم الغامدي]

أهلا بك أ. أبو خليل..

2 ساعات مضت, ابوخليل said:

لاحظت انه عند ادراج بيانات جديدة او تعديل الحقل yn  لا تستجيب الصورة للحدث

اعتقد يحتاج الحقل yn  بعد التحديث الى تنشيط الفورم بــ Refresh أو نحو ذلك

نعم صدقت.. 

كان القصد بيان ما يمكن أن يكون حلاً ولم أستوعب..

بما أن الصورة تعتبر في هذه الحالة عنصر محسوباً فيمكن أن نضع في حدث (بعد التحديث) للحقل المؤثر الشفرة التالية

Private Sub yn_AfterUpdate()
   Me.Recalc
End Sub