تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تلوين كلمة البحث
#1
يا اخواني ارجو تلوين كلمة البحث في الملف المرفق مثلا :
محمد احمد سالم
محمد محمد حميد
عوض حميد محمد
احمد محمد ابراهيم
فتكون كلمة محمد في MSFlexGridا اينما كانت ملونة يا ليت تفيدوني


الملفات المرفقة
.rar   aaaa.rar (الحجم : 253.25 ك ب / التحميلات : 91)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- لا أعلم إن كان هناك طريقة لتلوين جزء من محتوى خلية في أداة الفليكس قريد ولكن ما أعلمه أنه يمكنك تلوين محتوى الخلية كامل ، ولكن سأعطيك طريقة لنقل مثلاً بدل تلوين كلمة البحث تضع كلمة البحث بين قوسين ، يعني أي جزء من محتوى الخلية مطابق لكلمة البحث يتم وضع قوسين حوله ، سأعدل على الجزء الخاص بالإستعلام ولنفترض أن الحقل الخاص بالإسم هو 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

- تحياتي .
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#3
عدل الملف المرفق حسب الذي قلته
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

- حاضر ياسيدي أسويلك مثال , لكن عفوا أخي الكريم , وجدت أن الإستعلام في الأكسس لايدعم دالة الـ Replace لذلك , وضعت الدالة في اللووب .
- تحياتي .


الملفات المرفقة
.rar   aaaa-Fix.rar (الحجم : 193.33 ك ب / التحميلات : 120)
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#5
والله حلو ما شاء الله عليك خلاص تمام
بس انفعني في حاجة واحدة
اريد ارسال محتويات الـ MSFlexGrid الى المفكرة الله يحفظك
الرد }}}
تم الشكر بواسطة:
#6
اين انت يا حبيبي VB_Coder
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

- أهلا أخي الكريم ، إستخدم هذا الكود في تصدير محتوى الفليكس قريد إلى ملف نصي :

كود :
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

Print #F , CurrentLine
DoEvents

Next

Close #F
DoEvents

MsgBox "تم التصدير بنجاح"

End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#8
انا لم يضبط معي ارجوك اعمله في الملف المرفق
الرد }}}
تم الشكر بواسطة:
#9
السلام عليكم

- أعتذر منك أخي فعلاً كانت في الكود أخطاء برمجية وإملائية ولذلك لعدم تجربتي له حيث أنني كتبته من جهاز الموبايل , على العموم تم التصحيح , وتم وضع الكود في مثالك السابق .

- تحياتي .


الملفات المرفقة
.rar   aaaa-Fix2.rar (الحجم : 193.7 ك ب / التحميلات : 99)
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#10
ما شاء الله عليك يا استاذ VB_Coder وشكرا لك
بس يا ليت تعمل لي ProgressBar
لأن لدي مليون اسم لأجل اعرف هل جاري البحث ام لا ولم استطع ارفع لك الملف لأن حجمه 130 ميغا
الله يحفظك ولو تعبتك معي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
  [سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية awidan76 47 11,084 30-10-19, 08:57 AM
آخر رد: Ahmed_Mansoor
  افضل طرق البحث بـ ado derbaliammar 6 5,973 12-08-19, 02:52 AM
آخر رد: ahmed.m
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 2,144 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 3 2,553 14-03-17, 01:02 AM
آخر رد: عبد العزيز البسكري
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 3,266 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 3,049 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 3,777 29-12-15, 02:57 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 2,740 03-07-15, 05:54 PM
آخر رد: dlshad24

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم