عدم تغيير فى ال Forecolor لل Text Box عند فتح النموذج ؟

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

أخي الكريم ضع هذا الكود في حدث الحالي للنموذج وآمل أن يفي بالمطلوب ...

If Ctl1 >= 10 Then
Ctl1.ForeColor = 225
End If
If Ctl2 >= 10 Then
Ctl2.ForeColor = 225
End If
If Ctl3 >= 10 Then
Ctl3.ForeColor = 225
End If
If Ctl4 >= 10 Then
Ctl4.ForeColor = 225
End If
If Ctl5 >= 10 Then
Ctl5.ForeColor = 225
End If
If Ctl6 >= 10 Then
Ctl6.ForeColor = 225
End If
If Ctl7 >= 10 Then
Ctl7.ForeColor = 225
End If
If Ctl8 >= 10 Then
Ctl8.ForeColor = 225
End If
If Ctl9 >= 10 Then
Ctl9.ForeColor = 225
End If

أخى الكريم / أبو رهف

أرجوا المعذرة لتأخرى فى الرد لمشاكل فى الإتصال و أشكر لك إجتهادك و تفاعلك معنا

الكود الذى أرفقتموه جيد وكان بإمكانى عملة ولكن القيمة التى تحدد تغيير اللون وهى هنا الرقم 10 قيمة غير ثابتة ولا يمكن التحكم فيها لذلك

لجأنا لعمل وحدة نمطية هدفها بيان إذا كان الـ TextBox   فى كل النموذج مهما كان عددوها هل يحتوى على علامة النجمة أم لا و لكنا فشلنا فى ذلك

Public Function Txtcolor()

Dim FRMy As Form

Dim ctly As Control

Set FRMy = Screen.ActiveForm

Set ctly = FRMy.ActiveControl

If Right("ctly", "1") = "*" Then

ctly.ForeColor = vbRed

Else

ctly.ForeColor = vbBlack

End If

End Function

أرجوا أن أكون أوضحت الفكرة

UP