[VB_Coder]

السلام عليكم

- لا أعلم إن كان هناك طريقة لتلوين جزء من محتوى خلية في أداة الفليكس قريد ولكن ما أعلمه أنه يمكنك تلوين محتوى الخلية كامل ، ولكن سأعطيك طريقة لنقل مثلاً بدل تلوين كلمة البحث تضع كلمة البحث بين قوسين ، يعني أي جزء من محتوى الخلية مطابق لكلمة البحث يتم وضع قوسين حوله ، سأعدل على الجزء الخاص بالإستعلام ولنفترض أن الحقل الخاص بالإسم هو a وكلمة البحث ستكون في Text1 :

كود :

Set RsRe = Module1.db.OpenRecordset("select Replace(a," & Trim(Text1.Text) & ",'(" & Trim(Text1.Text) & ")') As a,b,c from d" & strLike, dbOpenDynaset)
Do Until RsRe.EOF
MSFlexGrid1.AddItem s & vbTab & RsRe!b & vbTab & RsRe!a & vbTab & RsRe!c
RsRe.MoveNext
Loop

- تحياتي .