11-03-22, 12:52 PM
كود :
BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"الصفحات : 1 2
11-03-22, 12:52 PM
11-03-22, 08:13 PM
(11-03-22, 12:52 PM)EMADSS كتب : [ -> ]كيف بقدر خلي هذا الكود يبحث عن اسمين مثل محمد واحمد فقط ياريت المساعدةكود :
BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"
شو الرابط اللغوي العجيب بين (محمد) و (أحمد) حتى يتم البحث فقط عن اسمين في مربع نص واحد؟؟؟
فإن كنت تبحث بطريقة البحث عن المتشابه (يكفيك أن تكتب فقط الأحرف المتشابه والتي هي (حمد)).
--
--
في برامج أوفس ، والطباعة لصفحات الـ PDF عندما تريد طباعة صفحات معينة من الملف يقول لك مربع الطباعة :
- إذا أردت طباعة صفحات متفرقة : أدخل أرقام الصفحات وبينها فواصل.
- إذا أردت طباعة صفحات متتالية : أكتب رقم أول صفحة ثم اكتب داش(-) ثم اكتب رقم آخر صفحة تريد طباعتها.
--
--
حاول تستفيد من أفكار برامج أوفس في طريقة البحث أو برمجة الأكواد لتعمل لك كما تريد.
11-03-22, 09:11 PM
اخي الكريم انا بهذا الكود ابحث في قاعدة بيانات اكسس اريد من هذا الكود ان يبحث لي عن اسمين من خلال الكود
انا احدد االاسمين بالكود مثل محمد واحمد او عماد وطلعت ليعرض كل من اسمه محمد واحمد في الداتا كريت
انا احدد االاسمين بالكود مثل محمد واحمد او عماد وطلعت ليعرض كل من اسمه محمد واحمد في الداتا كريت
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 & "'"11-03-22, 09:27 PM
(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 & "'"
شكرا الك
11-03-22, 11:02 PM
السلام عليكم ورحمة الله وبركاته
الشكر الجزيل للاخ ابو انس على الاجابة جعلها الله في ميزان حسناته
اخوتي من غير الممكن للمستخدم فتح الكود وتعديل جملة الاستعلام او الكود وكتابة الاسماء
وحتى يكون الامر اكثر ديناميكية اذ اننا سنقوم بكتابة الاسماء في مربع بحث ولانعرف كم اسما سنضع للبحث عنهم ونكتب الاسماء وفراغ واحد بين الاسم والآخر في مربع البحث
ولحل هذه الاشكالية يصبح الكود على الشكل التالي
الشكر الجزيل للاخ ابو انس على الاجابة جعلها الله في ميزان حسناته
اخوتي من غير الممكن للمستخدم فتح الكود وتعديل جملة الاستعلام او الكود وكتابة الاسماء
كود :
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 = AA12-03-22, 01:20 AM
اخي الكريم في مشروعي 2 بوتن
الاول اريده ان يبحث عن كل العمال الذين ياخذون أجر ولكن احيانا كلمة اجر تكون مكتوبة اجر بدون همزه
والبوتن الثاني يبحث لي عن كل العمال الذين هم عقد إيجار ولكن احيانا تكون مكتوبة عقد ايجار بدون همزه
لهذا اردت التعديل غلى الكود ليبحث لي البوتن الاول عن كلمة أجر واجر
والبوتن الثاني يبحث لي عن كلمة عقد إيجار وكلمة عقد ايجار بدون همزه وعرضها في الداتا كريت
الاول اريده ان يبحث عن كل العمال الذين ياخذون أجر ولكن احيانا كلمة اجر تكون مكتوبة اجر بدون همزه
والبوتن الثاني يبحث لي عن كل العمال الذين هم عقد إيجار ولكن احيانا تكون مكتوبة عقد ايجار بدون همزه
لهذا اردت التعديل غلى الكود ليبحث لي البوتن الاول عن كلمة أجر واجر
والبوتن الثاني يبحث لي عن كلمة عقد إيجار وكلمة عقد ايجار بدون همزه وعرضها في الداتا كريت
12-03-22, 10:31 AM
إن كانت المشكلة تتمحور حول كلمات محدودة ومتكررة وإدخالها يدوي
الأفضل أن تقوم بإستخدام (ComboBox) وتدرج هذه الكلمات فيها
وتجعل ادخالها عبارة عن اختيار من (ComboBox) وليس كتابة يدوية.
الأفضل أن تقوم بإستخدام (ComboBox) وتدرج هذه الكلمات فيها
وتجعل ادخالها عبارة عن اختيار من (ComboBox) وليس كتابة يدوية.
12-03-22, 06:22 PM
اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟
14-03-22, 10:23 AM
(12-03-22, 06:22 PM)Emam emam كتب : [ -> ]اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟
نعم اخي هذا ما اريد
الصفحات : 1 2