إخفاء أو إظهار صورة ( صورة عادية ) بناءا على قيمة حقل معين

[nonar]

السلام عليكم ... 
لدي نموذج ( أو حتى تقرير ) يحتوي على مربعات نصية .. 
هل بالإمكان إضافة قاعدة شرطية بحيث إذا كانت قيمة الحقل أكبر من 80 ( مثلا ) تظهر صورة محددة ، وإذا كانت قيمة الحقل بين ( 80 - 70 ) ( مثلا ) تختفي الصورة وتظهر صورة أخرى ,,,, 


جربت الكود التالي 

 

if (lable.value >80 ) then 

pic.visble=true 

end if 

ولكن بلا فائدة ,,, 

طبعا وضعت الكود في ( عند تحميل النموذج ) ووضعته في ( في الحالي ) وبلا فائدة .. 


أفيدونا أفادكم الله 

[عبد اللطيف سلوم]

ارفق مثال للتطبيق عليه

[Abu Farid]

جرب الكود:

if (lable.Caption >80 ) then 

pic.visble=true 

end if 

 

[محمد أبوعبدالله]

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

استخدم الكود التالي في حدث في الحالي

Private Sub Form_Current()

    If Me.lable.Value > 80 Then
        pic.Visible = True
    Else
    pic.Visible = False
    End If

End Sub

 

[nonar]

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

وفقكم الله 

Database1.rar

[Abu Farid]

تقضل أخي خليت 80 او اكثر (الوجه المبتسم) و اقل من 80 (الوجه الحزين )

Database1 (1).rar

تم تعديل يونيو 26, 2020 بواسطه Abu Farid

[nonar]

بارك الله فيك اخي ابو فريد.  ..

جاري التجربة 

[nonar]

صورة7.Visible = grade >= 80
صورة8.Visible = grade < 80

ما تم إضافته من قِبل استاذي أبو فريد .. 

 

[ammarhowari]

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

تم تعديل يوليو 14, 2020 بواسطه ammarhowari