مقارنة اسماء في جدولين

وعليكم السلام ورحمة الله وبركاته

أخي الكريم بالامكان استخدام التحديث للبيانات

بتقنية الاتصال ADO مع لوب تحديث السجلات

مهما كثرت ... جرب الكود التالي مع الجدول الاول المسمى Tblnames1

مع اضافة ماتريد لدالة Replace ستجد ان اللوب يحدث الاسماء التي فيها اشكال

مثل أحمد سيتحدث الى احمد في كل الحقل و عبد الحميد الى عبدالحميد وحمزة الى حمزه

وهكذا ....... هذه إضاءة بسيطة وفتح للطريق لك لكي تقوم بذلك بنفسك

الان أنشيء نموذجا جديدا .. ضع عليه زر أمر

ضع في حدث عند النقر الكود التالي وشاهد عمل الكود

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "[Tblnames1]", CurrentProject.Connection, _
adOpenDynamic, adCmdTable
Do Until rst.EOF
rst!Name = Replace(rst!Name, "أحمد", "احمد")
rst!Name = Replace(rst!Name, "حمزة", "حمزه")
rst!Name = Replace(rst!Name, "عبد الحميد", "عبدالحميد")
rst.Update
rst.MoveNext
Loop
rst.Close
MsgBox "تم التحديث", _
	vbInformation + vbOKOnly, _
	"EKSEER"

وفقك الله ورعاك

اخي اكسير الحياة

رعاك الله وبارك فيك

لقد عمل الحدث بصور رائعة ولكن بقيت الفراغات بين الاسماء هل هناك طريقة لالغاء كافة الفراغات بين الاسماء هذا فيما يخص الجزء الاول

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

وساحاول القيام بعمل فورم لذلك وحتما ستساعدني في ذلك

مع التقدير

وبناءً على فتح الأستاذ إكسير، ما رأيك أن تجرب الاستعلام التالي:

SELECT Tblnames1.name
FROM Tblnames1, tblnames2
WHERE Replace(Replace(Replace([Tblnames1].[name]," ",""),"ة","ه"),"أ","ا") like Replace(Replace(Replace([Tblnames2].[a_name]," ",""),"ة","ه"),"أ","ا") & '*' or Replace(Replace(Replace([Tblnames2].[a_name]," ",""),"ة","ه"),"أ","ا") like Replace(Replace(Replace([Tblnames1].[name]," ",""),"ة","ه"),"أ","ا") & '*'

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخى إكسير ما شاء الله كود رائع.

أخى أحمد مبارك أيضاً إستعلام رائع ... ولكن:

أعتقد أننا نحتاج هنا إلى وضع الأسماء التى نريد تعديلها كاملة .. وإلا سيقوم الاستعلام باستبدال الحروف المكتوبة فى الاستعلام أياً كان موقعها بالكلمة .. أمثلة على ذلك أن يصبح "مبارك الحيقى" مبأرك ألحيقى" لاحظ الهمزة على ألف المد العادية بالإسمين .. وهكذا مثلاً إبراهيم (إبرأهيم) .. سامح (سأمح) .. إلخ.

ونفس الكلام طبعاً للحروف الأخرى مثال (زهرة) ستصبح (زةرة) .. واحنا ما نقدرش على زعل زهرة طبعاً :) .....إلخ

وعليكم السلام ورحمة الله وبركاته...

ملحوظة جيدة أخي محمد، ولذلك عمدت إلى استخدام الاستعلام، لأنه لا يغير في قيم الجداول شيئاً، فقط يطابق الحروف مؤقتاً للمقارنة، ولذلك لم يضرنا أي تغييرات أجرينا، مادامت متطابقة في الحقلين المعنيين... مع العلم أن الاستعلام يقوم بتغيير أ إلى ا وة إلى ه وليس العكس، لكن طريقة عرض الاستعلام هنا في صفحة المنتدى جاءت معكوسة، لكن هذا لا يغير من منطق الحل: توحيد طريقة كتابة الحروف كيف كانت لغرض المقارنة فقط مع عدم تغيير القيم الحقيقية في الجداول...

هذا ظني والله أعلم

أخى الحبيب أحمد

جزاك الله خيراً على التوضيح والمتابعة

محمد ندا

اخي العزيز احمد مبارك

الاخ العزيز محمد ندا

وفقكم الله اساتذتنا الاعزاء واشكر لكم مروركم

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

المهم اخواني وماأرجوه من مساعدة هو عمل فورم رئيسي مرتبط بالجدول الاول واخر فرعي مرتبط بالجدول الثاني عند التحرك في الفورم الرئيسي (اي قيد) تظهر القيود (الاسماء) ذات الشبه في الفورم الثانوي على ان يكون الفلتر من الحرف الخامس الى الحرف العاشر ( يعني منتصف الاسم الكلمة تقريبا) او حسب التحديد ويقوم بنقل ID للفورم الاول بحقل للجدول الثاني (الفورم الثاني).

ارجو اني قد وفقت في شرح مامطلوب

جزاكم الله خيرا

Comparison.rar

الاخ اكسيرالحياة الاخوان احمد مبارك ، محمد ندا

الاخوان اعضاء المنتدى المحترمين

السلام عليكم ورحمة الله

اخواني كما بدأتم مع ارجو مساعدتي في اكمال ما مطلوب

لدي فورم فرعي QRYf1 مرتبط بجدول tblnames1 وفورم فرعي اخر QRYf2 مرتبط بجدول tblnames2

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

واكون شاكر فضلكم .ارفق القاعدة كمثال

Comparison.rar

اخواني مشرفي واعضاء المنتدى

ارجو ابداء ملاحظاتكم