التبديل المستمر للون الخلفية او لون الخط في نماذج اكسس

التبديل المستمر للون الخلفية او لون الخط  في نماذج اكسس

ان عملية تغيير اللون بشكل تلقائي من لون الى اخر  تعتبر من الامور السهلة من الناحية البرمجية ولتنفيذ ذلك فاننا سنستخدم الدالة IF  في حدث عند المؤقت (On Timer) كما سيتطلب منا معرفة ما يلي:

1-      ForeColor= وتستخدم لتحديد لون النص

2-      BackColor= وتستخدم لتحديد لون الخلفي

ولفهم الموضوع بشكل اكبر سنقوم بعمل نموذج جديد يحتوي على مربع نص (Text2) وتسمية (Lable2) وسنقوم  بعمل تنبيه ضوئي عليها

بعد اضافة المربعات نقوم بتعديل فترة التنبيه (Timer Inteval) ونقوم باضافة الكود التالي في حدث عند التنبية (On Timer) 

VBA

Private Sub Form_Timer()
'Label2 لتغيير لون الخلفية للتسمية 
If Label2.BackColor = 255 Then
Label2.BackColor = 967400
Else
Label2.BackColor = 255
End If


'Text2 لتغيير لون الخط في المربع 
If Text2.ForeColor = 255 Then
Text2.ForeColor = 12349952
Else
Text2.ForeColor = 255
End If
End Sub