يا اخواني ارجو تلوين كلمة البحث في الملف المرفق مثلا :
محمد احمد سالم
محمد محمد حميد
عوض حميد محمد
احمد محمد ابراهيم
فتكون كلمة محمد في MSFlexGridا اينما كانت ملونة يا ليت تفيدوني
- لا أعلم إن كان هناك طريقة لتلوين جزء من محتوى خلية في أداة الفليكس قريد ولكن ما أعلمه أنه يمكنك تلوين محتوى الخلية كامل ، ولكن سأعطيك طريقة لنقل مثلاً بدل تلوين كلمة البحث تضع كلمة البحث بين قوسين ، يعني أي جزء من محتوى الخلية مطابق لكلمة البحث يتم وضع قوسين حوله ، سأعدل على الجزء الخاص بالإستعلام ولنفترض أن الحقل الخاص بالإسم هو 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
- أهلا أخي الكريم ، إستخدم هذا الكود في تصدير محتوى الفليكس قريد إلى ملف نصي :
كود :
Private Sub Command1_Click()
Dim MaxLen(MSFlexGrid1.Cols - 1) As Integer
Dim I As Long
Dim N,F As Integer
Dim CurrentLine As String
For I = 0 To MSFlexGrid1.Rows - 1
For N = 0 To MSFlexGrid1.Cols - 1
IF Len(Trim(MSFlexGrid1.TextMatrix(I,N))) > MaxLen(N) Then
MaxLen(N) = Len(Trim(MSFlexGrid1.TextMatrix(I,N)))
End IF
Next
Next
F = FreeFil
Open App.Path & "\MSFlexGrid1.Txt" For Append As #F
For I = 0 To MSFlexGrid1.Rows - 1
CurrentLine = ""
For N = 0 To MSFlexGrid1.Cols - 1
IF Len(Trim(MSFlexGrid1.TextMatrix(I,N))) < MaxLen(N) Then
CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I,N)) & Space(MaxLen(N) - Len(Trim(MSFlexGrid1.TextMatrix(I,N)))) & Space(5)
Else
CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I,N)) & Space(5)
End IF
Next
- أعتذر منك أخي فعلاً كانت في الكود أخطاء برمجية وإملائية ولذلك لعدم تجربتي له حيث أنني كتبته من جهاز الموبايل , على العموم تم التصحيح , وتم وضع الكود في مثالك السابق .
ما شاء الله عليك يا استاذ VB_Coder وشكرا لك
بس يا ليت تعمل لي ProgressBar
لأن لدي مليون اسم لأجل اعرف هل جاري البحث ام لا ولم استطع ارفع لك الملف لأن حجمه 130 ميغا
الله يحفظك ولو تعبتك معي