السلام عليكم ورحمة الله وبركاتة
اواجهة مشكلة خطيرة جدا
الا وهى
مطلوب منى فى العمل الاتى
لدى 8000 عميل فى جدول
وعدد 15 الف عميل فى جدول اخر
المطلوب عمل مقارنة هل العملاء فى الجدول الاول موجودين فى الجدول الثانى الخاص بالعملاء 2 بمعنى ان البحث او السيرش يكون بالاسم
انا عملت الاتى
خليت كل لحروف اللى ممكن يكون فيها لخبطة ثابتة مثل الـ ه ، ة ، أ ، إ ، ا ي ، ى
خلتهم ثوابت عشان يعمل مقارنة بين الاسماء بطريقة صحيحة
واتمنى من الله ان لا تخزلونى وشاكر لكل من ساهم فى حل المشكلة مقدما
كالتالي هعمل حلقة تقوم بفحص الاسم الاول من الجدول الاول هل هو موجود في الجدول الثاني لو موجود سأضعه في جدول جديد ثم العودة للجدول الاول هل السم الثاني موجود في الجدول الثاني وهكذا ....................
انتظر المثال
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
vn.MoveFirst
a:
ctm.MoveFirst
ctm.Find "ctm_nm='" & vn("vn_nm") & "'"
If ctm.EOF Then
vn.MoveNext
If vn.EOF Then MsgBox "نهاية الملف": Exit Sub
GoTo a:
End If
itm.AddNew
itm("itm_nm") = vn("vn_nm")
vn.MoveNext
If vn.EOF Then MsgBox "نهاية الملف": Exit Sub
GoTo a:تم تعديل هذه المشاركة بواسطة kindy_ibrahim في 24 أبريل 2007 في 03:20
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
اخى الكريمkindy_ibrahem
شاكر جدا سرعة الرد ورغبتك الجميلة فى مساعدة الاعضاء
ربنا يجعلة فى ميزان حسناتك
اخى الكريم........... حملت المثال المرفق ووجدت قاعدة بيانات مكونة من 3 جداول فقط اى لا يوجد استعلامات او نماذج او وحدات نمطية
السؤال اخى اين اضع الكود المرفق لكى اتمكن من معرفة هل الاسم الاول موجود فى الجدول الثاني والاسم الثاني موجود فى الجدول الثانى وهكذا واخبارى انة موجود من عدمة
اسف جدا انى بتقل عليك ولكن لو امكن ان تكمل المثال لانى مش عارف اتصرف
ولك كل الود والاحترام
تم تعديل هذه المشاركة بواسطة مستر استرا في 24 أبريل 2007 في 11:15
هذا الموضوع مغلق.