وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي ..
فكرتي تتلخص بالعمل على حدث 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