[EMADSS]

كود :

BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"

كيف بقدر خلي هذا الكود يبحث عن اسمين مثل محمد واحمد  فقط ياريت المساعدة

[Taha Okla]

(11-03-22, 12:52 PM)EMADSS كتب :

كود :

BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"

كيف بقدر خلي هذا الكود يبحث عن اسمين مثل محمد واحمد  فقط ياريت المساعدة

شو الرابط اللغوي العجيب بين (محمد) و (أحمد)  حتى يتم البحث فقط عن اسمين في مربع نص واحد؟؟؟
فإن كنت تبحث بطريقة البحث عن المتشابه (يكفيك أن تكتب فقط الأحرف المتشابه والتي هي (حمد)).
--
--
في برامج أوفس ، والطباعة لصفحات الـ PDF   عندما تريد طباعة صفحات معينة من الملف يقول لك مربع الطباعة :
- إذا أردت طباعة صفحات متفرقة : أدخل أرقام الصفحات وبينها فواصل.
- إذا أردت طباعة صفحات متتالية : أكتب رقم أول صفحة ثم اكتب داش(-) ثم اكتب رقم آخر صفحة تريد طباعتها.
--
--
حاول تستفيد من أفكار برامج أوفس في طريقة البحث أو برمجة الأكواد لتعمل لك كما تريد.

[EMADSS]

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

[ابو انس]

كود :

 Dim a As String = TextBox1.Text
       Dim b As String = TextBox2.Text
       BindingSource2.Filter = "  Name  = '" & a & "'or Name  ='" & b & "'"

[EMADSS]

(11-03-22, 09:20 PM)ابو انس كتب :

كود :

 Dim a As String = TextBox1.Text
       Dim b As String = TextBox2.Text
       BindingSource2.Filter = "  Name  = '" & a & "'or Name  ='" & b & "'"

شكرا الك

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
الشكر الجزيل للاخ ابو انس على الاجابة جعلها الله في ميزان حسناته
اخوتي من غير الممكن للمستخدم فتح الكود وتعديل جملة الاستعلام او الكود وكتابة الاسماء

كود :

BindingSource2.Filter = "  Name  = '" & a & "'or Name  ='" & b & "'"

وحتى يكون الامر اكثر ديناميكية اذ اننا سنقوم بكتابة الاسماء في مربع بحث  ولانعرف كم اسما سنضع للبحث عنهم ونكتب الاسماء وفراغ واحد بين الاسم والآخر في مربع البحث
ولحل هذه الاشكالية يصبح الكود على الشكل التالي

كود :

  ' ننشء مصفوفة من الاسماء الموحودة في مربع نص البحث
       Dim KK() As String = TextBox1.Text.Trim.Split(" ")
       '   نقوم  بانشاء جملة النص لتتلاءم مع الفلتر
       Dim AA As String = ""
       AA &= """"
       For i As Integer = 0 To KK.Length - 1
           AA &= " name ='" & KK(i) & "'"
           If i < KK.Length - 1 Then
               AA &= " or "
           Else
               AA &= ""
           End If
       Next

       AA &= """"

       BindingSource2.Filter = AA

[EMADSS]

اخي الكريم في مشروعي 2 بوتن
الاول اريده ان يبحث عن كل العمال الذين ياخذون أجر ولكن احيانا كلمة اجر تكون مكتوبة اجر بدون همزه
والبوتن الثاني يبحث لي عن كل العمال الذين هم عقد إيجار ولكن احيانا تكون مكتوبة عقد ايجار بدون همزه
لهذا اردت التعديل غلى الكود ليبحث لي البوتن الاول عن كلمة أجر واجر
والبوتن الثاني يبحث لي عن كلمة عقد إيجار وكلمة عقد ايجار بدون همزه وعرضها في الداتا كريت

[Taha Okla]

إن كانت المشكلة تتمحور حول كلمات محدودة ومتكررة وإدخالها يدوي 
الأفضل أن تقوم بإستخدام (ComboBox) وتدرج هذه الكلمات فيها 
وتجعل ادخالها عبارة عن اختيار من (ComboBox) وليس كتابة يدوية.

[Emam emam]

اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟

[EMADSS]

(12-03-22, 06:22 PM)Emam emam كتب : اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟

نعم اخي هذا ما اريد