اظهار صورة حسب قيمة حقل معين

[jo_2010]

الخبراء الافاضل ما اريدة بالصورة

JO_Lab.rar

[Moosak]

تريده هكذا أستاذ يوسف ؟ 🙂 

JO_Lab.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي ..

فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل .

قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :-

Private Sub تفصيل_Paint()
    If IsNull(Me.External_lab) Or Me.External_lab = "" Then
        Me.FokshTxT.BackStyle = 1
        Me.FokshTxT.BackColor = RGB(255, 230, 250)
    Else
        Me.FokshTxT.BackStyle = 0
    End If
End Sub

حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :-

 

وملفك بعد التعديل :-

JO_Lab.zip