mahmoudlabana

شكرا جزيلا اخي الكريم بس ناقص حرف ال ز و ال ذ لو ممكن :)

مثال Search.rar فيه مشكلة على فكرة و هي انك لو ضفت مسافة بعد الاسم مش هتضاف لازم تكتب اسم تاني و ترجع ما بين الاسمين و تضيف مسافة دا المثال يا شباب هو بردو بيبحث بالتشابهات لكن تشابهات الكلمات مش الحروف يا ريت حد يعدله ويضيف تشابه الحروف ا أ ى ي ة ه ز ذ adv find test.rar

للاسف مفهاش الحل انا جربت اطبق الكود الي في قاعدة البيانات دي ومنفعش في القاعدة الي معايا و كمان انا مش عاوز اعلم ع مربع اختيار عشان يبحث بالتشابه انا عاوزه يبحث مباشرة بدون اختيار يا ريت كود او حل اسهل :) انا بحث كتير فالمنتدى هنا ملقتش حل عشان كده عملت الموضوع دا و هرفق قاعدة البيانات بعد التطبيق لان مفيش زيها هنا عشان الكل يستفاد منها ولما يحتاجو حاجة زيها ميتعبوش كتير زي ما انا دوخت عشان اوصل للي عايزه و لسه ناقص بردو الكود دا بس :)

انا عملت نموذج بحث من نموذج فرعي محتاج كود يخلي البحث يتجاهل حروف ال ( ة ه ي ى أ إ آ ز ذ ) في البحث يعني لو بحث ب يمني يظهر يمنى و يمني و هكذا :)

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

شكرا جدا على المعلومة بس انا اخدت النموذج جاهز من الموقع هنا وعدلت فيه بعد التعديلات البسيطة لو ممكن تعدل الحدث وترفقه :)

هو فعلا شغال 100 100 بس الجدول كل الي فيه مكملوش 100 اسم و لو حملت لحد 5الاف اسم شغال كويس انا بقا حاطط 100000 اسم 100 الف اسم فالجدول ف خانة البحث بتكتب الاسم ببطئ عشان البيانات كترت يا ريت حل يسرع عملية الكتابة او البحث في النموذج مع كمية البيانات الكتيرة في الجدول

السلام عليكم ورحمة الله تعالى وبركاته اخواني و اخواتي انا استخدمت نموذج البحث دا بس لما حملت البيانات ف الجدول النموذج بقا بطيئ جدا ف كتابة الاسم عشان ابحث انا حاطط ف الجدول 100 الف اسم كل ما اكتب اسم ف نموذج البحث بياخد وقت وامكانيات جهازي عاليا مابالكم لو جهاز بطيئ يا ريت حل للمشكلة وشكرا :) adv find test.rar

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

مفهوش حل انا عاوزز ابحث بالكلمة او بجملة كاملة لو ليها تشابه يظهر مش ابحث بجزء بس من الكلمة علشان تظهر يعني اعمل مربع نص بحث بس اخليه يعمل بحث باحرف البدل عشان يظهر التشابهات بحث بمضمون نص يعني لو بحثت عن محمد السيد عبدالمجيد يظهر محمد سيد عبدالمجيد و محمد السيد و محمد السعيد عبدالحميد النموذج دا مشابه للي انا بقول عليه و انا جايبه من الموقع من هنا وجميل جدا بس ف احرف معينة بس التشابه وفيه كمان مشكلة فكتابة المسافة فخانة البحث بعد الكلمة Search.rar

بــــســــم الله الرحـــمــــن الرحــيـــم ممكن مساعدة انا عملت نموذج بحث بالاسم لكن عاوز البحث يكون بالتشابه او بجذر الكلمة الى بستخدمها فالبحث يعني ابحث عن سيد يجبلي السيد وسيد والعكس مثلا يا ريت لو حد عنده اقتراح نتشاور انا لقيت حل ليها لكن في فيجوال بيسك دا لينك ممكن يساعد يا ريت حل ليها ف الاكسس لانها مشكلة كبيرة ودورت كتير مش لاقي ليها حل ع النت في اكسس والي موجودة فالمنتدى موجودة بحث عن التشابهات ب ا أ إ آ و ة ه و ي ى و التشكيل بس مفيش عن الكلمات المتشابهة :) **المشكلة دي فاللغة العربية بس في اكسس والله الموفق وانشاء الله تتحل **