ماهو الكود لإخفاء مربع نص إذا كان فارغ؟

[mohammed55]

ماهو الكود لإخفاء مربع النص وتسميته في التقرير إذا كان مربع النص فارغ, أما إذا كان مربع النص غير فارغ فيكون ظاهر مع تسميته.

مربع النص=Tendercomments

تسمية=Lable43

[فهد الدوسري]

استخدم هذا

If IsNull(Tendercomments) Then
Tendercomments.Visible = False
Lable43.Visible = False
Else
Tendercomments.Visible = True
Lable43.Visible = True
End If

تحياتي ..

[بو يوسف الراشد]

جزاك الله ألف خير يا الحبيب (فهد الدوسري)

لكن في أي حدث نضع هذا الكود

[biskra]

اٍذا كان مربع النص المراد اٍخافئه في تفصيل التقرير , ضع التقرير في وضع التصميم بواسطة زر الفأرة الأيمن اٍضغط فوق الخط الرمادي الموجود في أعلى قسم التفصيل من التقرير ثم خصائص ثم حدث ثم عند التنسيق هنا سوف يفتح محرر الفيجوال أنسخ الكود و عدل اٍسم الحقل و الليبل حسب حاجتك ثم الحفظ.

[فهد الدوسري]

شكرا لك على الإجابة أخوي biskra

[mohammed55]

شكرآ ياأخوان على المساعدة

سؤال ثاني قريب من السؤال الأول,

مثلآ لوعندي مربع نص:Status وعندي مربعين نص أخرين أسمهم: Actual , Planned

ماهو الكود:

إذا كان مربع النص Actual أكبر من مربع النصPlanned يظهر كلمة مثلآ "متقدم" في مربع النص Status ويكون لونه أخضر.

أما إذا كان مربع النص Planned أكبر من مربع النص Actual يظهر كلمة مثلآ "متأخر" في مربع النص Status ويكون لونه أحمر

أما إذا كان غير ذلك فيظهر كلمة "في الوقت المحدد" في مربع النص Status

[فهد الدوسري]

جرب هذا

If Actual > Planned Then
Status = "متقدم"
Status.BackColor = 65280

ElseIf Planned > Actual Then
Status = "متأخر"
Status.BackColor = 255

Else
Status = "في الوقت المحدد"
Status.BackColor = 16777215

End If

بالنسبة لمكان وضع الكود فهو كسابقه إذا كان في التقرير .

تحياتي ..

[mohammed55]

شكرآ ياأخوان على تعاونكم