-
Posts
11 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه mahmoudlabana
-
-
مثال Search.rar فيه مشكلة على فكرة و هي انك لو ضفت مسافة بعد الاسم مش هتضاف لازم تكتب اسم تاني و ترجع ما بين الاسمين و تضيف مسافة
دا المثال يا شباب هو بردو بيبحث بالتشابهات لكن تشابهات الكلمات مش الحروف يا ريت حد يعدله ويضيف تشابه الحروف ا أ ى ي ة ه ز ذ
-
للاسف مفهاش الحل انا جربت اطبق الكود الي في قاعدة البيانات دي ومنفعش في القاعدة الي معايا و كمان انا مش عاوز اعلم ع مربع اختيار عشان يبحث بالتشابه انا عاوزه يبحث مباشرة بدون اختيار يا ريت كود او حل اسهل :) انا بحث كتير فالمنتدى هنا ملقتش حل عشان كده عملت الموضوع دا و هرفق قاعدة البيانات بعد التطبيق لان مفيش زيها هنا عشان الكل يستفاد منها ولما يحتاجو حاجة زيها ميتعبوش كتير زي ما انا دوخت عشان اوصل للي عايزه و لسه ناقص بردو الكود دا بس :)
-
انا عملت نموذج بحث من نموذج فرعي محتاج كود يخلي البحث يتجاهل حروف ال ( ة ه ي ى أ إ آ ز ذ ) في البحث يعني لو بحث ب يمني يظهر يمنى و يمني و هكذا :)
-
تمام شكرا جربت فعلا واشتغل تمام
بس ناقص مشكلة حاولت اضيفها في النموذج ومعرفتش عاوز اضيف فيه كود تجاهل الهمزات و ة ه و ي ى -
شكرا جدا على المعلومة بس انا اخدت النموذج جاهز من الموقع هنا وعدلت فيه بعد التعديلات البسيطة لو ممكن تعدل الحدث وترفقه :)
-
هو فعلا شغال 100 100 بس الجدول كل الي فيه مكملوش 100 اسم و لو حملت لحد 5الاف اسم شغال كويس انا بقا حاطط 100000 اسم 100 الف اسم فالجدول ف خانة البحث بتكتب الاسم ببطئ عشان البيانات كترت يا ريت حل يسرع عملية الكتابة او البحث في النموذج مع كمية البيانات الكتيرة في الجدول
-
السلام عليكم ورحمة الله تعالى وبركاته اخواني و اخواتي
انا استخدمت نموذج البحث دا بس لما حملت البيانات ف الجدول النموذج بقا بطيئ جدا ف كتابة الاسم عشان ابحث
انا حاطط ف الجدول 100 الف اسم كل ما اكتب اسم ف نموذج البحث بياخد وقت وامكانيات جهازي عاليا مابالكم لو جهاز بطيئ يا ريت حل للمشكلة وشكرا :)
-
تسلم يا عزيزي اخر تعديل جميل وشبه الى انا عاوزه بس ناقصه حاجة بسيطه ممكن تزودها في تكون افضل وتسهل البحث اكتر
ممكن تضيف الكود دا فيه عشان مش عارف اضيفه عشان يتجاهل تشابه ال ي و ى و ا أ إ وة و ه
وشكرا مرة تانية ممكن تعدل المرفق دا ونزله عشان محدش يتعب بعد كده لما يحتاج حاجة مشابهة
Function changesearch(Mytxt) As String Dim tempstr As String tempstr = Nz(Mytxt, "") tempstr = ReplaceChar(tempstr, "أإآا") tempstr = ReplaceChar(tempstr, "ةه") tempstr = ReplaceChar(tempstr, "ىي") changesearch = tempstr End Function Private Function ReplaceChar(W As String, C As String) As String Dim R As Byte Dim S As String, I As String For R = 1 To Len(W) I = Mid(W, R, 1) If InStr(C, I) > 0 Then S = S & "[" & C & "]" Else S = S + I End If Next R ReplaceChar = S End Function
-
مفهوش حل انا عاوزز ابحث بالكلمة او بجملة كاملة لو ليها تشابه يظهر مش ابحث بجزء بس من الكلمة علشان تظهر
يعني اعمل مربع نص بحث بس اخليه يعمل بحث باحرف البدل عشان يظهر التشابهاتبحث بمضمون نص يعني لو بحثت عن محمد السيد عبدالمجيد يظهر محمد سيد عبدالمجيد و محمد السيد و محمد السعيد عبدالحميد
النموذج دا مشابه للي انا بقول عليه و انا جايبه من الموقع من هنا وجميل جدا بس ف احرف معينة بس التشابه وفيه كمان مشكلة فكتابة المسافة فخانة البحث بعد الكلمة
-
بــــســــم الله الرحـــمــــن الرحــيـــم
ممكن مساعدة انا عملت نموذج بحث بالاسم لكن عاوز البحث يكون بالتشابه او بجذر الكلمة الى بستخدمها فالبحث يعني ابحث عن سيد يجبلي السيد وسيد والعكس مثلا يا ريت لو حد عنده اقتراح نتشاور انا لقيت حل ليها لكن في فيجوال بيسك دا لينك ممكن يساعد يا ريت حل ليها ف الاكسس لانها مشكلة كبيرة ودورت كتير مش لاقي ليها حل ع النت في اكسس والي موجودة فالمنتدى موجودة بحث عن التشابهات ب ا أ إ آ و ة ه و ي ى و التشكيل بس مفيش عن الكلمات المتشابهة :)
**المشكلة دي فاللغة العربية بس في اكسس والله الموفق وانشاء الله تتحل **
مطلوب كود تجاهل حروف ( ة ه ي ى أ إ آ ز ذ ) في اكسس
في قسم الأكسيس Access
قام بنشر
شكرا جزيلا اخي الكريم بس ناقص حرف ال ز و ال ذ لو ممكن :)