انشاء كود في زر امر لحذف المكرر بشرط

[محمد التميمي]

السلام عليكم اخواني واساتذتي الكرام

لدي قاعدة بيانات فيها جدول ونموذج والجدول يحتوي على ثلاثة حقول رقم  و اسم  و نوع الشراء 

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

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

بغض النظر عن التسلسل لانه ليس له علاقة بالموضوع

علماً ان القاعدة المرفقة هي مثال لان القاعدة الاصلية كبيرة الحجم تفوق قابلية استيعاب التحميل

مع فائق الشكر

 

Simply.mdb

تم تعديل مارس 31, 2019 بواسطه محمد التميمي

[محمد التميمي]

السلام عليكم

[ابوخليل]

عليكم السلام

تفضل .. تم التصرف في مسميات الحقول في الجدول لازالة المسافات الفارغة

DELETE * FROM table1 WHERE key NOT IN ( SELECT min(key) FROM  table1 GROUP BY FirstName, Address2)

 

حذف السجلات المكررة.mdb

[محمد التميمي]

شكراً اخي واستاذي الكريم ابو خليل 

تم تجربة الكد وهو يعمل

[أبو إبراهيم الغامدي]

أستاذ @ابوخليل

أعجبني هذا التعبير.. سلمت قريحتك..

54 دقائق مضت, ابوخليل said:

NOT IN ( SELECT min(key) FROM table1 GROUP BY FirstName, Address2)

[ابوخليل]

ابو ابراهيم شرفت بمرورك واسعدني اعجابك 

هذا من محفوظاتي نبشت عنه وهو افضل الموجود (يوجد حلول اخرى)

[رمهان]

وهذي من مخزون المنتدى

https://www.officena.net/ib/topic/61357-مساعدة-في-استعلام-حذف-المتكرر-في-جدول-والابقاء-على-سجل-واحد/

وهذه فكرة اخرى 

Set rs = CurrentDb.OpenRecordset("table1"): rs.MoveFirst
Do While Not rs.EOF
If DCount("*", "table1", "[first name]='" & rs(1) & "' and [Address 2]='" & rs(2) & "'") > 1 Then rs.Delete
rs.MoveNext
Loop
Me.Requery

بالتوفيق

تم تعديل أبريل 1, 2019 بواسطه رمهان

[ابوخليل]

11 ساعات مضت, ابوخليل said:

ابو ابراهيم شرفت بمرورك واسعدني اعجابك 

هذا من محفوظاتي نبشت عنه وهو افضل الموجود (يوجد حلول اخرى)

في الغالب احفظ روابط بعض المصادر بجانب المعلومة فقد احتاج للرجوع اليها مستقبلا لبعض التفاصيل  وهذا يحدث احيانا

وهذا مصدري في الجملة اعلاه ، وبالمناسبة هذا افضل بل اعظم موقع لمن يبحث عن حلول برمجية في اي لغة