طريقه لحذف سجلات مكرره مع الابقاء علي اولها فقط

[تامر خليفه]

مرحبا للجميع

عندي جدول به اكثر من 6 مليون سجل

وكثير منهم مكررين 

وطبعا صعب اني احذف المكرر بشكل يدوي

وايضا غير ممكن ان استخرجه علي الاكسل لكبر حجمه

كيف اقوم  بحذف سجلات مكرره مع الابقاء علي اولها فقط

ولكم جزيل الشكر

[Shivan Rekany]

حسب فكري تقدر الى المطلوب بهذا الشكل

تعمل جدول اخر بنفس الحقول اولا
وبواسطة دالة ئيف تنظر الى السجل تريد بأي حقل لا يتم التكرار 
راح يبدأ من الاول الى اخر سجل  فور فو نيكست

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

هذا والله يعلم

[تامر خليفه]

بصراحه مش فاهم

معلش ممكن توضيح اكثر

[Shivan Rekany]

اتفضل عملت لك نسخة تجريبية  لا يقبل التكرار بالاسم انا اختارت الاسم

كن معي

اولا عملنا جدول اخر بنفس الحقول

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

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

و كتبنا هذه الكود خلف زر في نموذج مستمر

Private Sub Command13_Click()
    Dim CountMyTbl1 As Integer
        Dim i As Integer
        CountMyTbl1 = DCount("*", "tbl1")
        DoCmd.GoToRecord , , acFirst
For i = 1 To CountMyTbl1
DoCmd.SetWarnings False
    If DCount("[myname]", "tbl1new", "[MyName]='" & Me.Text14 & "'") > 0 Then
            DoCmd.OpenQuery "q2", acViewNormal
        Else
            DoCmd.OpenQuery "q1", acViewNormal
            DoCmd.OpenQuery "q2", acViewNormal
    End If
        DoCmd.GoToRecord , , acNext
        Next i
End Sub

شوف الاسماء كان هكذا

وبعد العملية في جدول جديد طلع هكذا

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

 

حذف التكرار حسب الاسم.rar

[ابوخليل]

السلام عليكم

مشاركة مع اخي شفان

لو  رفعت مثالا يحتوي على جدول فيه نماذج من السجلات المكرررة

حينها يمكن ايجاد اكثر من طريقة 

[Shivan Rekany]

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

مشاركة مع اخي شفان

انا افتخر بكم

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

يمكن ايجاد اكثر من طريقة 

نعم بالطبع وهذا طريقة اسهل بكثير من السابق

هذه هو البيانات في الجدول بعض اسماء هم مكرر وواحد منهم هو اسم استاذنا الكبير ابوخليل

اولا عملنا هذا الاستعلام .. القي نظرتا الى الصور 

SELECT First([Copy Of Tbl1].ID) AS FirstOfID, [Copy Of Tbl1].MyName
FROM [Copy Of Tbl1]
GROUP BY [Copy Of Tbl1].MyName;

وبعدين عملنا استعلام اخر هكذا ... القي نظرتا اخرى الى هذه الصور

SELECT [Copy Of Tbl1].ID, Query1.MyName, [Copy Of Tbl1].MyPhoneNumber
FROM Query1 INNER JOIN [Copy Of Tbl1] ON (Query1.FirstOfID = [Copy Of Tbl1].ID) AND (Query1.MyName = [Copy Of Tbl1].MyName);

والنتيجة طلعت هكذا

تقبلو تحياتي

حذف التكرار حسب الاسم.rar

تم تعديل مايو 24, 2017 بواسطه Shivan Rekany