تلوين بيانات سجل من مجموعة سجلات

السلام عليكم HnHn

اولا لنفرض ان حقل المفتاح الاساسي عندك ( الذي به قيم لا تتكرر مثل رقم الطالب ) مربوط ب text1

عرف متغيير global باعلى الكود ( في general ليتم التعامل معه في كل جزئيات البرنامج) و لنفرض انه x على انه string

اضف الكود التالي

Private Sub Check1_Click()
If Check1.Value = 1 Then x = text1.Text
End Sub

في كود التنقل بين القيم والسجلات اضف بعد اخر جملة الكود

if text1.text=x then 
text1.forecolor =vbred
else
text1.forecolor=vbblack
end if

أشكرك أخي بعنف