تغيير لون خلفية مربعات النصوص الفارغة

[أبو وليد]

لدي نموذج اساسي به مربع تحرير وسرد

ونموذج فرعي به مربعات نص

عند التغيير في مربع التحرير والسرد

تتعبأ بعض مربعات النص والبعض يترك فارغا

ما اريده عند تغيير مربع التحرير والسرد مربعات النص الفارغة يتغير لون خلفيتها

وفقكم الله

[أبو وليد]

لم أكن اتوقع أن سؤالي بهذة الصعوبة

للرفع

[rudwan]

يا أخي سؤالك مش صعب و لا حاجه

فيه أكواد بسيطه تعمل اللي أنت عايزه

ضع الكود التالي في النموذج الرئيسي , و غير الأسماء التي فيه الى ما يقابلها عندك

Private Sub MyComboBox_AfterUpdate()
If IsNull(Forms("Form1").Controls("Textbox1").Value) Then
Forms("Form1").Controls("Textbox1").BackColor = RGB(255, 0, 0)
    End If
End Sub

أواذا أردت أرفق ملفك على الايميل التالي

R13532002@YAHOO.COM

تم تعديل ديسمبر 16, 2004 بواسطه rudwan

[أبو وليد]

شكرا عزيزي

ولكن اريد ذلك على مجموعة من مربعات النص وليس واحد

[فتى الوادي]

السلام عليكم

أستخدم ( التنسيق الشرطي ) في شريط الأدوات

[alshadwi]

Dim C As Control

For Each C In Controls

If TypeOf C Is TextBox And IsNull© Then

C.SetFocus

C.BackColor = 100

End If

Next

[أبو وليد]

Dim C As Control

For Each C In Controls

    If TypeOf C Is TextBox And IsNull© Then

        C.SetFocus

    C.BackColor = 100

    End If

Next

C

مالمقصود بالسي هل هو اسم النموذج

[alshadwi]

السي متغير وليس اسم النموذج

Dim C As Control

For Each C In Controls
If TypeOf C Is TextBox And IsNull(C) Then
C.SetFocus
C.BackColor = 100
End If
Next

بعد كلمة IsNull قوسين بينهما المتغير C

ضع الكود في حدث Sub Form_Curren()